CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz]
Cesky English Deutsch
Login/Register:
 Visitors: 4857 

CAD tip CAD tip # 5757:

Question CAD 
 %  platform  category 
Q - question

How to draw a 3D arc or circle?

A - answer Planar (2D) entities can be drawn in 3D space using a temporary user coordinate system (UCS).

If you want to draw quickly an arc or circle from 3 given points in 3D, you can use the following LISP code (save it to a .LSP file and load with APPLOAD):

(defun c:3Darc (/ p1 p2 p3)
 (command "_ucs" "_w")
 (setq p1 (getpoint "Arc point #1: "))
 (setq p2 (getpoint "Arc point #2: "))
 (setq p3 (getpoint "Arc point #3: "))
 (command "_ucs" "_3p" p1 p2 p3)
 (command "_arc" (trans p1 0 1)(trans p2 0 1)(trans p3 0 1))
 (command "_ucs" "_p")
)
resp.:
(defun c:3Dcircle (/ p1 p2 p3)
 (command "_ucs" "_w")
 (setq p1 (getpoint "Circle point #1: "))
 (setq p2 (getpoint "Circle point #2: "))
 (setq p3 (getpoint "Circle point #3: "))
 (command "_ucs" "_3p" p1 p2 p3)
 (command "_circle" "_3p" (trans p1 0 1)(trans p2 0 1)(trans p3 0 1))
 (command "_ucs" "_p")
)
ACAD
100% *  CAD 
20.9.2007    29705×  
Comments   Tell a friend
applies to: AutoCAD ·

See also:
Tip 11751:toMulti converts polylines to multi-lines driven by a definition table.
Tip 10237:Arc bridges (gaps) in line intersections.
Tip 10138:Dimensioning a curve length or distance between two points on a curve.
Tip 10054:Boolean operations on 2D polylines.
Tip 9711:3DConstruct - converting a 3D mesh to a frame construct


Back   All CAD Tips All CAD tips&tricks

Atomic iMate failed - error in Inventor. « | » How to color or suppress all Xref layers?

Have we helped you? If you want to support the CAD Forum web service, consider buying one of our CAD applications, or our custom software development offerings, or donating via PayPal (see above). You may also add a link to your web - like this "fan" link: CAD Forum - tips, utilities, blocks for Autodesk products
CAD:    OS:    Categ: 
Text:  FAQ glossary   



Featuring:
DwgTextTranslator translates a series of drawings from one language to another using MS Access.
Download a fully functional trial version.


Please use these tips at your own risk.
CAD Studio (Xanadu) is not responsible for possible problems that may occur as a result of using any of these tips.
TOPlist