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

admin

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


' d+ `9 y0 u( O0 `[mw_shl_code=csharp,true]
+ d/ n1 ~; {6 r  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

$ n7 D9 ?; b4 G        Dim object1 As DisplayableObject = SelectAnObject("First Object")
% U0 r! L/ L" i% h4 P. w        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
: K2 o! D! M3 _
        ' 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
# ^3 H, m6 @* A        Dim measureDistance1 As MeasureDistance

3 ]+ y$ p& D( }* d# \5 I2 P3 y        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
4 r2 g! X/ ?9 U9 a8 o        theLW.Open()
" K; T* w- C; P( O8 P5 m        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
: n; V' a( j4 g8 B
! D; K' O0 ?% M' v1 f8 w        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
  P9 Y0 W  W; V' M# S+ w        measureDistance1.Dispose()[/mw_shl_code]
# |' w5 M4 o: v. j! S