关于autolisp的问题

chengnuo007

怎样用autolisp命令绘制一个三角形，打开后自动生成一个三角形

hbj710

AUTOLISP是什么软件？

kepeng

(defun sanjiao()
    (setq p0(list 0 0))
& V% j: R, H" w9 N3 E! w    (setq p1(list (car p0) (+(cadr p0) 5)))
    (setq p2(list (+ (car p0) 5) (cadr p0)))
4 j# L' R5 D$ s7 }    (command "line" p0 p1 p2 "c")
)

kepeng

对上面的说明,你必须先加载,然后在cad下输入"sanjiao".这样才ok了

博文2009

(defun c:sanjiaoxing()
8 Q: j( _% z4 M(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "输入第1点："))
, U; I% I3 i3 C0 u(setq p2(getpoint "输入第2点："))
. m; g: j% p6 }  o8 f(setq p3 (getpoint "输入第3点："))
(setvar "osmode" os)
, d0 P8 E5 z& D; ?/ s& L* F(command "pline" p1 p2 p3 "c")
3 T  H  M: _# \)