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

admin

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


  ]0 E8 P0 N2 V5 _" V7 T; k- M[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
  R" E! o# ]/ n
9 H' ~" m( U. R2 Y        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
# r2 f! s! A$ G/ D" Z
6 [  _  q/ O$ E- K( U8 U$ J        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
5 c3 T$ ~: d/ s  ^3 c: c        Dim nullUnit As Unit = Nothing
- z0 Y" |, I8 f        Dim measureDistance1 As MeasureDistance

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
) l- u1 L. Z4 D' n$ X6 f4 I% n' D8 ]            MeasureManager.MeasureType.Minimum, object1, object2)
3 y  j6 ]5 o/ x* B% K. g0 T
3 {: \% p# J5 j( ?2 h; v# t7 U  Q        Dim theLW As ListingWindow = theSession.ListingWindow
; Y; E  E* _4 O& r  \        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()
        measureDistance1.Dispose()[/mw_shl_code]
2 t& U" i% T  x' K/ ?" ~