Beyond Inventor Wizard... The Community!
Autodesk Inventor en AutoCAD Forum
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
Labels:
Enkel op assembly niveau wel te verstaan... :D
Toegevoegd door Stefaan Boel 0 Opmerkingen 0 Vindt leuk
Toegevoegd door pascal david 0 Opmerkingen 2 Vindt leuk
Toegevoegd door Patrick De Bruyn 2 Opmerkingen 2 Vindt leuk
© 2023 Gemaakt door Stefaan Boel.
Verzorgd door