OD measurement

[Marcus-NWI]

Hi,

I am working on a rule wherein I would like to measure the OD of round parts. I want the rule to prompt me to select a cylindrical face, and then return the OD value and write it to a custom iProperty. 

oOD = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceCylindricalFilter, "Select the shaft area for OD measurement")

I am having difficulty coming up with any way to measure the OD from that.

Any ideas are appreciated.

[WCrihfield · Accepted solution]

Hi @Marcus-NWI.  This code should get you started.  The measurement is always returned in 'database units' which is centimeters for length, so I included some extra code to convert the units to your document units, if they are different than the database units.

Dim oCylFace As Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceCylindricalFilter, "Select the shaft area for OD measurement")
If oCylFace Is Nothing Then Return
If oCylFace.SurfaceType <> SurfaceTypeEnum.kCylinderSurface Then Return
Dim oCyl As Cylinder = oCylFace.Geometry
Dim dDiameter As Double = (oCyl.Radius * 2)
Dim oDoc As Document = oCylFace.Parent.ComponentDefinition.Document
Dim UOM As UnitsOfMeasure = oDoc.UnitsOfMeasure
If UnitsTypeEnum.kDatabaseLengthUnits <> UOM.LengthUnits Then
	dDiameter = UOM.ConvertUnits(dDiameter, UnitsTypeEnum.kDatabaseLengthUnits, UOM.LengthUnits)
End If
iProperties.Value("Custom", "OD") = dDiameter

If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.

[Marcus-NWI]

Thanks @WCrihfield,

This gives me what I needed.