---

Tach zammen! Ich versuche mir gerade verzweifelt eine Liste mit Koordinaten meiner in einer Zeichnung befindlichen Geometrien (3D-Flächen) zu erstellen. Hat jemand da eine Lösung?

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

---

Wandle die Flächen in ein DGM um und schreib ein LandXML File, dann mit dem Reportgenerator eine CSV Daei schreiben, oder exportiere eine REB konforme Koordinatenliste mit der REB/OKSTRA Erweiterung von Autodesk oder benutz den Befehl DBLISTE und speicher das Protokoll oder oder oder...

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

...da hab ich mich wohl nicht deutlich ausgedrückt: Ich brauch die Koordinaten der einezlenen Dreiecke. Z.B. Dreieck1: x1,y1,z2; x2,y2,z3; x3,y3,z3.
Bei LandXML bekomme ich nur die Koordinaten der Ecken ohne die Zugehörigkeit zu einem Dreieck zu sehen. Bei den reports ebenso. Und bei dbliste muss ich tausendmal bestätigen....

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

---

mal ne Rohform von so einem Tool:

(defun c:get-3dface-koords(/ AWS INDEX)
  (if(setq AWS(ssget '((0 . "3DFACE"))))
    (progn
      (setq INDEX -1)
      (repeat(sslength AWS)
        (setq OBJ(ssname AWS (setq INDEX(1+ INDEX))))
        (setq OBJ(entget OBJ))
        (princ "\n")
        (princ
          (mapcar
           'cdr                       
            (vl-remove-if-not
              '(lambda(X)
                 (member (car X) '(10 11 12 13))
               ) 
              OBJ
            ) 
          )
        )
      ) 
    )
    (princ "\nKeine 3D-flächen gewählt\n")   
  )
  (princ)
)

Kann man natürlich erweitern mit Formatierter Ausgabe .. schreiben in eine Textdatei usw.
------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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