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

admin

NX二次开发源码分享：测量两个对象之间最短距离
% C8 U5 |$ r4 W" g
( F2 N( v, D7 v+ M[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

" e; d) {2 U* k) M        Dim object1 As DisplayableObject = SelectAnObject("First Object")
3 r5 H& _" X6 ~# y+ i+ D% a        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
8 y2 ~8 ?( V( J! v

        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
7 T% y! r! Z0 Y5 F/ c        Dim measureDistance1 As MeasureDistance

1 k/ A; A  w$ p4 m        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)
9 o0 h% q: U! D5 A4 {! m
( T) P, N* f* A, \2 `1 J7 ^8 m6 e0 [& ?        Dim theLW As ListingWindow = theSession.ListingWindow
+ ?8 j  c$ }; A, h$ o. Z# ^- v        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
; S& y% R/ I+ c( Y. ^

4 c  O" E6 M- ?; T! S% y        measureDistance1.Dispose()[/mw_shl_code]