Topic: Flex Duct Creator

[Krushert]

Man, I'm a pain...grouping didn't work for me...ACAD 2008 b.t.w.

Make sure your pickstyle system var is set to 3

My pick style is set to 3 and I am getting 2 polylines no groups. 
but I am getting malformed list to if I hit the editor's load button.  Could be a bad copy and paste on my part though.

**edit**
Yep my bad.  The very last (princ) was missing its closing bracket.   

[Dommy2Hotty]

Dom,
Change this in the code to zero dot zero and it will draw the collar.

(setq collar 0.0)      ; collar length at

each end

That will suffice.  I did like the collars at the ends.  Can't have it all, though!!!

Make sure your pickstyle system var is set to 3

It was set to 0, I changed it to 3, but it still isn't grouping them.  Is it Monday?

[CAB]

Dommy,
I just returned, so make a group from the command lien using -group
note the dash.
Enter * for group name
If it creates a group please paste the sequence from the command line here.

As for the collar, you can make it any length you want but for now there is no way to set one to zero & not the other end.
I assume you got the layer & color set the way you want.

[MP]

Bit of a tangent (it is me after all) ... the latter part of this thread reminded me you could do this.

[CAB]

Thanks Michael.
I'm not into groups, so you saved me from the command. 

I'll investagate in the morning.

[MP]

You're very welcome Alan, hope it contributes to our fun in some way.

[CAB]

I found the error in the routine. So i updated the code & also attached a copy to this post as well.
I will replace the command with Michael's method in the next version. 

[Dommy2Hotty]

I found the error in the routine. So i updated the code & also attached a copy to this post as well.
I will replace the command with Michael's method in the next version. 

Okay, everything works exactly the way I want it, save one thing.  Is it possible to shorten the line/polyline that is used as the center of the duct by -5.125" at each end before the duct is created?

[CAB]

What is the purpose?

Do you want the duct to be shorter than the center line?

[Dommy2Hotty]

Fast response...I like that!
The problem I'm trying to get resolved is that the collar extends past the main duct and the diffuser (see attached images).
If you can remedy this, cool, if not, no big deal, you've done more than enough already!  Thanks CAB!

[CAB]

Set collar to 0.0

Code: [Select]

  (setq collar 0.0)      ; collar length at each end

[Dommy2Hotty]

Set collar to 0.0

Code: [Select]

  (setq collar 0.0)      ; collar length at each end

Yeah, but I like the collars!  I just added the lengthen command to the code that prompts the user to select the line at each end to shorten, but I'd rather have it done programatically from when you select the centerline.  I just don't have the knowledge (nor time) right now to do it myself.  It's not a big deal, as I've already dealt with it, but it would be nice.

[CAB]

Try this. Make sure you have a straight segment at each end.

[rbeldua]

thanks mr. cab...mr lee mac and stykeface showed me your works..this is a very good lisp, make jobs so easier and fun..hope i can learn from all of you guys..thanks

[CAB]

Thanks and welcome to The Swamp.