Question

用autolisp编写绘制的命令

要求
通过输入正方形的左下角点和边长（用getpoint函数或的左下角点，用getdist函数获得边长）来绘制。
利用command函数调用PLINE命令绘制
漏了几个字！ 绘制正方形！！！！！

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏80（财富值+成长值）

Answer 1

源程序如下：
(defun c:box (/ p p1 p2 a)
(setq p (getpoint "Left & Bottom point: ")
a (getdist p "A=")
)
(command "PLINE" p (setq p1 (polar p 0 a)) (setq p2 (polar p1 (/ pi 2) a)) (polar p2 (- pi) a) "C")
)