TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: rashidaziz on June 14, 2019, 07:01:57 AM
-
Hi
I need AutoLISP to make PLINE between Center Point of all selected CIRCLES (with FENCE option)
Like
PIC-01 (Select CIRCLES with Fence option and also use the same Sequence to Draw PLINE in Center of Circles)
PIC-02 (Showing Pline Path)
PIC-03 (Showing final Result. Start of Pline from First Selected Circle, then Continue as selected)
Thanks so much in Advance
-
Something like this?
(defun t1
(/ adoc selset
) 'pickset
) ;_ end of =
) ;_ end of setq
) ;_ end of repeat
) ;_ end of lambda
)
) ;_ end of setq
(entmakex (append '
((0 .
"LWPOLYLINE") (100 .
"AcDbEntity") (100 .
"AcDbPolyline")) selset
) ;_ end of append
) ;_ end of entmakex
) ;_ end of progn
) ;_ end of if
) ;_ end of defun
-
I add C:T1 and use "F" for selection. Working Fine.
Thanks so much kpblc