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

admin

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

[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
2 I( M7 Q; R  ]7 c' t        Dim workPart As Part = theSession.Parts.Work

% m( }' t7 [+ G+ [* |8 i        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
9 }, u( j; F% F; ~: C8 @) g% |3 U
" K$ v2 X" S% [2 ]
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
4 l. d8 [; u& u        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

% Q) I8 P1 S/ g( P4 w        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
; D2 B3 P! I1 `9 h/ y: D4 U8 D$ `0 r            MeasureManager.MeasureType.Maximum, object1, object2)

9 ~4 j( g. R6 s! n: ?: o' k0 P        Dim theLW As ListingWindow = theSession.ListingWindow
% w* M" |  A6 Z9 G3 _3 X1 H        theLW.Open()
$ f' J. C3 H3 q3 H8 I7 M        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

5 G4 t  h1 A! ~  t
        measureDistance1.Dispose()[/mw_shl_code]
; W$ _; q) ?' Y! L, r9 H) e% X