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

admin

NX二次开发源码分享：测量两个对象之间最短距离
8 i% L2 ^, g4 g5 A9 O, n  z+ ~/ I' O' H
[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
: u9 W) p% ^2 f$ p        Dim workPart As Part = theSession.Parts.Work
) T2 y$ w( }3 e7 @
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
5 a) N: w: A& n+ u% O4 c        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
# ]0 }6 \# C5 r9 e, r, k; d/ Q
: @6 e  W7 p9 S% `3 u
$ m7 j5 t* E' t8 ^0 w( Z        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
6 [8 o7 z7 O2 p' Y- k  W$ i5 x3 @        Dim nullUnit As Unit = Nothing
  Q$ Y6 K% {5 G" R! ?        Dim measureDistance1 As MeasureDistance

9 a$ [' Z' O  g        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
0 p8 d2 m+ T. ?# }' \; Q( V8 m, `            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
! a3 S4 ?1 V# \. i        theLW.Open()
  A& h, }8 n! B. P7 K  N- l        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
0 I, n/ Q' Y4 z

        measureDistance1.Dispose()[/mw_shl_code]