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

admin

NX二次开发源码分享：测量两个对象之间最短距离
) q% i) s7 A/ P% L# Q
2 p1 e% f  Q& J; G4 F[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
3 q6 l; o2 x$ \# ?0 b
( {9 T, E2 {$ M        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")


        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
* u* r1 u+ m4 P& k        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)
- b. u( [: @& U/ u5 K
9 W# p2 S% n# s8 y9 q        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))


: U) \) x# C9 V" H        measureDistance1.Dispose()[/mw_shl_code]