---

Gibt es eine Möglichkeit per VBA einen bestimmten Radius von einem 3D Volumenkörper ermitteln zu lassen?

Kann man per VBA die Funktion Flächenkrümmungsanalyse irgendwie dazu nützen ?
Hat da wer eine Idee?

Danke

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

---

Servus Esterbauer

Was für einen Radius/Fläche suchst du?
Bei einer zylindrischen (Teil-)Fläche hätte ich folgende Idee (ggf etwas langsam): per Suche alle Teilflächen suchen (Topology.CGMFace ) -> für jedes Element den TypeName auswerten -> falls es eine zylindrische Fläche ist den Radius messen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo

Das war schon mal ein sehr guter Tipp, jetzt habe ich aber noch das Problem das die Fläche nicht gemessen wir.
Ich bekomme immer bei ( Set RefDokument = PartDocument.CreateReferenceFromObject(oLine)) eine Fehlermeldung

Was mache ich hier falsch?

----------------------------------------------------------

Sub CATMain()

Set sel = CATIA.ActiveDocument.Selection

sel.Search "Topology.CGMFace,all"

For N = 1 To sel.Count
 
  Set oLine = sel.Item(N).Value
  Set PartDocument = oLine.Parent.Parent.Parent.Parent

If TypeName(oLine) = "CylindricalFace" Then

Set RefDokument = PartDocument.CreateReferenceFromObject(oLine)
Set Workbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = Workbench.GetMeasurable(RefDokument)
Laenge = TheMeasurable.Length

Laenge = Round(Laenge, 2)
MsgBox Laenge

Else

End If
 
Next

End Sub

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

---

Servus

CreateReferenceFromObject geht nicht bei BREPs (zB Teilflächen).
Probier mal über Set RefDokument = sel.Item(N).Reference die Referenz direkt zu bilden.
Übrigens, bei Flächen gibt es keine TheMeasurable.Length. zB Area und Radius sollte gehen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

wie schon erwähnt funktioniert es mit der Selektion, um die Referenz zu bekommen. Außerdem muss du noch einmal das Dokument und Workbench setzen.

Code:

---

Sub CATMain()

Set sel = CATIA.ActiveDocument.Selection
sel.Search "Topology.CGMFace,all"

Set PartDocument = CATIA.ActiveDocument
Set Workbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")

For N = 1 To sel.Count
    Set CurrentFace = sel.Item(N).Value
    If TypeName(CurrentFace) = "CylindricalFace" Then
        Set refFace = sel.Item(N).Reference
        Set measurableFace = Workbench.GetMeasurable(refFace)
        MsgBox Round(measurableFace.Radius, 2)
    End If
Next

End Sub

---

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