topic Can we intersect all this line at once Help!!!! in Visual LISP, AutoLISP and General Customization Forum

Can we intersect all this line at once Help!!!!

pullstackautocad — Tue, 05 Nov 2024 15:54:41 GMT

(view in My Videos)

Re: Can we intersect all this line at once Help!!!!

Moshe-A — Tue, 05 Nov 2024 17:01:50 GMT

@pullstackautocad ,

i curious how do you end up with such drawing, you do not start by drawing intersections with a gap?

what object was there and now deleted?

Moshe

Re: Can we intersect all this line at once Help!!!!

pullstackautocad — Tue, 05 Nov 2024 17:11:12 GMT

@Moshe-A sir Actually, I offset these lines from footing.

Re: Can we intersect all this line at once Help!!!!

pendean — Tue, 05 Nov 2024 17:30:01 GMT

@pullstackautocad wrote:
@Moshe-A sir Actually, I offset these lines from footing.

Have you had a chance to look for what you need yet? Will something like these do what you need

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/closing-multiple-gaps-and-walls/m-p/8381570#M376580

https://forums.augi.com/showthread.php?65406-Gap-lisp-routine-for-intersecting-lines&p=1031045&viewfull=1#post1031045

https://www.theswamp.org/index.php?topic=58344.msg614957#msg614957

Re: Can we intersect all this line at once Help!!!!

pullstackautocad — Tue, 05 Nov 2024 18:00:46 GMT

@pendeanIt did not work, sir; I want all the lines to intersects, not join... each line should be single.

thankyou.

Re: Can we intersect all this line at once Help!!!!

Moshe-A — Tue, 05 Nov 2024 18:12:26 GMT

@pullstackautocad ,

@Moshe-A sir Actually, I offset these lines from footing.

This was not an answer to my question, i wanted to now how do you end up getting this drawing?

until you'll get other solution, here is a command 2db to let you select 4 lines and draw a rectangle on top. to get it on a another layer\color switch layer.

works in a loop (save you the activation of 2db times again)

enjoy

Moshe

;; Selection Set Bounding Box - Lee Mac ;; Returns a list of the lower-left and upper-right WCS coordinates of a ;; rectangular frame bounding all objects in a supplied selection set. ;; sel - [sel] Selection set for which to return bounding box (defun LM:ssboundingbox ( sel / idx llp ls1 ls2 obj urp ) (repeat (setq idx (sslength sel)) (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx))))) (if (and (vlax-method-applicable-p obj 'getboundingbox) (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'llp 'urp)))) ) (setq ls1 (cons (vlax-safearray->list llp) ls1) ls2 (cons (vlax-safearray->list urp) ls2) ) ) ) (if (and ls1 ls2) (mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list ls1 ls2)) ) ); LM:ssboundingbox (defun c:2db (/ ss0 ss1 ss2 l i ename pr0 pr1 p0 p1) (setvar "cmdecho" 0) (command "._undo" "_begin") (while (and (setq ss0 (ssget '((0 . "line,polyline,lwpolyline")))) (= (setq l (sslength ss0)) 4) ) (setq i -1 ss1 (ssadd) ss2 (ssadd)) (repeat l (setq ename (ssname ss0 (setq i (1+ i)))) (setq pr0 (vlax-curve-getStartParam ename)) (setq pr1 (vlax-curve-getEndParam ename)) (setq p0 (vlax-curve-getPointAtParam ename pr0)) (setq p1 (vlax-curve-getPointAtParam ename pr1)) (cond ((or (equal (angle p0 p1) 0.0 1e-3) (equal (angle p0 p1) pi 1e-3) ) (ssadd ename ss1) ); case ((or (equal (angle p0 p1) (* pi 0.5) 1e-3) (equal (angle p0 p1) (* pi 1.5) 1e-3) ) (ssadd ename ss2) ); case ); cond ); repeat (if (not (and (= (sslength ss1) 2) (= (sslength ss2) 2) ) ) (prompt "\n*non orthogonal lines is prohibited*") (progn (setq i -1) (repeat (sslength ss2) (setq ename (ssname ss2 (setq i (1+ i)))) (ssadd ename ss1) ); repeat (setq b1 (LM:ssboundingbox ss1)) (command "._rectangle" (car b1) (cadr b1)) ); progn ); if ); while (command "._undo" "_end") (setvar "cmdecho" 1) (princ) )

Re: Can we intersect all this line at once Help!!!!

Kent1Cooper — Tue, 05 Nov 2024 18:22:29 GMT

In that very particular kind of situation, in very simplest terms, this seems to work:

(defun C:XXX (/ ss n lin) (setvar 'edgemode 1) (setq ss (ssget '((0 . "LINE")))) (command "_.extend" ss "") (repeat (setq n (sslength ss)) (setq lin (ssname ss (setq n (1- n)))) (command (getpropertyvalue lin "StartPoint") (getpropertyvalue lin "EndPoint") ); command ); repeat (command) (prin1) )

It just uses all the selected Lines as boundaries in an EXTEND command, with EDGEMODE set to Extend all of them as boundaries, and picks on each end of each Line. It probably won't work as nicely if the conditions are not as "clean" as in your video, but it could do most of what you want, leaving a little cleaning up to do.

Re: Can we intersect all this line at once Help!!!!

DGCSCAD — Tue, 05 Nov 2024 18:42:32 GMT

Maybe the use of MLINES would be beneficial for the initial creation of the footing plans.

About MLines

Create MLine Style

Edit MLines

Re: Can we intersect all this line at once Help!!!!

pullstackautocad — Tue, 05 Nov 2024 18:29:19 GMT

(view in My Videos)

sir, i have been trying to add piers to it thats all ..

Bounding box didnot wotk, i manually do is fillet

Re: Can we intersect all this line at once Help!!!!

pullstackautocad — Tue, 05 Nov 2024 18:33:44 GMT

it didnot work sir, i need lines to be individual not joined.

thankyou

Re: Can we intersect all this line at once Help!!!!

Kent1Cooper — Tue, 05 Nov 2024 18:54:41 GMT

It's not that they're joined, but that some of them Extend to a Line farther away than the one you want them to, and overlap another Line. It seems a little better if you Zoom in -- for me, there was only one overlap. This Line, in the middle:

is overlapped by the one coming up from below, but all the rest are individual and non-overlapping.

EDIT: That one Line coming up from below went farther because initially it is not like those at other intersections, but it already reaches the level of the horizontal Lines:

So in Extend it goes past there, to the next horizontal, and therefore overlaps the highlighted short one. If I pull that end downward so it's off the virtual intersection a little, like all the others, then it works as you intend.

Re: Can we intersect all this line at once Help!!!!

pullstackautocad — Tue, 05 Nov 2024 18:52:23 GMT

this is the result in mine..

Re: Can we intersect all this line at once Help!!!!

pullstackautocad — Tue, 05 Nov 2024 18:55:35 GMT

this is the file,

Re: Can we intersect all this line at once Help!!!!

Kent1Cooper — Tue, 05 Nov 2024 19:04:18 GMT

Well, it was written assuming all the Lines are a little bit short of the virtual intersection points you want them to change to. When they're not, some will Extend differently. Handling all possible relationships "correctly" is probably not possible for a routine to figure out.

Re: Can we intersect all this line at once Help!!!!

CodeDing — Tue, 05 Nov 2024 19:52:13 GMT

@pullstackautocad ,

Honestly, it looks like all of the lines will LENGTHEN the same distance.

This can probably be easily accomplished with the LENGTHEN command.

I'm sure an automated solution could even be created using that command.

Best,

~DD

Re: Can we intersect all this line at once Help!!!!

Sea-Haven — Wed, 06 Nov 2024 02:53:18 GMT

My $0.05 I have code that does this its based on design of concrete on ground slabs, you draw outside pline then work your way in with internal beams, lastly remove all the crossing portions in the TEE and X cross section.

There was a post the other day asking the same questions but with piers to be added. @ec-cad and I answered. My answer being get the right code to draw the slabs, mine is cheap but not free, has like 6 modules/tasks.

This image is drawn starting with white outline number of beams within section is asked for and line work auto created. Much, much more options. The reason for a cost is that each user has preferences about how the slabs are drawn obvious is feet v's metric. The linetypes and layers are set with the code. There are rules for concrete slab design, re beam spacing.

Re: Can we intersect all this line at once Help!!!!

pullstackautocad — Wed, 06 Nov 2024 13:25:47 GMT

SO, I COULN'T FIND ANY SOLUTION FOR FREE

Re: Can we intersect all this line at once Help!!!!

Kent1Cooper — Wed, 06 Nov 2024 13:29:09 GMT

@CodeDing wrote:

.... it looks like all of the lines will LENGTHEN the same distance. ....

Not so. See the second image in Message 11, which is right from their sample drawing.

Re: Can we intersect all this line at once Help!!!!

DGCSCAD — Wed, 06 Nov 2024 14:28:27 GMT

@pullstackautocad if you are simply trying to get the centerlines for footings, the use of MLINES can simplify this. The outline below was created with MLines, then edited with MLEdit > Merged Tee:

You can see the grips at the center points for the pier placement. If you just need the centerlines, explode the MLines and delete the red polylines, which are defined in the MLine Style.

If you want the MLines and the Centerlines, copy the MLines and perform the above on the copy.

You can also automate things, like trimming the tee and cross sections by modifying the code found here:

https://www.thecadforums.com/threads/mledit-lisp.27996/

There are a few ways to go about this.

Re: Can we intersect all this line at once Help!!!!

pullstackautocad — Wed, 06 Nov 2024 15:00:37 GMT

yes can you please show me the instruction through clip. thankyou