NX二次开发源码分享: 使用NXOpen获取对象最小距离

admin

' p; O: l, A' _+ W  T
NX二次开发源码分享: 使用NXOpen获取对象最小距离

& @! c* `  w' E$ x! w
3 }+ J6 u( N6 |[mw_shl_code=csharp,true]
* y) ^1 G5 G  y8 I- F  Dim theSession As Session = Session.GetSession()
7 I; Z7 z5 ~5 W+ O        Dim workPart As Part = theSession.Parts.Work
9 u7 b  |6 C* Q" w
( @/ r5 h3 p# s% v        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
7 _1 m  {) Z2 n0 r3 J# ?
* X1 C! I6 Z. R* E' A/ `5 ^        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
5 q! w1 ?& e  S! x        Dim nullUnit As Unit = Nothing
* P: q# }0 m$ K" q        Dim measureDistance1 As MeasureDistance

! W3 G4 Y6 L! R6 J9 S4 v5 w) j        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
7 |2 L* \0 c* I( c+ C* Y, `$ S            MeasureManager.MeasureType.Minimum, object1, object2)
( m8 N6 v! z) i( r1 p2 V( `! _
  l+ T9 G. o3 Q1 Y* H        Dim theLW As ListingWindow = theSession.ListingWindow
: T, U; F6 C5 Z% u* N        theLW.Open()
' T! X2 J/ {5 |8 z  P" l; ]8 z        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

& h( Q  [/ j5 e        ' optionally, create Distance Measurement feature (needs solid_modeling)
' p' k. Y, U  }' a+ l        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
) f! j$ ~& L' N" @        measureDistance1.Dispose()[/mw_shl_code]