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

admin

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

# S5 {& u0 {! t+ y  ?+ G( x
[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
1 B: e& L8 o% G0 M; ]        Dim workPart As Part = theSession.Parts.Work

! v+ a9 w; z3 X8 `: b! q* I        Dim object1 As DisplayableObject = SelectAnObject("First Object")
7 S  W* g' s+ ]* w: I4 ]! U        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

7 ^, G6 Z, \3 ~' k2 F        ' either obtain Unit as desired or use default (null) unit
; M7 J, Z6 O, J        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
+ [- Y- \6 r: [) f        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
( G% `5 a' q5 [6 G
+ L8 i6 ^0 F3 R( ?5 b' s% B$ M- j2 g        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
+ k7 O' A9 f9 R# N" A0 {+ g7 d# J            MeasureManager.MeasureType.Minimum, object1, object2)
+ M, v9 L# l4 l# S) G$ k- u
0 A2 V$ {5 E& n3 L' @  }* i        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
4 T8 m5 ?* P) E5 g        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

  {& A" g% l" T  e6 G7 E        ' optionally, create Distance Measurement feature (needs solid_modeling)
" ?0 ^( E& u1 X* D+ |0 L4 g- ~        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]