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

admin

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

! _; o1 R6 f7 o8 j0 u[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
! c6 J2 j& S6 Q0 p        Dim workPart As Part = theSession.Parts.Work

0 ~; }; P. e' @% l2 X: l! M% K' w6 F# G        Dim object1 As DisplayableObject = SelectAnObject("First Object")
+ Q& j  F3 }2 }5 c        Dim object2 As DisplayableObject = SelectAnObject("Second Object")


        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
- U2 q6 J! @6 Z        Dim measureDistance1 As MeasureDistance

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
' a8 L5 e' y! N# g        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

9 r; E7 P- a5 N* K- G3 q1 Z0 ?
0 [/ d) l! p# p7 z' j        measureDistance1.Dispose()[/mw_shl_code]