---

3DFace_Coordinates.jpg 3DFace_Coordinates_1.jpg

Hallo zusammen!

Ich suche die Möglichkeit mittels VBA 3D Flächen - Koordinaten auszulesen und dann weiterzuverarbeiten, so daß ich aus diesen wieder Polylinien erstellen kann, wie in den Bildchen beschrieben.

Wichtig hierbei wäre auch die Auswertung der Winkel von der unteren blauen Linie zu den senkrechten blauen Linien.

Hat da evtl. jemand eine Lösungansatz für mich?

Vielen Dank im voraus.

Gruß

Dirk

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

---

Hallo Dirk,
schau Dir mal die Coordinates Eigenschaft des 3dface-Objektes an. Da bekommst Du die Koordinaten heraus.
Den Winkel der angrenzenden Linien könntest Du ermitteln, indem Du auf die entsprechenden 3 Punkte ein BKS legst, die Koordinaten in das BKS transformierst, und dann den Winkel berechnest. (Nicht vergessen, das BKS wieder zurück zu stellen)

Grüsse, Henning

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

  http://www.voxelman.de

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

---

Hi Dirk,

Handelt es sich bei der Fläche um eine einzelne 3d FLäche oder gehört die Fläche zu einem 3d-Volumenkörper?!

Gruß, Carsten

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

---

Hi Henning!
Hi Carsten!

Es handelt sich hierbei um die Fläche/n eines  3D-Volumenkörpers.
Dieses hatte ich mal probiert, aber ohne Erfolg:

Code:

---

Sub Test_3DFaceCoordinates()
Dim Object As Object
Dim Prompt As String
Dim VarPoint As Variant
Dim Points() As Double

On Local Error Resume Next
Prompt = "Wählen Sie eine 3D-Fläche:"
ThisDrawing.Utility.GetEntity Object, PickedPoint, Prompt
If TypeName(Object) = "IAcad3DFace" Then
    VarPoint = Object.Coordinates
    Object.Coordinates = Points
End If
End Sub

---

Gruß

Dirk

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

---

Hi Dirk,

Dein Code bezieht sich auch nur auf das Objekt "3DFace". Was du haben willst, sind die einzelnen (Unter-)Flächen des Volumenkörpers. Da wirst du, glaube ich, mit VBA so nicht ran kommen.
Was hast du denn genau vor?! Sind die Ausklinkungen vorgegeben und du willst diese übertragen?!

Gruß, Carsten

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

---

Hi Dirk,
Du könntest den Volumenkörper kopieren und in Ursprung zerlegen. Dann hast Du (bei ebenen Seiten) erst Regionen und beim 2. Mal Ursprung Linien, die Du weiter verarbeiten kannst.

Grüsse, Henning

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

  http://www.voxelman.de

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

---

Hallo Zusammen!

Vielen Dank für Eure Hilfe bzw. Infos.
Werd mal schauen, was ich daraus machen kann.

Gruß

Dirk

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