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

admin

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

6 D- u/ t/ S% b[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
; m2 M" A0 @: u% W        Dim workPart As Part = theSession.Parts.Work
8 K, ~. R2 n" L  L+ b6 X* ~8 H
% c2 N- E+ Y( x0 g( ]/ ~4 z        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
( G+ Z7 J- B) S( g7 X, m2 t

        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
( T) {( V5 \2 C# l- G        Dim measureDistance1 As MeasureDistance
2 i0 f) a# R! ~4 H" `. f
* W9 f/ o7 @! `/ r- x        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)
. R1 H# E' ]$ V8 i* r4 s
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
, J! S/ i# X" M" h0 f. ]# Z        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

; i' n9 Z. R/ F9 k& K
        measureDistance1.Dispose()[/mw_shl_code]