Insert block and break any line in its way

[peter]

OK I tried to write a solution that would trim lines that pass through a symbol.

What I came up with is this.

In the routine you select the block and all the linework running through the symbol.

The routine creates a temporary block definition and uses the copyobject method to copy the block into the definition.

It creates a bounding circle around the symbol in the temp block definition.
Centered on the middle of the bounding box around the symbol and passing through the points of the bounding box.

It then copy one line at a time each of the lines passing through the symbol. Runs multiple intersect with methods on each. Saving each intersecting point as a parameter on the line. If the line only passes through the bounding circle once it adds its own end param inside the circle to the list of params.

It then sorts the list of param's and takes the max and min values converts them back into points and breaks the linework in the drawing (not the temp block)

It then deletes the line in the temp block and copyobjects another line into the block and repeats the process.

It doesn't work for minserts and it apparently doesn't line blocks without uniform x and y scale factors.

Try it out, at least it works for fairly uniform blocks I have tried it on.

Peter

[jgratton]

Command: trimins
Select Block:
Select objects: Specify opposite corner: 1 found
Select objects: Specify opposite corner: 1 found, 2 total
Select objects:
no function definition: LISTTOSAFEARRAY
Command:

Can I defun all the block names I need to break somewhere in this lisp? I'll send you this test drawing to show you what I need.

Thanks for your help Peter.

[peter]

Try this version.

It worked to me.

Peter

[jgratton]

It breaks to the first crossing, which would work for some blocks except the ones that cross the line more than once. Also it appears to break only one line not a second one that may cross or adjoin.

[peter]

Can you email me a drawing with the results you are seeing.

You can send it to me offline if you like. peter@cordecksales.com

When I insert the sw3wayr-va block into the drawing you send me before it trimmed it perfectly.

It actually checks every time any "line" or "arc" objects in the block cross a the underlying wide lines.

Peter

Are you running any osnaps? like endpoint? You would have to turn them off, or add a line to the program to turn them off during the breaking commands.

[jgratton]

Are you running any osnaps? like endpoint? You would have to turn them off, or add a line to the program to turn them off during the breaking commands.

That's the ticket! I needed to run this on a 3 party app and their programming is very osnap-happy!

I met you at Au 2005. This year I'll buy you a

In the meantime, thank you very much.

[jgratton]

Ok, I have trimins.lsp loading in the mnl file and put these 3 lines at the top of your lisp
(defun c:tr42std0000103_049()(Trimins "tr42std0000103_049" )(PRINC))
(defun c:tr42std0000103_051()(Trimins "tr42std0000103_051" )(PRINC))
(defun c:tr42std0000103_052()(Trimins "tr42std0000103_052" )(PRINC))

And in my tool palettes I have the following macros:

^c^cosmode;0;;Trimins;;osmode;31743;;

It returns the following:

Command:
OSMODE
Enter new value for OSMODE <0>: Trimins

Requires an integer between 0 and 32767.

Enter new value for OSMODE <0>: *Cancel*

Command: *Cancel*

Command:
Command:
Command: osmode

Enter new value for OSMODE <0>: 0


It is skipping over the trimins command and doesn't return the osmode to "select all"

I haven't a clue how to fix this! Probably something simple I am missing.

[peter]

Take out the OSMode from the macro I put them into the lisp routine and modified the routine to allow you to pass a block name to it.

^c^c(trimins2 "tr42std0000103_049" );

if "tr42std0000103_049" is the block name.

Peter

[peter]

A couple more bugs fixed.

Remember this routine will have a little trouble with very short lines that stop inside the symbol.

Otherwise it seems to work well.

I am working on the very short line issue.

Version 3

Peter

[TPrice1]

I want to thank you gentlemen for this routine you developed as it is exactly what I've been looking for a great while. I tested and tried the routine and fantastic!!!
Hats off to all of you!!!