Lisp trim

[manasi4532]

I'm looking for a lisp for auto trim to trim small gaps between squares

 I have attached an example for your understanding.

The distance between the gaps is 0.1mm, the same for all gaps. The distance between the gaps is 0.1 mm, the same for all gaps.

Thank you

[Sea-Haven · Accepted solution]

I think your before and after are the same, I take it the squares are full length horizontal and vertical lines drawn with 0.1 gap.

So try this, written for some one else so meets their criteria, just edit to suit.

; Break all beams 
; Breakall by CAB much appreciated

(defun c:Breakbeams ( /  ss ent obj )

(if (not breakall)(load "Breakall"))

;(Break_all ss ss nil)
(c:breakall)
(princ "\n")
(prompt "Select short lengths ")
(setq ss (ssget (list (cons 0 "*LINE,ARC"))))
(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
(if (= (vlax-get obj 'Objectname) "AcDbArc")
(setq length (vlax-get obj 'ARCLENGTH))
(setq length (vlax-get obj 'LENGTH))
)
(if (< length 0.15)
(vla-delete obj)
)
)
(command "regen")
(princ)
)

 Thanks to CAB for break all. 

[manasi4532]

Sry I run in Autocad LT2024 the command mannotify it notifies error bad argunent type:lselsetp nil.

[Sea-Haven]

Please try these steps, just type the code lines 1 at a time to the command line.

(load "breakall")

Breakall

Then select all line work, let me know if it works. This should make little 0.1 lines.

Post a correct before dwg.

[Kent1Cooper]

---

@Sea-Haven wrote:

I think your before and after are the same, 

---

No, they're not:

The squares are not what they want Trimmed, but the white Polylines, between the closer edges of squares.

@manasi4532 , the thing I'm having a hard time imagining how to accomplish is to distinguish the details of the circumstances at all locations so that it gets the "after" result above, rather than this:

[Sea-Haven]

Was looking in wrong spot, thanks Kent. The breakall by CAB will do what is required it will break all lines, the issue is setting the gap length if shallow angles may be reasonably long compared to say 45 which is 1.414 * gap. 

After breakall magenta line is created changed color for image, can then get all lines on that layer and delete those less than 0.101

In code above layer should be "0"

[manasi4532]

Thank you for this help. But it still has some problems. I repeat the command again. It can solve the problem.😍

[manasi4532]

Thank you for this help. 

[Sea-Haven]

Fixed the ssget was looking for Lines only but you have Plines, breakall keeps object type for Plines, Circles get new arcs.

Updated code above. Increased max size may need a tweak once used on a few dwg's, added Arc's & Plines.