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

admin

NX二次开发源码分享：测量两个对象之间最短距离
8 x+ f0 i  v3 b3 B
[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
( P+ ~# Q+ I9 A  J        Dim workPart As Part = theSession.Parts.Work
2 l. Q$ J* U; Z! U+ S7 X
0 M3 u% h$ Y. K. f; @        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

! T; J; W' Y, K
8 f% [( c# p4 e: V        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
6 }9 G! W% A! W8 Z( _        Dim measureDistance1 As MeasureDistance

2 V. Q1 N+ m) f* R7 P- n$ C2 p        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
: m* }) v( t2 i1 k# J8 w8 ^2 X/ ?            MeasureManager.MeasureType.Maximum, object1, object2)

* T% g# N; n5 g& B( F. d        Dim theLW As ListingWindow = theSession.ListingWindow
  l- w  b& e8 g        theLW.Open()
* U7 H  S: G! Y8 H9 ^        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
: h0 G; i7 d$ k6 q8 x& d( J" o! Y
  ~" {' x2 f- v/ F, E
2 ?2 Q* v3 I4 |        measureDistance1.Dispose()[/mw_shl_code]
& L6 p/ B4 l9 l/ T% a2 K