Pomocí následujícího makra iLogic můžete snadno změnit rozměrové jednotky ve všech součástech aktuální sestavy Inventoru - např. na mm a gramy:
question = MessageBox.Show("Opravdu chcete změnit jednotky v celé sestavě?", "iLogic", MessageBoxButtons.YesNo)
if question = vbYes then
' přednastavené jednotky
oUOM1 = UnitsTypeEnum.kMillimeterLengthUnits ' nebo UnitsTypeEnum.kCentimeterLengthUnits
oUOM2 = UnitsTypeEnum.kGramMassUnits ' nebo UnitsTypeEnum.kKilogramMassUnits
oPrecision = 3
dim openDoc as document
openDoc = ThisDoc.Document
openDoc.unitsofmeasure.LengthUnits = oUOM1
openDoc.unitsofmeasure.MassUnits = oUOM2
openDoc.unitsofmeasure.LengthDisplayPrecision = oPrecision
dim docFile as document
For Each docFile In openDoc.AllReferencedDocuments
' jen součásti
If docFile.DocumentType = kPartDocumentObject Then
dim FNamePos as long
FNamePos = InStrRev(docFile.FullFileName, "\", -1)
dim docFName as string
docFName = Right(docFile.FullFileName, Len(docFile.FullFileName) - FNamePos)
docFile.unitsofmeasure.LengthUnits = oUOM1
docFile.unitsofmeasure.MassUnits = oUOM2
docFile.unitsofmeasure.LengthDisplayPrecision = oPrecision
docFile.Rebuild
End If
Next
iLogicVb.UpdateWhenDone = True
end if
Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy Arkance Systems. Můžete si také přidat odkaz na vaše stránky:
Tipy a triky prosím využívejte na vlastní zodpovědnost. Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů. Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení. Další publikování obsahu je dovoleno jen se souhlasem autora.