topic Re: lisp for Drawing elbow for fastest in Visual LISP, AutoLISP and General Customization Forum

lisp for Drawing elbow for fastest

smallƑish — Wed, 23 Aug 2023 17:03:04 GMT

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)

Re: lisp for Drawing elbow for fastest

ronjonp — Wed, 23 Aug 2023 17:22:59 GMT

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

Re: lisp for Drawing elbow for fastest

smallƑish — Mon, 28 Aug 2023 09:23:16 GMT

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)

Re: lisp for Drawing elbow for fastest

ronjonp — Thu, 24 Aug 2023 21:02:04 GMT

@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.

Re: lisp for Drawing elbow for fastest

_Tharwat — Wed, 23 Aug 2023 19:48:55 GMT

Thank you @ronjonp for your recommendation.

Here are my entire HVAC programs.

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

Re: lisp for Drawing elbow for fastest

smallƑish — Mon, 28 Aug 2023 09:25:40 GMT

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

Re: lisp for Drawing elbow for fastest

smallƑish — Mon, 28 Aug 2023 09:15:52 GMT

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.

Re: lisp for Drawing elbow for fastest

diagodose2009 — Mon, 28 Aug 2023 10:09:36 GMT

Please I downloaded, but in my computer not exists .

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

How to start-up he?

Re: lisp for Drawing elbow for fastest

smallƑish — Mon, 28 Aug 2023 10:35:44 GMT

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

Re: lisp for Drawing elbow for fastest

ronjonp — Mon, 28 Aug 2023 21:51:16 GMT

@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:

Re: lisp for Drawing elbow for fastest

Sea-Haven — Tue, 29 Aug 2023 04:58:32 GMT

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.

Re: lisp for Drawing elbow for fastest

smallƑish — Wed, 30 Aug 2023 07:47:07 GMT

Think it's an impossible task. 😐

Re: lisp for Drawing elbow for fastest

Sea-Haven — Thu, 31 Aug 2023 03:46:02 GMT

Yes it is possible just need code to suit.

Re: lisp for Drawing elbow for fastest

smallƑish — Thu, 31 Aug 2023 08:19:23 GMT

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.

Re: lisp for Drawing elbow for fastest

Sea-Haven — Thu, 31 Aug 2023 09:05:58 GMT

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.

Re: lisp for Drawing elbow for fastest

smallƑish — Fri, 01 Sep 2023 17:12:20 GMT

Solved

Re: lisp for Drawing elbow for fastest

ronjonp — Fri, 01 Sep 2023 22:23:18 GMT

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

Re: lisp for Drawing elbow for fastest

Sea-Haven — Sat, 02 Sep 2023 01:29:24 GMT

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.

Re: lisp for Drawing elbow for fastest

smallƑish — Sat, 02 Sep 2023 02:03:22 GMT

how can we get the lisp file for this?

Re: lisp for Drawing elbow for fastest

ronjonp — Sat, 02 Sep 2023 02:31:23 GMT

@smallƑish

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