Question

AUTO LISP倒角程序怎样编啊？？

(defun dj()
(setq p0 (getpoint "输入第一点:"))
(setq p1 (polar p0 0 100))
(setq p2 (polar p1 (* 0.5 pi) 30))
(command "pline" p0 p1 "")
(setq l1 (entlast)) ;;;怎样选取一条直线啊？这样好像是错
的在倒角指定直线时不对
(command "pline" p1 p2 "")
(setq l2 (entlast))
(command "chamfer" "t" "t" "d" 5 5 l1 l2 "" )
(prin1)
) ;;;谢谢指教
;;;;还有怎样写（command "dim" "dia"…………………………）标注直径
（command "dim" "rad"…………………………）标注半径
能否给编写个实例？？？

Answer 1

只是因为你的(command "chamfer"）格式有问题而已，不是说用command 调用所用的函数都是按照画图时候的顺序来就可以的，而且经尝试，不可以用PLINE~只能用LINE，我也不知道为什么，正确的语言是

(defun c:dj()
(setq p0 (getpoint "输入第一点:"))
(setq p1 (polar p0 0 100))
(setq p2 (polar p1 (* 0.5 pi) 30))
(command "line" p0 p1 "")
(setq l1 (entlast))
(command "line" p1 p2 "")
(setq l2 (entlast))
(command "chamfer" "t" "t" "d" 5 5 "chamfer" l1 l2 "" )
(prin1)
)