关于autolisp的问题

chengnuo007

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

hbj710

AUTOLISP是什么软件？

kepeng

(defun sanjiao()
    (setq p0(list 0 0))
    (setq p1(list (car p0) (+(cadr p0) 5)))
    (setq p2(list (+ (car p0) 5) (cadr p0)))
2 R4 w8 a, w; l5 V2 N    (command "line" p0 p1 p2 "c")
4 }. \; n( {$ ~)

kepeng

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

博文2009

(defun c:sanjiaoxing()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
9 d$ |' t' x: ]& c/ i4 b# X* O(setq p1 (getpoint "输入第1点："))
( M' \+ n9 p) d/ S, ]. H' k(setq p2(getpoint "输入第2点："))
- k1 M$ A% |1 t7 z* ?; a' m9 m  ](setq p3 (getpoint "输入第3点："))
6 _( \4 @6 V* S' f1 c(setvar "osmode" os)
(command "pline" p1 p2 p3 "c")
)