关于autolisp的问题

chengnuo007

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

hbj710

AUTOLISP是什么软件？

kepeng

(defun sanjiao()
    (setq p0(list 0 0))
    (setq p1(list (car p0) (+(cadr p0) 5)))
* L$ x5 m. \1 |7 g2 b    (setq p2(list (+ (car p0) 5) (cadr p0)))
    (command "line" p0 p1 p2 "c")
)

kepeng

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

博文2009

(defun c:sanjiaoxing()
5 G4 ^" u, R* v$ b: P, ^# p( S( |(setq os (getvar "osmode"))
$ f+ _- x# X+ r9 c(setvar "osmode" 0)
. ^% Q1 u0 f% A(setq p1 (getpoint "输入第1点："))
(setq p2(getpoint "输入第2点："))
: _# J5 m- v% s(setq p3 (getpoint "输入第3点："))
(setvar "osmode" os)
- N1 I# u5 V6 S. A(command "pline" p1 p2 p3 "c")
)