Vytisknout stránku | Zavřít okno

3D ořež- 3D Plant Design

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=1044
Datum vytištění: 23.dub.2026 v 07:36


Téma: 3D ořež- 3D Plant Design
Odeslal: zalud
Předmět: 3D ořež- 3D Plant Design
Datum odeslání: 24.čer.2005 v 15:29

Ahoj všem. Potřeboval bych poradit či nasměrovat. Pracuji v 3D Plant Systemu - Autoplant. Když potřebuji vidět pouze část modelu, tak se nabízí funkce 3D ořež (3D CLIP). Jenže to je velice nepraktické a pomalé. Potřeboval bych navrhnout vylepšení např. pomocí AutoLispu, abych pouze zadal jakou rovinu chci řezat, a pomocí souřadnic bych zadal meze rovin. Jin nevím jak to zrealizovat. Předem děkuji za jakou koliv pomoc, která by mne dovedla k cíli. Václav Žalud


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 24.čer.2005 v 15:49
Zkuste LISP "3DCLP" - myslím, že dělá přesně toto (je na VIP serveru a BBS).

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: zalud
Datum odeslání: 25.čer.2005 v 07:42
Co je to BBS?

Odeslal: Vladimír Michl
Datum odeslání: 25.čer.2005 v 14:54
viz http://www.cadforum.cz/cadforum/slovnik.asp?trm=BBS - BBS  ve slovníčku

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: Seiner
Datum odeslání: 27.čer.2005 v 06:49

Pokud jsem správně rozumněl, tak já používám toto:

(defun C:3DTRIM ( / PP1 PP2 uspech prvni OSN Ent body)


(setq OSN (GETVAR "OSMODE"))
(Initget "E")
(Setq PP1 (Getpoint "Počáteční bod <úsEčka>: "))
(IF(= PP1 nil)(SETQ PP1 "E"))
(If (/= PP1 nil)(Progn
 (If (= PP1 "E")(Progn
  (setq uspech 0 body 0)
  (while (= uspech 0)
   (prompt "\n Vyber osu  ")
   (command "_SELECT" "_SINGLE" pause)
   (setq prvni(ssname(setq v(ssget "P"))0))
   (if (= "LINE" (cdr(assoc 0(entget prvni))))(setq uspech 1))
  )
 (setq PP1 (cdr(assoc 10(entget prvni))) PP2 (cdr(assoc 11(entget prvni)))) 
 )
(PROGN (Setq PP2(GETPOINT PP1 "\nKoncový bod: "))
 (SETVAR "OSMODE" 0)
 (Command "_LINE" PP1 PP2 "") (setq prvni(ssname(setq v(ssget "L"))0)body 1)
))
))

 (SETVAR "OSMODE" 0)
(setq PP1 (TRANS PP1 prvni 1) PP2 (TRANS PP2 prvni 1))
(Prompt "Vyber odřezávané objekty: ")
(command "_SELECT" pause)
(setq O (SSGET "P"))
(Prompt "Označ, která strana má zůstat.")
(Command "ODŘÍZNI" O "" "3" PP1 PP2 "@0,0,1" pause)

(if (= body 1)(command "_ERASE" prvni ""))
(SETVAR "OSMODE" OSN)

)


Vytisknout stránku | Zavřít okno