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

admin

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

[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
2 X+ A( k9 @8 r" C+ ^        Dim workPart As Part = theSession.Parts.Work
, L8 @0 [' O9 O" e2 I$ s9 Y, F
6 M: v( m3 t# O        Dim object1 As DisplayableObject = SelectAnObject("First Object")
6 t3 M* k% _: R: O/ T) P+ I5 v        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

8 K, {9 X7 O; e2 f' C
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
! F$ r1 K3 I7 e. a        Dim nullUnit As Unit = Nothing
4 g1 M) H4 I" _8 G        Dim measureDistance1 As MeasureDistance

+ a( {4 r  f8 g1 Y" V        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

: ^: n* {( c; u9 n" H1 \
        measureDistance1.Dispose()[/mw_shl_code]
( q& d$ @" m- ]5 y0 |* K