怎么用lisp标注轴的直径两直线的夹角，非常急，求大神指点呀

孤鹰

xyh 发表于 2012-5-17 16:17
(defun c:tt()
(setq pa (getpoint))
(setq pb (getpoint pa))

(defun c:tt()
(setq pa (llist 0 3
(setq pb (list 4 10))
(command "line" pa pb "")
(setq e1 (cons (entlast) (list pa)))
(setq pc (list 0 -3)
(setq pd (list 4 -10))
(command "line" pc pd "")
(setq e2 (cons (entlast) (list pc)))
(command "dim" "ang" e1 e2 pause "" pause "Exit")
)我这样改的，不对，怎么改 呀

孤鹰

xyh 发表于 2012-5-17 16:17
(defun c:tt()
(setq pa (getpoint))
(setq pb (getpoint pa))

太感谢了，好了，大神呀