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

admin

) t# R2 t3 ~0 f, B4 ~+ @1 J' D7 xNX二次开发源码分享：测量两个对象之间最短距离
, r( {: _, E! L) U
0 o! m( C! r" E9 w3 d[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
1 m+ z4 _) m- g  Q: p+ y4 a+ r        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
( ^* V  J& o1 |: a        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
  _1 H8 o7 @3 I

        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
7 F& ^, b$ a" r& u2 n
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
& w6 C, o) N9 Y# G$ Q            MeasureManager.MeasureType.Maximum, object1, object2)
$ D0 a5 e$ E: B( r4 g/ b) o
        Dim theLW As ListingWindow = theSession.ListingWindow
  s7 o& k2 w( r( A) s        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

& D' R/ s* ], D' N, @; w
! D& q9 L( H& k) Z7 s# S6 F        measureDistance1.Dispose()[/mw_shl_code]
8 E4 y/ S% Y$ U