Guten Morgen Roland
Public Sub ToggleSketchDims()
' Set a reference to the Sketches collection. This assumes
' that a part document containing a sketch is active.
Dim oSketches As PlanarSketches
Set oSketches = ThisApplication.ActiveDocument.ComponentDefinition.Sketches
' Iterate through all of the sketches and set their visibility.
Dim oSketch As PlanarSketch
For Each oSketch In oSketches
' oSketch.Visible = False
oSketch.DimensionsVisible = False
Next
End Sub
------------------
"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP