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

Aantal maal bekeken: 565

Bijlagen:

Hierop reageren

Berichten in deze discussie

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

RSS

Interessante links

Word Fan!

Inventor Wizard Cartoons

Video's

  • Video's toevoegen
  • Alles weergeven

© 2020   Gemaakt door Stefaan Boel.   Verzorgd door

Banners  |  Een probleem rapporteren?  |  Algemene voorwaarden