快速画圆切线lisp_【求助】关于AutoLISP command “line”命令问题（画圆内接正五边形） 不要推荐我使用“polygon”命令...

匿名用户

1级

2018-05-29 回答

(defun c:test()

(setq os (getvar "osmode"))

(setvar "osmode" 0)

(setq en (entsel "choose a circle:"))

(setq en_data (entget (car en)))

(setq cenpt (cdr (assoc 10 en_data)))

(setq rad (assoc 40 en_data))

;;;---------------------------------------------------------以上程序无问题。

(setq pt1 (polar cenpt (/ pi 2) (cdr rad)))

(setq pt2 (polar cenpt (/ pi 10) (cdr rad)))

(command "line" pt1 pt2 "")

;;;----------------------------------------------------这一步始终无法得到满意图形。

(command "array" (entlast) "" "p" cenpt 5 360 "Y")

(setvar "osmode" os)

(princ)

)

追问：

非常感谢你的回答，我去修改一下程序，试一下，之后给你回复。

-----------------------------------------------------------------------