(defun c:test-5(/ a ss center dist aa)
(princ “nPick entity to change? “)
(setq ss (entsel))
(setq center (cdr (assoc 10 (entget (car ss)))))
(setq a (getvar “cmdecho”))
(setvar “cmdecho” 0)
(initget 1 “Diameter Radius”)
(setq aa (getkword “n Select Diameter/Radius:”))
(if (= aa “Diameter”)
(setq pt1 (getpoint center “n pick point:”))
(setq dist (/ (distance center pt1) 2))
)
(if (= aa “Radius”)
(setq pt1 (getpoint center “n pick point:”))
(setq dist (distance center pt1))
)
(if a (setvar “cmdecho” a))
(command “erase” ss “”)
(command “circle” center dist)
(princ)
)
리습 플램이고 안되는점이…..
직경하고 반지름 둘 중 하나 선택해서 마우스로 포인트 입력해주는데여
키워드 인식이 안돼서 직경과 반지름이 서로 반대로 실행되네요..
키워드 부분좀 손봐주세요 고수님들….^^;;;;
글구 줄일수 있으면 줄여주시고요~~~~~