Question

如何用autoCAD lisp画圆

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

(defun c:ccc()
(setq cm (getvar "cmdecho")
os (getvar "osmode")
)
(setvar "cmdecho" 0)
(setvar "osmode" 33)
(command "_undo" "be")
(while (setq pt (getpoint "\n圆心:"))
(if (setq R (getdist pt "\n半径:"))
(progn
(setvar "osmode" 0)
(command "_circle" pt r)
(setvar "osmode" 33)
)
)
)

(command "_undo" "e")
(setvar "osmode" os)
(setvar "cmdecho" cm)
(princ)
)