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

admin

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

[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
  Q, c- p1 I. A* y/ j0 J# M. U        Dim workPart As Part = theSession.Parts.Work
& E3 W8 T$ I% P
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
/ Y9 ^4 P, [3 L        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
  ?% e6 O, N! U" @: {! g3 z  D$ @7 u4 f
) w9 b) ?' b! t, v' q. I7 k
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
6 _, u# {: t' s& o: X2 a% L        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
0 B+ H8 _2 L( U
! a2 |( g, b- Q        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
  b7 p0 i7 n# E0 X; g5 v            MeasureManager.MeasureType.Maximum, object1, object2)
, Q: ]# H! d! ]  l! A$ t' A- |
        Dim theLW As ListingWindow = theSession.ListingWindow
8 Z" S- x2 c% ]( v, k0 ?        theLW.Open()
5 ]! U' _5 q( A( |# Q        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
2 Q3 m. M3 z8 X$ u: q* }( q

: N" g4 n% V  z3 r5 ^" n3 M        measureDistance1.Dispose()[/mw_shl_code]
6 [, A; }0 W2 r1 A  [3 ]( S