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

admin

NX二次开发源码分享：测量两个对象之间最短距离
0 x- d$ {5 h1 g7 e
[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
/ K4 o/ G8 `4 K1 o$ R: j/ `% m, ]        Dim workPart As Part = theSession.Parts.Work

% T" ~5 e$ u: v3 W9 Z( W        Dim object1 As DisplayableObject = SelectAnObject("First Object")
. Z8 b8 h. o) x% u) ~4 f7 y* z7 {  ^        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
  B% `- W6 v- j
7 k) l  q1 j) r
9 {, N/ {5 n& A' s& o. ]/ P5 v        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

* U' Y# _$ E) C4 R/ h2 E: n* S        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
! Z: `# K. E1 Q+ Q            MeasureManager.MeasureType.Maximum, object1, object2)

( x5 X2 }! y# Z1 e4 y( [        Dim theLW As ListingWindow = theSession.ListingWindow
2 T' g6 I) h7 K- n' l" V1 V) }. D( c( m        theLW.Open()
- u9 f4 I& b2 M: F# H- `        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))


' v8 q, Z7 \0 o- N* h        measureDistance1.Dispose()[/mw_shl_code]