lisp调用天正命令参数修改_晓东CAD家园-论坛-A/VLISP-AutoLisp中的Fillet命令所需参数-一直没有注意过Autolisp中使用 Fillet 的用法，今天偶尔用了一次，有点心得...

大家有时间继续完善下面这个代码

(defun c:1 (/ getpt ss pts)

(defun getpt (e1 e2 / sp1 ep1 sp2 ep2 p p1 p2)

(setq sp1 (vlax-curve-getstartpoint e1)

ep1 (vlax-curve-getendpoint e1)

sp2 (vlax-curve-getstartpoint e2)

ep2 (vlax-curve-getendpoint e2)

p   (inters sp1 ep1 sp2 ep2 nil)

)

(if    (> (distance p sp1) (distance p ep1))

(setq p1 ep1)

(setq p1 sp1)

)

(if    (> (distance p sp2)

(distance p ep2))

(setq p2 ep2)

(setq p2 sp2)

)

(list p1 p2)

)

(while (and (setq ss (ssget '((0 . "line,lwpolyline"))))

(= (sslength ss) 2)

)

(setq pts (getpt (ssname ss 0) (ssname ss 1)))

(vl-cmdf ".fillet" (car pts) (cadr pts));_ 需要点，不是entsel返回值，对 Line可以用 entsel，pline 用点

)

(princ)

)(defun c:tt (/ getpt