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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/18 04:50:03
autolisp如何绘制水平矩形图形?autolisp如何绘制水平矩形图形?autolisp如何绘制水平矩形图形?(defunc:tt()(setqp1(getpoint"\n选取矩形第一点:>"))

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

autolisp如何绘制水平矩形图形?
(defun c:tt()
(setq p1 (getpoint "\n选取矩形第一点:>"))
(setq p2 (getpoint "\n选取矩形第二点:>"))
(command "_rectang" p1 p2)
(prin1)
)

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