Rai Ruan
Mechanical
- Mar 14, 2019
- 4
Hi there,
I create a Measure Feature and i want to show dimensions to the screen
I used this code but it didn't work
Please help me with the problem.
Thank you very much in advance!
P.S. I'm using NX 11
I create a Measure Feature and i want to show dimensions to the screen


I used this code but it didn't work
Code:
Dim obj1 As NXOpen.Assemblies.Component = CType(component1.FindObject("COMPONENT NX-T-2Q-H7_ONLY-12_rev_1.001 1"), NXOpen.Assemblies.Component)
Dim obj2 As NXOpen.Assemblies.Component = CType(component1.FindObject("COMPONENT NX-T-2Q-H7_ONLY-1_rev_1.001 1"), NXOpen.Assemblies.Component)
obj1.Unblank()
obj2.Unblank()
Dim nullNXObject As NXObject = Nothing
Dim measureDistanceBuilder1 As MeasureDistanceBuilder
measureDistanceBuilder1 = workPart.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
measureDistanceBuilder1.Object1.Value = obj1
measureDistanceBuilder1.Object2.Value = obj2
Dim unit1 As Unit
unit1 = CType(workPart.UnitCollection.FindObject("MilliMeter"), Unit)
Dim measureDistance1 As MeasureDistance
measureDistance1 = workPart.MeasureManager.NewDistance(unit1, MeasureManager.MeasureType.Minimum, obj1, obj2)
Dim measure1 As NXOpen.Measure = Nothing
measure1 = measureDistance1.CreateFeature()
measure1.SetName(nameobj1 & "," & nameobj2)
measure1.ShowDimensions()
measureDistance1.Dispose()
measureDistanceBuilder1.Destroy()
Please help me with the problem.
Thank you very much in advance!
P.S. I'm using NX 11