Hallo,
ich möchte alle Elemente des GeoSets mit dem Namen "SP" auswählen und sie einfärben.
Diese Elemente fangen im Namen alle mit "SP..." an, aber es gibt auch in anderen Sets welche, die auchmit SP anfangen und nicht berücksichtigt werden sollen.
Hier mein Code. Im Search habe ich anstelle, all die Variable myHybBody geschrieben, weil nur in diesem GeoSet gesucht werden soll. Das funktioniert aber nicht so.
Wie wähle ich über Selection alles im bestimmten Set aus?
Dim myFarben As INFITF.VisPropertySet
Dim r, g, b
Dim myHybShape As MECMOD.HybridShape
Dim myHybbody As MECMOD.HybridBody
r = CLng(255)
g = CLng(255)
b = CLng(0)
myHybBody = myPart.HybridBodies.Item("SP")
myCatiaDoc.Selection.Add(myHybBody)
Dim MyArray30() As String
myCatiaDoc.Selection.Search("(Name='SP*' & CATGmoSearch.Point),myHybBody")
ReDim MyArray30(myCatiaDoc.Selection.Count)
If MyArray30.Length > 1 Then
myFarben = myCatiaDoc.Selection.VisProperties
myFarben.SetRealColor(r, g, b, 0)
End If
Gruß
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP