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

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)

)