NX二次开发源码分享: 使用NXOpen获取对象最小距离

admin

8 M1 h1 P8 q) A7 `+ k& u$ P% d
6 e$ L9 o8 d) [* o0 H. rNX二次开发源码分享: 使用NXOpen获取对象最小距离
7 @8 u2 U& @6 Z1 u

+ d, ~1 Z/ N0 [1 C: m[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
2 w! C1 i- V. V2 c% [0 x
" s  x$ Z& s) F( v        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
+ j3 L& ]; \* k. k2 T
- O5 G3 T( o! k        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
0 ^* d8 J9 w; G8 p( z" T            MeasureManager.MeasureType.Minimum, object1, object2)

! @1 C8 B- v8 h% \* B( J: ?        Dim theLW As ListingWindow = theSession.ListingWindow
+ {0 F& g1 F8 n8 m        theLW.Open()
% @/ K  W3 v* G' d4 Q. Z7 I        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
: A; M) `! }7 G/ G+ A5 E4 i        measureDistance1.Dispose()[/mw_shl_code]