|
|
|
Download:
T%Polar3D
T%POLAR3D.LSP
Version: 2006-10-11
AutoCAD 2002 through 2007
Description
T%POLAR3D is an AutoLisp Sub-Function, by CadToolChest, which functions within AutoCAD 2002, and later (possibly earlier). It returns a 3D point (in the current UCS) at a specified 3D angle and distance from a 3D point. It is similar to the intrinsic 2D AutoLisp function POLAR, but requires two angles and works in 3D.
Syntax:
(T%POLAR3D PT1 PT2 PT3 DIST1)
(T%POLAR3D PT1 ANG1 ANG2 DIST1)
Pt1=The 3d point from which the new 3d point is to be derived.
Pt2=The first of two 3d points from which to derive the 3d angle. This point can be the same as PT1, which is often the case.
Pt3=The second of two 3d points from which to derive the 3d angle. The 3d angle is the angle between Pt2 and Pt3.
Ang1=An angle, in radians, in the XY plane from the X axis of the current UCS.
Ang2=An angle, in radians, measured from the XY plane of the current UCS.
Dist1=The distance from Pt1 to the new 3d point.
(T%POLAR3D (list 0.5 1.5 2.0) (list 0.0 0.0 0.0) (list 3.0 2.0 1.0) 7.48331477)
Returned point list=(6.5 5.5 4.0)
(T%POLAR3D (list 1.0 2.0 3.0) 0.785398 0.61548 10.10)
Returned point list=(6.83124 7.83124 8.83124)
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.
