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

admin

% R& Z' M2 q; G( Z% G0 |- G$ M. z3 oNX二次开发源码分享: 使用NXOpen获取对象最小距离
, o+ Q- ^- I4 j0 R7 Z

8 V- a$ n9 ~0 @' E[mw_shl_code=csharp,true]
. C/ g) q. E1 W0 @  Dim theSession As Session = Session.GetSession()
, @' C0 \( B% `        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
+ b/ a' c5 q* c. X9 J- \3 H1 f
        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
. T& O/ a5 L0 _9 A8 K' I7 q        Dim nullUnit As Unit = Nothing
+ @( U5 K# W: x" h' o4 W        Dim measureDistance1 As MeasureDistance

5 z8 _# h) {& U; z/ Z        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
7 y9 v+ B! g% a! v- {            MeasureManager.MeasureType.Minimum, object1, object2)
; A+ _, p" M  \' i( R
' B: l( ^2 P1 \1 _. Q- J9 G        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
$ J" ]& I, {5 h# B0 Z1 b$ B: X( \+ u        measureDistance1.Dispose()[/mw_shl_code]