How to Write Dimensions to iProperties for All Assembly Parts in Autodesk Inventor Using iLogic

I recently received a question about retrieving part dimensions and writing them to iProperties for every component in an assembly. The task isn’t complex, but it does require some familiarity with the Inventor .NET API.

Copy to Clipboard

Sub Main()
	'Check file type
	If Not ThisDoc.Document.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then Exit Sub		
	'Loop through ref docs
	For Each refDoc As Document In ThisDoc.Document.AllReferencedDocuments
		'Skip docs other than parts
		If Not refDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then Continue For			
		'Cast to part document
		Dim prtDoc As PartDocument = refDoc
		'Set part component def
		Dim prtDocDef As PartComponentDefinition = prtDoc.ComponentDefinition
		'Get bounding box
		Dim box As Box = prtDocDef.RangeBox		
		'Get units of measure and current length units
		Dim uom As UnitsOfMeasure = prtDoc.UnitsOfMeasure		
		Dim lenUnits As UnitsTypeEnum = uom.LengthUnits			
		' Dimensions in database units
		Dim dxDb As Double = box.MaxPoint.X - box.MinPoint.X
		Dim dyDb As Double = box.MaxPoint.Y - box.MinPoint.Y
		Dim dzDb As Double = box.MaxPoint.Z - box.MinPoint.Z		
		'Convert box dimensions into current length units
		Dim dx As Double = uom.ConvertUnits(dxDb, UnitsTypeEnum.kCentimeterLengthUnits, lenUnits)
		Dim dy As Double = uom.ConvertUnits(dyDb, UnitsTypeEnum.kCentimeterLengthUnits, lenUnits)
		Dim dz As Double = uom.ConvertUnits(dzDb, UnitsTypeEnum.kCentimeterLengthUnits, lenUnits)		
		'Set property values
		SetIPropValue(prtDoc, "Dimension X", dx)
		SetIPropValue(prtDoc, "Dimension Y", dy)
		SetIPropValue(prtDoc, "Dimension Z", dz)
	Next
End Sub

Sub SetIPropValue(doc As Document, propName As String, val As Double)
	'Get custom properties
	Dim custPropSet = doc.PropertySets("User Defined Properties")
	'Get / Add property
	Dim prop As [Property]
	Try
		'Get required property
		prop = custPropSet(propName)		
		'Set value, assuming the property value type is correct
		prop.Value=val		
	Catch
		'If failed to get - create new	
		prop=custPropSet.Add(val, propName)
	End Try
End Sub

How to Write Dimensions to iProperties for All Assembly Parts in Autodesk Inventor Using iLogic

Contact Us

Turbo BackUp 3 Years Request

Turbo BackUp 1 Year Request

Turbo BackUp Trial Request

Contact Us