AutoCAD LISP花型图案一,代码如下。
(defun c:test()
(setq cen1 (getpoint "\n中心点:"))
(setq rr (getdist cen1 "\n半径:"))
(setq nn (getint "\n等分数:"))
(if (null nn) (setq nn 10))
(setq ang (/ pi nn 0.5))
(setq pt1 (polar cen1 0 rr))
(setq pt2 (polar cen1 ang rr))
(command "pline" cen1 pt1 "a" "a" 180 pt2 "")
(command "array" (entlast) cen1 "" "p" cen1 nn "" "")
)
代码完。