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

admin

NX二次开发源码分享：测量两个对象之间最短距离
8 c$ b' f- d' A9 s7 Y5 e5 e0 Q
+ a" j- w  L4 t6 b8 K0 I[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
: J/ l% T9 m5 f: A& Z6 \& d
" F/ o: {8 U2 t3 o8 K" Z5 K        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
; A4 Q* U' u* s+ w, J& W5 k

        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
" _. H- C# h; U, y+ V        Dim measureDistance1 As MeasureDistance
1 u+ g- z  T- E
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
7 V' f  h' r" y7 j            MeasureManager.MeasureType.Maximum, object1, object2)

6 Z4 o; n3 `6 B. W        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
: l0 A2 d- _$ ?3 S, V' ^  [        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

& L2 V3 D  h" Y: V6 [+ @
        measureDistance1.Dispose()[/mw_shl_code]