topic Re: Plumbing fittings at intersection of single lines in Visual LISP, AutoLISP and General Customization Forum

Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 16:30:38 GMT

Hi all,

Hard to describe in words what I'm trying to do. So here is an image.

Re: Plumbing fittings at intersection of single lines

Kent1Cooper — Thu, 21 Nov 2019 17:14:41 GMT

[The image didn't attach....]

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 17:53:25 GMT

Here is the image.

I have tried blocks, but it becomes tedious.

If the lisp would 1. ask user to select the intersection, 2. then draw and trim as shown in image parametrically..

It would save us a lot of time and effort.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 17:55:25 GMT

I'm hoping somebody has done something similar I can use or at least get me going in the right direction programming-wise.

Re: Plumbing fittings at intersection of single lines

doaiena — Thu, 21 Nov 2019 18:13:19 GMT

You say "parametrically". So what is the parameter? You should probably upload a drawing and be a bit more detailed in your request.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 18:34:05 GMT

The dimensions would always be 1/4" long from intersection x 1/8" wide ( 1/16" from line). These numbers would by multiplied by the current dimscale....

See image to clarify

Re: Plumbing fittings at intersection of single lines

doaiena — Thu, 21 Nov 2019 19:05:11 GMT

How about this approach:

-select lines

-find intersections

-draw a rectangle for each line (representing the fitting outline)

-region the rectangles

-break the lines at the point of intersection and at the point where the fitting ends

That should leave you with a region. If you want it to be a polyline, you can explode the region and join the remaining lines.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 19:19:32 GMT

Seems like selecting lines, then intersection is more clicks than desired.

If I could get the lines and intersection in one click? Not sure how I would do this..

Also, drawing the rectangles from the two midpoints? Not sure how to do this either?

All this is way out of my league.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 19:22:33 GMT

I think using LINEWORKSHRINKWRAP and selecting the rectangles instead of region and explode with work.

Re: Plumbing fittings at intersection of single lines

Kent1Cooper — Thu, 21 Nov 2019 19:30:59 GMT

@DC-MWA wrote:

.... LINEWORKSHRINKWRAP ....

... is a Civil3D command, not available in plain AutoCAD or other overlay programs.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 19:54:47 GMT

I'm using ACA. it works.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 19:57:45 GMT

Ok,

I have the angled rectangle by two clicks (midpoints) figured out.

I have LINEWORKSHRINKWRAP to draw boundary around the rectangles after drawing.

Then erase the rectangles.

I now need to figure out the intersection point and each line direction from picking the intersection?

Re: Plumbing fittings at intersection of single lines

_Tharwat — Thu, 21 Nov 2019 20:46:44 GMT

Hi,

Here is my Drainage Program that might be of interests.

https://autolispprograms.wordpress.com/one/drainage-pipe/

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 21:15:24 GMT

Thank you but we have a long time client that there way of doing things. It's a lot of tedious work, but we would like to keep the client happy.

Re: Plumbing fittings at intersection of single lines

_Tharwat — Thu, 21 Nov 2019 21:20:56 GMT

Just download the program and test it yourself and definitely you would find out how powerful, fast and accurate this program is as soon as you get familiar to it.

Re: Plumbing fittings at intersection of single lines

doaiena — Thu, 21 Nov 2019 21:29:12 GMT

If you are offering software solutions to clients, you should at least try and improve your lisp skills. The function you want to create is almost trivial /basic 2D geometric functions/. Here is a starting point for you /barely tested/.

(defun c:test ( / DrawRect line1 line2 len width fuzz line1Start line1End line2Start line2End intersPt line1Ang line2Ang p1 p2 p3 p4)

(defun DrawRect (lst)
(entmake (append (list (cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 (length lst))
(cons 70 1))
(mapcar (function (lambda (p) (cons 10 p))) lst)))
);defun

(while (not line1) (setq line1 (entsel "\nPick first line: ")))
(while (not line2) (setq line2 (entsel "\nPick second line: ")))

(setq len 80)
(setq width 20)
(setq fuzz 0.01)

(setq line1Start (cdr (assoc 10 (entget (car line1)))))
(setq line1End (cdr (assoc 11 (entget (car line1)))))
(setq line2Start (cdr (assoc 10 (entget (car line2)))))
(setq line2End (cdr (assoc 11 (entget (car line2)))))

;If the 2 lines intersect
(if (setq intersPt (inters line1Start line1End line2Start line2End))
(progn

(setq line1Ang (angle line1Start line1End))
(setq line2Ang (angle line2Start line2End))

(mapcar '(lambda (line / lineStart lineEnd lineAng)

(setq lineStart (car line) lineEnd (cadr line) lineAng (caddr line))

(cond
;Intersection point is on the start point of the line
((equal intersPt lineStart fuzz)
(setq p1 (polar intersPt (- lineAng (/ pi 2)) (/ width 2)))
(setq p2 (polar (polar intersPt lineAng len) (- lineAng (/ pi 2)) (/ width 2)))
(setq p3 (polar (polar intersPt lineAng len) (+ lineAng (/ pi 2)) (/ width 2)))
(setq p4 (polar intersPt (+ lineAng (/ pi 2)) (/ width 2)))
(DrawRect (list p1 p2 p3 p4))
)

;Intersection point is on the end point of the line
((equal intersPt lineEnd fuzz)
(setq p1 (polar intersPt (- lineAng (/ pi 2)) (/ width 2)))
(setq p2 (polar (polar intersPt (+ lineAng pi) len) (- lineAng (/ pi 2)) (/ width 2)))
(setq p3 (polar (polar intersPt (+ lineAng pi) len) (+ lineAng (/ pi 2)) (/ width 2)))
(setq p4 (polar intersPt (+ lineAng (/ pi 2)) (/ width 2)))
(DrawRect (list p1 p2 p3 p4))
)

;Intersection point is in the middle of the line
(T
(setq p1 (polar (polar intersPt lineAng len) (- lineAng (/ pi 2)) (/ width 2)))
(setq p2 (polar (polar intersPt (+ lineAng pi) len) (- lineAng (/ pi 2)) (/ width 2)))
(setq p3 (polar (polar intersPt (+ lineAng pi) len) (+ lineAng (/ pi 2)) (/ width 2)))
(setq p4 (polar (polar intersPt lineAng len) (+ lineAng (/ pi 2)) (/ width 2)))
(DrawRect (list p1 p2 p3 p4))
)
);cond

)
(list (list line1Start line1End line1Ang) (list line2Start line2End line2Ang))
);mapcar

))

(princ)
);defun

If you spend some time, im sure this can be written in a far more elegant way, in probably less than half the code.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 21:37:59 GMT

To clarify, I never offered any software to any client. I do a lot of work for them which is tedious. The software is for me to assist me in doing the work. The client knows nothing of my means and methods, only how they want drawings to look when complete.

Re: Plumbing fittings at intersection of single lines

doaiena — Thu, 21 Nov 2019 21:40:37 GMT

I'm sorry. I misunderstood your previous post. But still, learning a bit of lisp goes a long way.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 22:16:43 GMT

I have learned a lot in the past year But you gurus always blow my mind.

Re: Plumbing fittings at intersection of single lines

DC-MWA — Thu, 21 Nov 2019 22:32:44 GMT

Your code works but I ran into a couple things.

What if I have more than two lines? Corners are problematic as well.