Over 1.110.000 registered users (EN+CZ).
AutoCAD tips, Inventor tips, Revit tips, Civil tips, Fusion tips.
The new Beam calculator, Spirograph generator and Regression curves in the Converters section.
CAD tip # 5757:
Question
A
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
20.9.2007
38862×
this tip shared by ARKANCE experts applies to: AutoCAD ·
![CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz] CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz]](../common/arkance_186.png)

