https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/connect-block-and-vertices-with-lines/m-p/11582807#M37745 <P>Something like this?</P> <P>&nbsp;</P> <P>&nbsp;</P> <LI-CODE lang="general">(defun c:connect ( / ss i e plist p nextpt plist-sorted rtn pp ) (while (or (prompt "\nSelect blocks or circles...") (not (setq ss (ssget)))) (prompt "\nEmpty sel. set...") ) (setq plist '()) (repeat (setq i (sslength ss)) (setq e (ssname ss (setq i (1- i)))) (setq plist (append (mapcar 'cdr (vl-remove-if-not '(lambda (x) (vl-position (car x) '(10 11))) (entget e))) plist)) ) (setq p (getpoint "\nPick or specify start point - use osnap cen or ins : ")) (defun nextpt ( p plist / car-sort pp ) (defun car-sort ( l f / removenth r k ) (defun removenth ( l n / k ) (setq k -1) (vl-remove-if '(lambda ( x ) (= (setq k (1+ k)) n)) l) ) (setq k -1) (vl-some '(lambda ( a ) (setq k (1+ k)) (if (vl-every '(lambda ( x ) (apply f (list a x))) (removenth l k)) (setq r a))) l) r ) (setq plist (vl-remove-if '(lambda ( x ) (equal x p 1e-3)) plist)) (setq pp (car-sort plist '(lambda ( a b ) (&lt;= (distance p a) (distance p b))))) (list pp plist) ) (if p (progn (while (cadr plist) (setq plist-sorted (cons p plist-sorted)) (setq rtn (nextpt p plist)) (setq pp (car rtn) plist (cadr rtn)) (setq p pp) ) (setq plist-sorted (cons (car plist) plist-sorted)) (setq plist-sorted (reverse plist-sorted)) (entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length plist-sorted)) (cons 70 (if (= 1 (getvar 'plinegen)) 128 0)) '(38 . 0.0) ) (mapcar '(lambda ( p ) (cons 10 p)) plist-sorted) (list '(210 0.0 0.0 1.0)) ) ) ) ) (princ) )</LI-CODE> <P>&nbsp;</P> Mon, 28 Nov 2022 16:26:40 GMT ВeekeeCZ 2022-11-28T16:26:40Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/connect-block-and-vertices-with-lines/m-p/11582766#M37744 <P>Anyone could help me here? I found a Routine to connect blocks (attached)</P><P>&nbsp;</P><P>... but is there any method to connect each *Lines vertex and blocks? (spline, lines, 3D 2D polylines, etc)</P><P>&nbsp;</P><P><span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="jtm2020hyo_0-1669651613516.png" style="width: 600px;"><img src="https://forums.autodesk.com/t5/image/serverpage/image-id/1145230i365CCC7788FF12F7/image-size/medium?v=v2&amp;px=400" role="button" title="jtm2020hyo_0-1669651613516.png" alt="jtm2020hyo_0-1669651613516.png" /></span></P><P>&nbsp;</P><P><span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="jtm2020hyo_1-1669651653805.png" style="width: 600px;"><img src="https://forums.autodesk.com/t5/image/serverpage/image-id/1145233i1EFEC9793550D9E5/image-size/medium?v=v2&amp;px=400" role="button" title="jtm2020hyo_1-1669651653805.png" alt="jtm2020hyo_1-1669651653805.png" /></span></P><P>&nbsp;</P><P>attached drawing</P><P>&nbsp;</P> Mon, 28 Nov 2022 16:22:04 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/connect-block-and-vertices-with-lines/m-p/11582766#M37744 jtm2020hyo 2022-11-28T16:22:04Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/connect-block-and-vertices-with-lines/m-p/11582807#M37745 <P>Something like this?</P> <P>&nbsp;</P> <P>&nbsp;</P> <LI-CODE lang="general">(defun c:connect ( / ss i e plist p nextpt plist-sorted rtn pp ) (while (or (prompt "\nSelect blocks or circles...") (not (setq ss (ssget)))) (prompt "\nEmpty sel. set...") ) (setq plist '()) (repeat (setq i (sslength ss)) (setq e (ssname ss (setq i (1- i)))) (setq plist (append (mapcar 'cdr (vl-remove-if-not '(lambda (x) (vl-position (car x) '(10 11))) (entget e))) plist)) ) (setq p (getpoint "\nPick or specify start point - use osnap cen or ins : ")) (defun nextpt ( p plist / car-sort pp ) (defun car-sort ( l f / removenth r k ) (defun removenth ( l n / k ) (setq k -1) (vl-remove-if '(lambda ( x ) (= (setq k (1+ k)) n)) l) ) (setq k -1) (vl-some '(lambda ( a ) (setq k (1+ k)) (if (vl-every '(lambda ( x ) (apply f (list a x))) (removenth l k)) (setq r a))) l) r ) (setq plist (vl-remove-if '(lambda ( x ) (equal x p 1e-3)) plist)) (setq pp (car-sort plist '(lambda ( a b ) (&lt;= (distance p a) (distance p b))))) (list pp plist) ) (if p (progn (while (cadr plist) (setq plist-sorted (cons p plist-sorted)) (setq rtn (nextpt p plist)) (setq pp (car rtn) plist (cadr rtn)) (setq p pp) ) (setq plist-sorted (cons (car plist) plist-sorted)) (setq plist-sorted (reverse plist-sorted)) (entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length plist-sorted)) (cons 70 (if (= 1 (getvar 'plinegen)) 128 0)) '(38 . 0.0) ) (mapcar '(lambda ( p ) (cons 10 p)) plist-sorted) (list '(210 0.0 0.0 1.0)) ) ) ) ) (princ) )</LI-CODE> <P>&nbsp;</P> Mon, 28 Nov 2022 16:26:40 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/connect-block-and-vertices-with-lines/m-p/11582807#M37745 ВeekeeCZ 2022-11-28T16:26:40Z