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

admin

! ^+ z+ G5 N! k7 i0 E) k/ qNX二次开发源码分享：测量两个对象之间最短距离
. q, Z) r2 t- [4 B& l  B2 @
) V9 Y, p% ^. L8 o$ n[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
) m, G" m5 n+ B7 T
9 I5 x0 R4 N- N. k/ G& Z# J. U        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
' Y. R" E8 q1 w: e: a
( b- `; p% }3 y
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
( _. n% e' {3 l: P        Dim nullUnit As Unit = Nothing
# S* L9 Q# h( o: [        Dim measureDistance1 As MeasureDistance

% n! O( x  k8 c2 z7 W        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)
# D. V1 Q5 y0 P/ N7 L
7 _$ e# Y( \% u! A4 G; b, A        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
, }  H7 u0 T5 ~/ X

        measureDistance1.Dispose()[/mw_shl_code]
$ r# k7 R) p  j% {) |