|
|
|
Download:
T%3D-BW-
Red-ELL
T%3D-BW-Red-ELL.LSP
Version: 2010-10-10
AutoCAD 2002 through 2011
Description
3D-BW-Red-ELL is an AutoLisp program with a command named 3dRedELL, by CadToolChest, which functions within AutoCAD 2002, and later (possibly earlier). It constructs 3D Butt Weld Reducing Elbow, with or without wall thickness and to any angle.
The following issues are more pronounced in AutoCAD 2002, somewhat less in AutoCAD 2005, and very slight in AutoCAD 2007.
1. Sometimes AutoCAD refuses to union the segments of the reducing elbow. Only known work-a-round is to use a later version of AutoCAD.
2. Sometimes, when a wall thickness is specified, AutoCAD does not perform a complete "subtract" of the inner elbow object from the outer elbow object. Usually, when this happens, only a portion from each end is subtracted, leaving a solid central section. Only known work-a-round is to use a later version of AutoCAD.
3. Objects that refuse to union or subtract in AutoCAD 2002 can be pasted into AutoCAD 2005 or 2007 where they have a better chance of doing what they are told.
4. There is a very slight accuracy problem. Depending on the Units setting, this is likely not noticeable.
A sub-function can be called by your AutoLisp programs (syntax shown below).
Command Prompts:
The following are the prompts issued by the 3dRedELL command:
Select arc of 3d reducing elbow/<Quit>:
Enter diameter at this end/Oops/<2.0000>:
Enter wall this end/Oops/<0.0000>:
Enter diameter at other end/Oops/<1.0000>:
Enter angle of the reducing elbow >0 & <360/Oops/Arc/<90.0000>:
In the first prompt, type Q to exit or select an arc near the end where the reducing elbow is to begin.
In the other prompts, Oops backs up to the previous prompt. Arc will cause the angle to be that of the selected arc. Angles between 1 and 360 are Permitted. To create a solid elbow, enter 0.0 for the wall thickness. The second wall thickness prompt is issued only when the first wall thickness is not 0.0.
Calling the Sub-Function from other AutoLisp Programs:
T%3D-BW-Red-ELL.lsp contains a sub-function that can be called by other AutoLisp programs, bypassing the input prompts of the 3dRedELL command.
Syntax of the callable sub-function:
(T%3D-BW-RED-ELL ARC1 FIRSTENDPT FIRSTDIA FIRSTWALL SECONDDIA SECONDWALL ARCANG RESOLUTION)
FIRSTENDPT=The endpoint of the arc at the first end (in ucs at time of selection).
FIRSTDIA=The diameter at the first end.
FIRSTWALL=The wall thickness at the first end. If >0, a second elbow is created and subtracted from the first to form a hollow elbow. If 0.0, no wall. Both firstwall and secondwall must be > 0.0 or both are ignored.
SECONDDIA=The diameter at the second end.
SECONDWALL=the wall thickness at the second end. If >0, a second elbow is created and subtracted from the first to form a hollow elbow. If 0.0, no wall. Both firstwall and secondwall must be > 0.0 or both are ignored.
ARCANG=The arc angle to sweep in degrees.
RESOLUTION=The maximum angle of each elliptical cone segment in degrees. When the 3DRedELL command is used, this value is 5.0 degrees. Where necessary, the resolution value is decreased to achieve a minimum of 3 cone segments.
(setq pp (car (entsel "\nSelect an arc: "))
(T%3D-BW-RED-ELL (car pp) (osnap (cadr pp) "end") 12.75 0.5 6.625 0.322 90.0 5.0)
This example creates a Butt Weld Reducing Elbow on the current layer, using the current color and line type with the first end at the end of the arc nearest the pick point. The diameter at the first end is 12.75, the wall thickness is 0.50. The diameter at the other end is 6.625 with a wall thickness of 0.322. The angle of the elbow is 90 degrees, and the segments making up the elbow are 5 degrees each (total of 18).
This program is distributed, by CadToolChest, as Freeware without guarantee or
warranty of any type. You may freely use, modify and/or distribute this
program for personal or commercial use, but you may not sell or charge for it
or any portion of it. If bundled with a product that is sold, you must
make this program available for free. As customary, acknowledge the
original author's contribution if you build upon or distribute this work.
The author of CadToolChest retains all copyrights other than described above.
