Code Red > AutoLISP (Vanilla / Visual)
How to Make PLINE between CIRCLES using FENCE
(1/1)
rashidaziz:
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
kpblc:
Something like this?
--- Code - Auto/Visual Lisp: ---(vl-load-com) (defun t1 (/ adoc selset) (if (= (type (setq selset (vl-catch-all-apply (function (lambda () (ssget '((0 . "CIRCLE")))))))) 'pickset ) ;_ end of = (progn (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) (setq selset ((lambda (/ tab item) (repeat (setq tab nil item (sslength selset) ) ;_ end of setq (setq tab (cons (assoc 10 (entget (ssname selset (setq item (1- item))))) tab)) ) ;_ end of repeat ) ;_ end of lambda ) ) ;_ end of setq (entmakex (append '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (100 . "AcDbPolyline")) (list (cons 90 (length selset))) selset ) ;_ end of append ) ;_ end of entmakex (vla-endundomark adoc) ) ;_ end of progn ) ;_ end of if (princ) ) ;_ end of defun
rashidaziz:
I add C:T1 and use "F" for selection. Working Fine.
Thanks so much kpblc
Navigation
[0] Message Index
Go to full version