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