topic Re: Lisp trim in Visual LISP, AutoLISP and General Customization Forum

Lisp trim

manasi4532 — Tue, 27 Feb 2024 02:22:06 GMT

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

Re: Lisp trim

Sea-Haven — Wed, 28 Feb 2024 23:27:56 GMT

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.

Re: Lisp trim

manasi4532 — Tue, 27 Feb 2024 04:14:19 GMT

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

Re: Lisp trim

Sea-Haven — Tue, 27 Feb 2024 21:42:00 GMT

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.

Re: Lisp trim

Kent1Cooper — Tue, 27 Feb 2024 21:56:04 GMT

@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:

Re: Lisp trim

Sea-Haven — Tue, 27 Feb 2024 22:33:44 GMT

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"

Re: Lisp trim

manasi4532 — Wed, 28 Feb 2024 03:25:40 GMT

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

Re: Lisp trim

manasi4532 — Wed, 28 Feb 2024 01:54:04 GMT

Thank you for this help.

Re: Lisp trim

Sea-Haven — Wed, 28 Feb 2024 23:29:41 GMT

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.