---

Hallo Leute!

Wer weiß, wo die Property für die Extrusionshöhe eines 3D-Solids zu finden ist?

Danke und Gruß,
BJ

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

---

Hi BJ,

ich würde versuchen, mir das über GetBoundingBox(minPoint, maxPoint) zu errechnen, eine Height-Property scheint's nicht zu geben;-)

Gruss Nancy

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

---

Hallo Nancy!

Hatte ich mir auch schon überlegt. Aber welche Werte kriege ich, wenn das Solid schief im Raum hängt? Ich denke, dann kann ich es über diese Methode auch vergessen, oder?

Gruß,
BJ

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

---

Hmmm, BJ;-)

irgendwie dachte ich halt so auf die Schnelle ...,
aber so wie man was denkt, klappts eh' nie.

Egal, jedenfalls hab's mal probiert mit einem Einheitswürfel(1,1,1),
da müsste ja BoundMax(2)-BoundMin(2) eine Erleuchtung sein.
Aber ich trau' ich mich kaum zu replyen, irgendwas läuft da ganz furchtbar schief, ich bekomm' immer 0 

Code:

---

Sub BJ_test()
    Dim box As Acad3DSolid, firstP#(2), secondP#(2)
    Dim BoundMin#(2), boundMax#(2)
    firstP(0) = 0.5: firstP(1) = 0.5: firstP(2) = 0
    secondP(0) = 1: secondP(1) = 0: secondP(2) = 0
    Set box = ThisDrawing.ModelSpace.AddBox(firstP, 1, 1, 1)
    box.Rotate3D firstP, secondP, 45
    box.GetBoundingBox BoundMin, boundMax
    Debug.Print boundMax(2) - BoundMin(2) 'Abs(boundMax(2)) - Abs(BoundMin(2))
End Sub

---

Naja, der Code ist keine Lösung, eher eine gemeinsame Basis zur Lösungsfindung;-)

Muss aber doch gehen - ich probiers nochmal in Ruhe;-)

Gruss Nancy

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

---

Hallo BJ,

Meines Wissens ist es nicht möglich mit VBA an die Extrusionshöhe zu kommen. GetBoundingBox ist scheinbar auch nicht richtig implementiert und gibt immer nur 0 zurück. Die Möglichkeiten sind hier auf die Volumen-, Zentrums- und einige andere Angaben begrenzt (siehe Hilfe 3DSolid object). Vielleicht hat sich ja was mit der 2007er Version geändert?

Gruß, Carsten

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

---

Hallo!

Danke für euren Einsatz! Habe mich nun mit zusätzlichen Linienelementen beholfen, deren Länge abfragbar ist.

Gruß,
BJ

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