---

Hallo, hab folgendes Problem (ACAD2005)

ich habe verschiedene 3d_volumenkörper im 3D-Raum auf unterschiedlichen Z-Höhen liegen. Ich möchte alle 3D-Körper auf eine gleich Z-Höhew legen, ohne dass die Körper zerschossen werden.

Vielleicht hat von Euch jemand eine Idee

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

High,
ein normales ->SCHIEBEN der Körper, dürfte sie eigentlich nicht "zerschießen". Sollen wirklich nur Z-Koordinaten geändert werden, wären vielleicht die ->PUNKTFILTER hilfreich.

------------------
Ciao
J-SC
... geht's vielleicht doch?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

3D-Z0.zip

Hallo,

ich hab zum besseren Verständniss eine Datei angehängt. Die §D-Körper liegen im Moment auf verschiedenen Z-Höhen und ich möchte alle mit einem Mal auf eine einheitliche Höhe schieben.
Mit Punktfilter hab ich das nicht hingekriegt.

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

High, also von automatisch war im ersten Posting Nichts zu lesen. Und wenn man in die Datei reinsieht, stellen sich doch auch noch mehr Fragen. Mit welchem Punkt sollen die Körper denn auf welche Z-Koordinate gebracht werden? Allerdings vermute ich eher, dass Du die Teile auch noch ausgerichtet und alle planeben auf der gleichen Bezugsfläche liegen haben möchtest. Woher bitte, soll ein doofes Programm das erkennen.
Ich fürchte, Du musst Dich da mit ->SCHIEBEN, ->DREHEN ->AUSRICHTEN und den ->PUNKTFILTERN und ->OBJEKTFANG um jeden einzelnen Körper kümmern.

------------------
Ciao
J-SC
... geht's vielleicht doch?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas

Ich habe mir deine Zeichnung mit den RWA (Rauchwärmeabzug)Volumenkörpern angesehen und da die Volumenkörper alle auf unterschiedlichen Höhen liegen wird es so nicht möglich sein die alle in einmal auf eine Z-Höhe zu verschieben.

MfG.

Alf-1234

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe mir Deine Datei zwar noch nicht angesehen aber vielleicht ist dies schon ein Lösungsweg:

XY-Ebene auf gewünschte Ebene einstellen,
Befehl ausrichten vewenden.

------------------
strukturiertes Zeichnen mit www.Werner-Maahs.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas!
Wir hatten das Problem auch mal und diese Lisp-Routine ist dabei entstanden:

Code:

---

(defun get-bounding-box (ename / vlaname minb maxb)
(vl-load-com)
(setq vlaname (vlax-ename->vla-object ename))
(vla-GetBoundingBox vlaname 'minb 'maxb)
(setq minb (vlax-safearray->list minb))
(setq maxb (vlax-safearray->list maxb))
(list minb maxb)
)

(defun c:solid-move ( / auswahl z_neu ename z_min zaehler altosmode)
  (setq auswahl (ssget (list (cons 0  "3DSOLID"))))
  (if auswahl
    (progn
      (command "_undo" "_be")
      (setq altosmode (getvar "osmode"))
      (setvar "osmode" 0)
      (setq z_neu (getreal "Neue Z-Höhe:"))
      (or z_neu (setq z_neu 0))
      (setq zaehler 0)
      (while (setq ename (ssname auswahl zaehler))
        (setq z_min (caddar (get-bounding-box ename)))
        (command "_move" ename "" (list 0 0 (- z_neu z_min)) "")
        (setq zaehler (1+ zaehler))
      )
      (setvar "osmode" altosmode)
      (command "_undo" "_end")
    )
  )
  (prompt (strcat "\n" (itoa zaehler) " Elemente auf " (rtos z_neu) " bewegt"))
)

---

Laden, Aufruf mit solid-move
allerdings für AutoCAD 2000, sollte aber auch unter 2005 noch laufen.

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,

Vielen Dank für die Antworten. Das Lisp war genau das was ich gesucht haben. vielen vielen Dank dafür.

Grüße

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP