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

Zkuste LISP "3DCLP" - myslím, že dělá přesně toto (je na VIP serveru a BBS).

Co je to BBS?

viz BBS ve slovníčku

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)
)