Hallo zusammen,
ich habe vor 3 Tagen dieses Problem angebracht und möchte hiermit einen TestCode mit entsprechendem Testmodell bereitstellen, damit ihr direkt testen könnt.
Also Anhang bitte betrachten.
ich möchte per CATScript (CATIA V5 R12 SP3) die Darstellungssymbole von Punkten in Skizzen ändern.
Diese sollen dann nun immer sichtbar bleiben.
hier der Code:
Sub CATMain()
Dim MyDocs As Documents
Set MyDocs = Catia.Documents
Dim MyDoc As PartDocument
Set MyDoc = MyDocs.Item("TestPart.CATPart")
Dim MyPart As Part
Set MyPart = MyDoc.Part
msgbox MyPart.Name
Dim MySketch As Sketch
Set MySketch = MyPart.FindObjectByName("MyTestSketch")
msgbox MySketch.Name
msgbox "Type = " & TypeName(MySketch)
Dim MySelection As Selection
Set MySelection = MyDoc.Selection
If TypeName(MySketch) <> "Nothing" Then
MySelection.Clear
MySelection.Add(MySketch)
MySelection.VisProperties.SetSymbolType 6
MySelection.VisProperties.SetRealColor 0, 100, 0, 0
End If
MyPart.Update
End Sub
Dieses funktioniert leider nicht. Wüsste einer von euch wie ich es lösen könnte?
Die anderen Eigenschaften (Farbe, LinienTyp, Linienstärke) lassen sich auf dieser Weise problemlos setzen.
Nur bei 2D Punkten kann ich die Eigenschaften nicht editieren.
Manuel würde man wie folgt vorgehen:
Sketch selektieren -> rechte Maustaste -> Properties -> Graphic -> symbol or color
Ich würde mich freuen, wenn jemand zeit hätte sich dieses anzuschauen.
------------------
MfG Banka.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP