3点画矩形的lisp_AutoCAD LISP矩形窗格绘制

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)，该命令关闭自动捕捉，测试可行。