Question

autolisp如何绘制水平矩形图形?

Answer 1

(defun c:tt()

(setq p1 (getpoint "n选取矩形第一点:>"))

(setq p2 (getpoint "n选取矩形第二点:>"))

(command "_rectang" p1 p2)

(prin1)

)

这是最简单的画矩形的程序