AutoCAD LISP花型图案一
2011-03-27 23:35 精诚所至 金石为开 阅读(390) 评论(0) 编辑 收藏 举报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 "" "")
)
代码完。
![](https://img2024.cnblogs.com/blog/35695/202408/35695-20240826070647288-243310440.jpg)