Community
I have a lips that creates a zero radius fillet.
(defun c:FZ () (setvar "FILLETRAD" 0)(command "_.fillet" "multiple"))
This works great.
I would like to expand this by turning the line into a polyline....but am stuck on how to achieve this.
Solved! Go to Solution.
Solved by _Tharwat. Go to Solution.
maybe this one ...
(defun c:FZ (/ obj1 obj2) (setvar "FILLETRAD" 0) (if (and (progn (prompt "\n Select First line :") (setq obj1 (ssget "_+.:s" '((0 . "LINE")))) ) (progn (prompt "\n Select Second line :") (setq obj2 (ssget "_+.:s" '((0 . "LINE")))) ) ) (progn (command "_.fillet" obj1 obj2 "") (command "_.pedit" "_m" obj1 obj2 "" "_join" "" "") ) ) (princ) )