Over 1.096.000 registered users (EN+CZ).
AutoCAD tips, Inventor tips, Revit tips.
Try the new precise Engineering calculator and the updated Barcode generator.
New AutoCAD 2026 commands and variables.
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
38264×
applies to: AutoCAD ·