Zobrazit plnou verzi příspěvku: Aktualizace hmotnosti - tlačítko

jirka007CZ
27.06.2014, 09:49
Dobrý den, narazil jsem na návod, jak automaticky aktualizovat hmotnost v popisovém poli.http://www.autodeskclub.cz/clanek/6202-automaticka-aktualizace-hmotnosti-v-popisovem-poli-vykresu-inventoruÚplně mi toto řešení nevyhovuje, protože se pravidlo spouští při každém uložení, což u větších sestav není pohodlné. Osobně by se mi více líbilo mít uživatelské tlačítko pro aktualizaci hmotnosti.Bylo by možné tento kód předělat do VBA, nebo jakým způsobem bych mohl docílit manuálního tlačítka?Moc děkujiSub Main UpdatePartMassProps()    'Kontrola, jestli se jedná o pohled komponenty    If ThisDrawing.ModelDocument.DocumentType = kPartDocumentObject Then        Dim oDoc As Inventor.PartDocument        'Definice modelu podle prvního výkresového pohledu        oDoc = ThisDrawing.ModelDocument        Dim dMass As Double        'Aktualizace hmotnosti        dMass = oDoc.ComponentDefinition.MassProperties.Mass        'Aktualizace součásti (Komponenty)        oDoc.Update        'Uložení (Komponenty)        oDoc.Save        iLogicVb.UpdateWhenDone = True        MessageBox.Show("Hmotnost byla aktualizována", "Úspěšně dokončeno")    Else        MessageBox.Show("Aktualizace hmotnosti je k dispozici pouze pro výkres součásti", "špatný typ souboru ve výkresu")    Exit Sub    End IfEnd Sub

Vladimír Michl
27.06.2014, 11:00

Aktualizační makro s popisem přidání tlačítka najdete v původním tipu z roku 2011:http://www.cadforum.cz/cadforum/tisk-vykresu-inventoru-s-aktualizovanou-informaci-o-hmotnosti-tip8272(nebo funkci máte v X-Tools)

jirka007CZ
27.06.2014, 13:03
Děkuji moc za rychlé vyřešení, je to přesně to, co jsem potřeboval.