Výkresy sestav Autodesk Inventoru často obsahují reference na iVlastnosti nebo fyzikální vlastnosti modelu (součástí). Vlastnost "hmotnost" (mass) ale nemusí být vždy aktualizovaná a tištěné výkresy tak mohou nést nepřesnou informaci o hmotnosti sestavy.
Následující VBA makro zajistí tisk až po aktualizaci fyzikálních vlastností:
Sub PrintWithUpdateMass()
'Aktualizace hmotnosti všech odkazovaných dokumentů
Dim drw As DrawingDocument
Set drw = ThisApplication.ActiveDocument
Dim doc As Document
Dim mass As Double
For Each doc In drw.AllReferencedDocuments
mass = doc.ComponentDefinition.MassProperties.mass
Next
Call drw.Update
'Spuštění tisku, nebo jiného příkazu
Call ThisApplication.CommandManager.ControlDefinitions("AppFilePrintCmd").Execute
End Sub
Pro jednoduchost neobsahuje kontrolu chybových stavů
Toto makro si můžete přiřadit na novou ikonku "Tisk" ve vašem ribbonu - viz Tip 8266.
Můžete rovněž využít funkcí bonus aplikace CADstudio X-Tools.
![Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
- od firmy Arkance Systems [www.cadforum.cz slaví 20 let]](/common/cf-top-logo.png "Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
- od firmy Arkance Systems [www.cadforum.cz slaví 20 let]"){kind=logo}
AutoCAD a LT
Inventor
Revit
Civil 3D
Fusion 360
CAD tip # 8272:
Inventor
Inventor
