원안에 문자를 넣어서 블록으로 만들어 인서트 시키는 리습인데
원만 잡히고 텍스트는 잡히지 않습니다.
텍스트하고 문자까지 블록으로 만들어서 인서트시키고 십습니다.
(defun c:a(/ bname d1 pt )
(setq bname “acircle”)
(setq d1 200)
(setq pt (getpoint “n위치를 클릭하세요 : “))
(command “text” “J” “MC” pt d1 “0” “A”)
(command “_circle” PT (* D1 0.75))
(command “.block” bname pt “L” “”)
(vl-cmdf “insert” bname pause “” “” “” )
(prin1)
)
이런 심플한 방법이 있었네요
뭐하남님 고맙습니다.
블록이름때문에 처음 한 번만 작동하고 두번째부터는 작동이 안되는데
이것은 방법이 없나요?
기본은 공부하고 리습을 짜시길 권해드립니다.
고맙습니다 뭐하남님