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

admin

. ~1 [& U& n  k* I  |5 lNX二次开发源码分享: 使用NXOpen获取对象最小距离


[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
; W: l2 @% y+ U+ d6 c        Dim workPart As Part = theSession.Parts.Work

% v; {9 d% E' ]) X3 Z3 a        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

) e. P3 H) L2 R3 Y1 |9 x5 q* _        ' either obtain Unit as desired or use default (null) unit
- }/ Z) r* r" U1 Y+ }& R        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
5 g5 d, w2 M: o. G* x& C7 |1 d        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)

& v1 X  p+ c/ H/ [6 R$ g; T        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
" p3 K4 z7 ^! _5 y6 Y. A        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

9 V4 L6 B9 w9 m, O" [3 Q% ~4 _$ M        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
# b) c0 E5 ~+ Q" c9 f1 o" v3 W        measureDistance1.Dispose()[/mw_shl_code]
, X$ w) K  a8 d! T3 h( I. b8 ~