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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 22:31:34
autolisp如何绘制水平矩形图形?
x)K,-,.xީwxڱن-Own~>ӽ$mV_`gC)iy V%%`ԒBCԒ̼ OALxf͓ ϛvZ)ii3¯mWļļt%FpEyT L?ٌ4<_wY-ϧd~F 12

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

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

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