AutoCAD LISP矩形窗格绘制
2011-03-26 18:23 精诚所至 金石为开 阅读(764) 评论(0) 编辑 收藏 举报AutoCAD LISP矩形窗格绘制，田字形图形，代码如下：
(defun c:pbox()
(setq pa (getpoint "请输入左下角点："))
(setq ww (getreal "\n请输入矩形宽度实数值w："))
(setq hh (getreal "\n请输入矩形高度实数值h："))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "pline" pa pb pc pd "c")
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
)
代码完。
是不是版本不同的原因，输入不同的宽度和高度画出的结果不同。
在defun c:pbox()下面加上(setvar "osmode" 0)，该命令关闭自动捕捉，测试可行。
