LISP for breaking multiple polyline at 'insertion point' of multiple Blocks (AUTOCAD 2026)

[xenru]

I have multiple blocks(10 to 20) placed on multiple polylines in my map. I need to break the polylines of a huge map at the insertion point and join the vertices at the insertion point of the block.
Is there any LISP available to break the polylines exactly at the insertion point ?
I saw LEE MAC's LISP does something similar, but it trims the polylines at the border of the blocks. Shown in the picture (LEE MAC written)

[Tsuky]

Try this !? You can use POINT or Insert Point of block...

 

Break_Poly@point.lsp

Edited 17 hours ago by Tsuky

[Saxlle]

Something like this!?

 

; *****************************************************************************************************
; Functions     :  PLBRJ
; Description   :  Breaking POLYLINE at blocks insertation points and joined into the one POLYLINE
; Author        :  Saxlle
; Date          :  January 19, 2026
; *****************************************************************************************************

(prompt "\nTo run a LISP type: PLBRJ")

(princ)

(defun c:PLBRJ ( / ent joinList ptlist ss len spt ept i breakPoint)
 
  (setq ent (car (entsel "\nSelect the POLYLINE:"))
	joinList (list)
	ptlist (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent)))
	ss (ssget "_F" ptlist (list (cons 0 "INSERT")))
	len (sslength ss)
	spt (vlax-curve-getStartPoint (vlax-ename->vla-object ent))
	ept (vlax-curve-getEndPoint (vlax-ename->vla-object ent))
	joinList (append (list spt) joinList)
	i 0
	)
  
  (while (< i len)
    
    (setq breakPoint (cdr (assoc 10 (entget (ssname ss i)))))
    
    (command "_.BREAK" breakPoint "_f" breakPoint breakPoint)
    
    (setq joinList (append (list breakPoint) joinList))
    
    (setq i (1+ i))
    
    )
  
  (setq joinList (reverse (append (list ept) joinList))
	ss (ssget "_F" joinList (list (cons 0 "LWPOLYLINE")))
	)
  
  (command-s "_PEDIT" "m" ss "" "j" "" "")
  
  (prompt "\nThe POLYLINE was broken at blocks insert points and joined into the one POLYLINE!")
  
  (princ)
  
  )

 

Edited 14 hours ago by Saxlle
Something strange is happening. Don't use it.

[BIGAL]

For me simplest and quickest is use a wipe out in the block, set to background then will auto obscure line underneath. Hopefully the result you want.

 

Edited 1 hour ago by BIGAL