---

Hallo,

Ich habe ein CATProduct und ich soll alle Bodies mit materialeigenschaften selektieren. Es gibt vielleicht ein "Query", dass ich bei dem Befehl "Selection.Search" nutzen kann.

Was ich jetzt mache ist erstmal alle Bodies selektieren mit dem Befehl

-Selection.Search "'Part Design'.Body;all"

und dann versuche ich mit dem folgenden Befehl das Material zu finden

-TheMaterialManager.GetMaterialOnBody Body, TheMaterial

um zu wissen ob das Body ein zugewiesenes Material hat oder nicht, lese ich die Dichte von dem Material mit dem folgenden Befehl

-Density = TheMaterial.AnalysisMaterial.GetValue("SAMDensity")

wenn das Body kein zugewiesenes Material hat, bekomme ich hier eine Fehlermeldung und auf diese Weise kann ich die Bodies mit Material Finden.

gibt es vielleicht bessere oder schnellere Methode???

Vielen Dank im Voraus

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

---

Hallo!

Versuch so:

Sub CATMain()

Set osel = CATIA.ActiveDocument.Selection
osel.Search "'Part Design'.Body;all"

Dim mColBody As New Collection

If osel.Count > 0 Then
    For i = 1 To osel.Count
        mColBody.Add osel.Item(i).Value
    Next
End If
osel.Clear

If mColBody.Count > 0 Then
    For ii = 1 To mColBody.Count
        osel.Clear
        osel.Add mColBody.Item(ii)
        osel.Search "(CATProductSearch.MatMaterialType + CATAsmSearch.MatMaterialType),sel"
       
        If osel.Count > 0 Then
            MsgBox "MATERIAL"
        Else
            MsgBox "keine MATERIAL"
        End If
    Next
End If

End Sub

------------------
Mit freundlichen Grüßen,
JuPaV

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