Elbow for hvac duct lisp

[akgbmb]

hi

i m looking lisp for elbow. consider 100mm inner Elbow radius

lisp need to following manner

 

Command: Elbow

Select Inner 1st line:

Select Outer 1st line:

Select Inner 2nd line:

Select Outer 2nd line:

 

refer attachment

[tzframpton]

Here:

http://www.cadtutor.net/forum/showthread.php?30545-*FREE*-HVAC-or-Piping-program-for-AutoCAD

 

Which leads to the updated program here:

http://www.cadtutor.net/forum/showthread.php?10882-Need-better-multiline&p=670389&viewfull=1#post670389

 

Set up defaults by utilizing the Tool Palettes to preset the options for short/long radius, gored elbows, miter throat lengths, etc.

 

-TZ

[halam]

great knowlegde, TZ!

[akgbmb]

hi TZ Sir,

your 2nd lisp (WPIPE) is worthfull & its suitable for newly prepare duct drawing.....

but for editing purpose its not suitable. usually i am using following command

>fillet with 100 radius (inner side)

>offset inner side arc to outer arch

>line & trim command....

so i need make elbow essly......

 

if possible pls arrange

[BIGAL]

There will be a duct lsp that does what you want to write one from scratch is not required, TZframpton has offreed a couple of suggestions, if you google you will find plenty more DUCT.lsp programs.

 

I I was doing it which I am not then it would be a pick 2 lines and enter width its not that hard, fairly basic lisp.

 

; an example of fillet 2 lines
(setq obj1 (entsel "Pick 1st line"))
(setq obj2 (entsel "pick 2nd line"))
(setvar "Filletrad" (getreal "enter radius"))
(command "fillet" obj1 obj2)
; your go here
; enter width do offset obj1 obj2 and redo fillet