topic Re: break intersection polylines and add brackets in Visual LISP, AutoLISP and General Customization Forum

break intersection polylines and add brackets

eng.girgis.adly — Mon, 27 Jul 2020 14:32:34 GMT

Good Day Guys

I ask if there is a lips to trim the intersection polylines and add splines as the attached image

Re: break intersection polylines and add brackets

devitg — Sun, 26 Jul 2020 16:00:25 GMT

@eng.girgis.adly please upload a your sample.dwg

do a search fo

BreakObjects.lsp

or any other as

*break*.lsp

https://www.google.com.ar/search?sxsrf=ALeKk02vrVYpzq6ivz1tPZTnMmuH1dMm9w%3A1595779136817&source=hp&ei=QKgdX4iVL-zZ5OUPx7mS4Ao&q=*break*.lsp&oq=*break*.lsp&gs_lcp=CgZwc3ktYWIQAzIICAAQCBAKEB4yBggAEAgQHjIICAAQCBAKEB4yCAgAEAgQChAeOgUIABCxAzoCCAA6BAgAEB46BAgAEBM6BAguEBM6BQgAEMsBOgUILhDLAToGCAAQChAeOgYIABANEB5Q5w1YkTJgqkVoAHAAeACAAdoBiAGCCpIBBTQuNi4xmAEAoAEBqgEHZ3dzLXdpeg&sclient=psy-ab&ved=0ahUKEwiItdnEpOvqAhXsLLkGHcecBKwQ4dUDCAc&uact=5

Re: break intersection polylines and add brackets

Sea-Haven — Mon, 27 Jul 2020 02:40:03 GMT

Like Devitg when you break an object it makes a new one so when using a break.lsp remember original object then add new object using (entlast) so easy to add the squiggles as you know the end points.

Re: break intersection polylines and add brackets

eng.girgis.adly — Mon, 27 Jul 2020 07:34:03 GMT

dear

I add a sample drawing

also I found this video for a similar lisp like what i need

https://youtu.be/qiHk41x1OQE

Re: break intersection polylines and add brackets

eng.girgis.adly — Mon, 27 Jul 2020 07:45:50 GMT

this lisp do the required job

but without add SPlines

i need to add splines after break the line

Re: break intersection polylines and add brackets

dlanorh — Mon, 27 Jul 2020 08:31:52 GMT

Make a block of the spline break symbol, with the correct insertion point for your requirement. Upload this block and someone should be able to alter a lisp you choose to insert this block on every new end and explode it leaving the spline.

Re: break intersection polylines and add brackets

Sea-Haven — Tue, 28 Jul 2020 05:18:02 GMT

If you look at this it works out the two points for the break.

(command "._break" "_non" (trans (nth ct3 bptlist) 0 1) "_non" (trans (nth (+ ct3 1) bptlist) 0 1))

So before doing command save the pts ie pt1 pt2

Then get the angle of pt1-pt2 this is the block rotation angle.

(setq pt1 (trans (nth ct3 bptlist) 0 1) pt2 (trans (nth (+ ct3 1) bptlist) 0 1) ) (setq ang (angle pt1 pt2)) (command "._break" "_non" pt1 "_non" pt2) (command "-insert" "squigle" pt1 1 1 ang) (command "-insert" "squigle" pt2 1 1 ang)

NOT TESTED !

Re: break intersection polylines and add brackets

diagodose2009 — Tue, 28 Jul 2020 13:14:10 GMT

(princ _ax)(princ"\nEnd")T)(Defun pp_esquiline(/ $rr pt1 lvert horiz $i $e)(setq $rr nil pt1(getvar"VIEWCTR"))(progn(while pt1(setq $rr(dfn_enamk_squigle nil"0"1)$rr(command"REGEN"))(setq pt1(getpoint pt1))))(setq horiz(ssget(list(cons 0"*POLYLINE,LINE"))))(setq lvert(car(entsel"\nSelect Vertical Line:")))(if lvert(ssdel lvert horiz))$rr)

You do need break of Polylines, you can clone , and you recreate the entities

Re: break intersection polylines and add brackets

Sea-Haven — Wed, 29 Jul 2020 00:04:49 GMT

Not sure what all these are in code

(setq ;|a11829|;

Re: break intersection polylines and add brackets

eng.girgis.adly — Wed, 29 Jul 2020 08:34:29 GMT

I tried it but it doesn't work

I attached the file after modification

Re: break intersection polylines and add brackets

Kent1Cooper — Wed, 29 Jul 2020 13:54:21 GMT

Another possible approach:

Make a Block with a Wipeout, something like this:

The blue is the Wipeout [with WIPEOUTFRAME set to show it], and the red is the insertion base point [not part of the Block]. The "squiggles" are Polylines with a central line segment, so the Wipeout ends can coincide exactly [not possible with a Spline].

Here the Block is used [with WIPEOUTFRAME set to not show those] to "cut" crossing Lines without cutting them. The Blocks are Inserted at the INTersections, and each one's rotation angle would follow its "cut" Line's direction [all horizontal here, but surely that's not always the case]. The visibly-but-not-really-cut Lines run through, but are hidden within the Blocks by the Wipeouts. So if [for example] you need to know the length of crossing Lines [or Polylines, or whatever they are], they are still "whole" and that information is available.

You would need to use DRAWORDER to put the Blocks behind the continuous-through Line, and the crossing Lines behind the Blocks. But my guess is that it would take a lot less code to implement, and would save memory, since both squiggles are covered in one Block Insertion, and the "cut" Lines are still single objects, not split into two each.

Re: break intersection polylines and add brackets

devitg — Wed, 29 Jul 2020 15:59:41 GMT

Hi @Sea-Haven . it seem to be a reference to who know what it is , Only @diagodose2009 could clear it

Re: break intersection polylines and add brackets

eng.girgis.adly — Thu, 30 Jul 2020 07:41:16 GMT

I tried the attached code but it didn't work

Re: break intersection polylines and add brackets

eng.girgis.adly — Thu, 30 Jul 2020 08:13:53 GMT

it is a nice idea my friend

Great 🙂

Re: break intersection polylines and add brackets

Sea-Haven — Sun, 02 Aug 2020 05:43:55 GMT

Agree nice idea a single block 2 squiggles and a matching wipeout, arcs not supported in a wipeout so a little bit of close line work. Use x and y scale of block to get required look.

Re: break intersection polylines and add brackets

eng_mohamedmustafa — Fri, 25 Nov 2022 11:53:02 GMT

this lisp i search for before and didn't find solution ... can you provide me with the lisp after final modifications

thanks

Re: break intersection polylines and add brackets

eng_mohamedmustafa — Fri, 25 Nov 2022 16:05:31 GMT

i attach DWG contain what i mean exactly

thank you

Re: break intersection polylines and add brackets

ВeekeeCZ — Fri, 25 Nov 2022 16:39:08 GMT

Use CAB's BreakObjects routine, possibly HERE or many other places.

Use its BreakWith command.

Then use my enclosed routine to add caps.

See HERE how it works.

Re: break intersection polylines and add brackets

eng_mohamedmustafa — Fri, 25 Nov 2022 16:44:54 GMT

i already do this with these lisps >>> but i see in this post lisp that you can select all polylines at once ... then put required gap then the lisp do break and insert block at one shot ... this is @eng.girgis.adly mean in this post and this is i want ... so if i have huge drawing i can with a click to do all break and insert all blocks that i mention in DWG

Re: break intersection polylines and add brackets

ВeekeeCZ — Fri, 25 Nov 2022 19:20:43 GMT

Ohh, now I see what you mean. If that is what you want, do what he says... "For the price please contact me at the following email only... " If you have a huge drawing and this tool could save you a ton of time... not sure what you're still doing here.