(defun c:luo ()
(command "limits" "" "297,210")
(command "zoom" "all")
(setq p0131 (getpoint "输入基点p0:"))
(setq d131 (getdist "螺母边长d:"))
(setq r131 (getdist "螺母半径r:"))
(if(> d131 (* 2 r131))
(princ"ok")
(setq d131 (* 2 r131)))
(setq p1131 (polar p0131 0 d131))
(setq p2131 (polar p1131 (/ pi 3) d131))
(setq p3131 (polar p2131 pi (* 2 d131)))
(setq p4131 (polar p0131 (/ pi 2) (* (sqrt 3) d131)))
(setq p5131 (polar p4131 0 d131))
(setq p6131 (polar p0131 (/ pi 3) d131))
(setq pb1131 (polar p1131 (* 1.5 pi) 3))
(command "circle" p6131 r131 )
(command "pline" p0131 p1131 p2131 p5131 p4131 p3131 p0131 "")
(command "zoom" "e")
(command "dimlinear" p0131 p1131 "t" "<>" pb1131)
)
程序编完了，无法运行，不知道哪里错了，求大神告知

顶

ding