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

admin

9 q; B, [9 d- B# g$ N7 oNX二次开发源码分享：测量两个对象之间最短距离

! k: v. J/ a; w7 V9 o0 P1 i[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")
$ `0 ^! e, t# I' q/ ?/ k& }        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

2 @" R) d0 f) n$ t  N7 c, Y
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
2 ~2 s: }. d: s- {( q5 `        Dim measureDistance1 As MeasureDistance

+ B- M. d5 `7 F        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
- b' P, `" N5 U! W& U3 V: |( M            MeasureManager.MeasureType.Maximum, object1, object2)

. N: m* |" N9 ]* Q( B        Dim theLW As ListingWindow = theSession.ListingWindow
; @5 z3 P% Z+ @0 l% g" d$ {0 |        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
7 A, M8 O5 F; I' i4 h

. j; `; |7 W0 S: d5 A( t, _        measureDistance1.Dispose()[/mw_shl_code]
* w; R5 S$ t% w