|
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" rel="nofollow - 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ěkuji
Sub 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 If End Sub
-------------
Chyba je vždy mezi monitorem a židlí...
|