Geometrie aan of uitzetten

[Fréderic]

Met deze macro kunt u In een samenstelling alle overtollige geometrie die niets te maken heeft met uw model met 1 druk op de knop gaan uitzetten.

 

Er is een (klein 16x16pixels) icoontje voorzien in de bijlage om die in de folder te plaatsen waar uw default.ivb staat, eventueel nog de naam wijzigen:

IamAddIns.WorkGeoOnOff.Small.bmp naar Module1.WorkGeoOnOff.Small.bmp

 

Voeg deze module toe in uw default.ivb bestand van inventor:

 

Public Sub WorkGeoOnOff()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

If oDoc.ObjectVisibility.AllWorkFeatures = True Then
    oDoc.ObjectVisibility.AllWorkFeatures = False
    oDoc.ObjectVisibility.Sketches = False
    oDoc.ObjectVisibility.Sketches3D = False
    oDoc.ObjectVisibility.WeldmentSymbols = False
    oDoc.ObjectVisibility.Welds = False

Else
    oDoc.ObjectVisibility.AllWorkFeatures = True
    oDoc.ObjectVisibility.Sketches = True
    oDoc.ObjectVisibility.Sketches3D = True
    oDoc.ObjectVisibility.WeldmentSymbols = True
    oDoc.ObjectVisibility.Welds = True

End If

End Sub

[Stefaan Boel]

Enkel op assembly niveau wel te verstaan... :D