NX二次开发源码分享：测量两个对象之间最短距离

admin

NX二次开发源码分享：测量两个对象之间最短距离
0 o! s, b- T" j6 \+ l9 }3 q4 U* }
" N3 q! k' [2 m# h4 j[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
8 {6 k; s  U: S' i/ Y9 b4 B        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
  W# S( v% f! M" J' F" n# B
8 Y/ ]* f. V# l  s+ a
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
  l* ?  d& m+ N6 k  p        Dim nullUnit As Unit = Nothing
2 N4 J) p3 h* J3 h        Dim measureDistance1 As MeasureDistance

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)
/ \3 M8 d4 Y3 ^
7 h# Y# u. \8 n2 d/ @5 F        Dim theLW As ListingWindow = theSession.ListingWindow
3 \5 Q# P- v% a- Q) q/ V        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))


9 o3 l4 K, z& x( l        measureDistance1.Dispose()[/mw_shl_code]
* Q' K9 R8 E1 i: h3 [8 E