Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
 - od firmy Arkance Systems [www.cadforum.cz slaví 20 let]
CZ | SK | EN | DE
Přihlášení
či registrace
  právě nás čte: 5952

CAD tip CAD tip # 5756:

   
Otázka CAD 
 %  platforma  kategorie 
Q - otázka

Jak nakreslit oblouk nebo kružnici ve 3D?

A - odpověď Planární (2D) entity můžete umístit do 3D prostoru definicí pomocného uživatelského souřadného systému (USS).

Pokud chcete rychle nakreslit oblouk nebo kružnici zadané 3 body v prostoru, můžete využít následující LISP kód (uložte do .LSP souboru a načtěte pomocí APLČTI):

(defun c:3Darc (/ p1 p2 p3)
 (command "_ucs" "_w")
 (setq p1 (getpoint "1.bod oblouku: "))
 (setq p2 (getpoint "2.bod oblouku: "))
 (setq p3 (getpoint "3.bod oblouku: "))
 (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 "1.bod kružnice: "))
 (setq p2 (getpoint "2.bod kružnice: "))
 (setq p3 (getpoint "3.bod kružnice: "))
 (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    4446×  
bod lisp
 
Související CAD produkty:
Ceny - CAD eShop:
platí pro: AutoCAD ·

Zpět   Všechny další tipy



Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy Arkance Systems.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD:    OS:    Kateg: 
Text:  FAQ   






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.
TOPlist