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

admin

; U6 o/ \, s# X- f' GNX二次开发源码分享: 使用NXOpen获取对象最小距离
, j# H1 t( N; l' K: A
* j3 Y2 R! A2 y0 i" O! u8 }
6 f. |  u( Z) f9 Z, b[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
! @$ B3 s4 N! R$ ?% Q        Dim workPart As Part = theSession.Parts.Work
0 z$ q  I7 T$ ?4 A
4 d' C0 ~0 y6 l+ q7 B        Dim object1 As DisplayableObject = SelectAnObject("First Object")
* l9 C+ \6 d& g: F0 N        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
. x/ B  }2 T! m7 W! t2 X
        ' 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, _
) N9 h6 o/ Y; e; D8 v; E            MeasureManager.MeasureType.Minimum, object1, object2)

' e9 D# B" P2 k  {, I        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

        ' optionally, create Distance Measurement feature (needs solid_modeling)
3 T4 e& r+ l( I! B5 S        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]