[编程交流] 电气接线

(defun c:dfp ( / p1 p2 p3 poly el)
 (setvar "filletrad" (getdist "\nEnter fillet radius"))
 (setq p1 (getpoint "\nStartpoint polyline ")
   p2 (getpoint p1 "\nNext point"))
 (command ".pline" p1 p2 "")(setq poly (entlast))
 (while (setq p3 (getpoint p2 "\nNext point"))
   (command ".pline" p2 p3 "")(setq el (entlast))
   (command ".pedit" (eval el) "j" (eval poly) "" "")
   (command "fillet" "p" (eval el))
   (setq poly el p2 p3))
)

(setvar "filletrad" (getdist "\nEnter fillet radius"))
; create pline by picking points press enter when finished
(command "_pline")
(while (= (getvar "cmdactive") 1 ) (command pause)
)
(command "fillet" "p" (entlast))