(defun c:FP (/
ss)
;; Alan J. Thompson, 08.31.10
(setq
old_cmdecho (getvar
"cmdecho"))
(setvar
"cmdecho" 0)
(initget 4)
(setvar
'filletrad
(cond
((getdist (strcat "\nSpecify
fillet radius <" (rtos (getvar 'filletrad)) ">: ")))
((getvar 'filletrad))
)
)
(if (setq ss
(ssget "_:L" '((0 . "LWPOLYLINE"))))
((lambda (i / e)
(while (setq e (ssname ss (setq i
(1+ i))))
(command "_.fillet"
"_polyline" e)
)
)
-1
)
)
(princ)
(setvar
"cmdecho" old_cmdecho)
)
ไม่มีความคิดเห็น:
แสดงความคิดเห็น