Servus
Das sollte mit Bearbeiten -> Suchen gehen
Mit Hilfe des Makrorekorders und etwas Nacharbeit bekommt man zB so ein Script:
Language="VBSCRIPT"Sub CATMain()
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection
selection1.Search "(CATSketchSearch.2DAxis_VDirection + CATSketchSearch.2DAxis_HDirection),all"
Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1
selection1.Clear
selection1.Search "CATSketchSearch.2DAxis_Origin,all"
visPropertySet1.SetShow 1
selection1.Clear
End Sub
Gruß
Bernd
------------------
Warum einfach, wenn es auch kompliziert geht.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP