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

admin

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

1 `! _% i# ?) C[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
4 A" x. d$ J2 U& R0 c        Dim workPart As Part = theSession.Parts.Work
; F& E! ^, f0 H7 m
7 Q( ]2 f# O' o0 z. H% @        Dim object1 As DisplayableObject = SelectAnObject("First Object")
* x; k1 j1 U* x( U& |        Dim object2 As DisplayableObject = SelectAnObject("Second Object")


        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

! K* d- Q+ g0 J  L5 H) J' _/ ]$ s        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
+ q7 P# L+ N, J. J. i# h, N        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))


7 D: R8 Z1 z8 T& c5 k& i        measureDistance1.Dispose()[/mw_shl_code]