lisp for Drawing elbow for fastest

[smallƑish]

I'm using "RD" lisp to draw all kinds of reducers written by @komondormrex , The fastest program ever (actions 1 & 2 in GIF). Can anyone help me to do the same for my elbow? GIF, Lisp, and DWG are attached for more clarity.

Note : All objects are lines. ( No polyline)

 

[ronjonp]

Fillet using radius 0 then join and use the code I've already given you.

[smallƑish]

Dear @ronjonp

The given code is not working with lines;

As all my drawings are lines (not polylines)

Also, the lisp only works with the polylines which are already fillet and joined 

Multiple elbows in a single polyline give the wrong results.

hence it's making it more complicated than normal (gif attached)

[ronjonp]

@smallƑish 

For what you're trying to accomplish, can't you trial software? @_Tharwat Has written a duct suite. Might save you some headaches.

[_Tharwat]

Thank you @ronjonp for your recommendation.

Here are my entire HVAC programs.

https://autolispprograms.wordpress.com/hvac/

[smallƑish]

Please have a look. your code does not give accurate results gif is attached.

 

[smallƑish]

Thank you for your reply. I have tried this. But it's more advanced tools than my current work style. I wish to continue with the conventional method.

[diagodose2009]

Please  I downloaded, but in my computer not exists .

Inside AutoCad do not found the program  "HVACTharwat Al Shoufi".

How to start-up he?

[smallƑish]

Type HVAC as CMD, You will gate a new pop up window in that you have to choose what you want to draw either duct, elbow taper etc it's very good and really advanced drafting application

See here https://youtu.be/9f3HRUpfaGA?feature=shared

[ronjonp]

---

@smallƑish wrote:

Please have a look. your code does not give accurate results gif is attached.

 

---

Yup .. all it looks for is areas of the polylines to determine which is "inside" .. this can easily be fooled by a scenario like this:

[Sea-Haven]

Maybe pick 2 points ? the 1st is always inside. Another I have used is drag line over 1st 2 lines then over other 2 lines. This implies 2nd point is the inside. Think "L". I have this for multi fillet many lines at a time.

[smallƑish]

Think it's an impossible task. 😐

[Sea-Haven]

Yes it is possible just need code to suit.

[smallƑish]

Glad to know that it's possible, but I m not that brilliant to understand the idea here. Also I m just started learning lisp. Hence no clue, what I needed to do here.

[Sea-Haven]

Good time to learn, start with pt1 (getpoint ........ pt2 (getpoint pt1 ........ pt3 (getpoint pt2 .....

(ssget "F" (list pt1 pt2 pt3)......

Ok next step is line 1 closer to pt1 or line 2 ? Need to use (setq intpt1 (vlax-invoke obj2 'intersectWith obj1 acExtendThisEntity)) twice and compare (distance ptx intpt1) this forces the order of your line work to be in a pattern. Outside inside inside outside. Then fillet is outsidept1 outsidept2, insidept1 insidept2. 

Now in your other post and did comment dont double post, you can also get the width between the lines.

Its all common code used so many times.

if you google "fillet multiple lines Autocad lisp" should find one all done. But have a go only way to learn.

[smallƑish · Accepted solution]

Solved 

[ronjonp]

@smallƑish Wouldn't it be easier to use centerlines?

[Sea-Haven]

Agree with you Ronjonp I posted some code recently that allows you to offset a pline segment with different offsets so a duct program could have different widths. This is sounding again like Tharwat HVAC program.

[smallƑish]

how can we get the lisp file for this? 

[ronjonp]

@smallƑish 

This was given to you already a couple of weeks ago HERE.