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

admin

* m0 K6 P  S0 l0 r3 K! o/ r" VNX二次开发源码分享: 使用NXOpen获取对象最小距离
% h! x2 `. S6 c' K1 m$ V; i. N
1 o. H) @2 o( {
8 f* Z. \/ \+ J* V[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
, Y/ Q3 m% `. Q9 {8 j
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
' C* `4 l' R7 c% q7 p5 L6 O1 ?) r0 b        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
. X, u2 r2 p$ Q- h2 }% g; {& e6 m
1 B3 x& \8 K/ i' N8 X        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
/ K6 ?6 W& l' p2 R        Dim measureDistance1 As MeasureDistance
/ s: l+ A# t7 f. N' ~3 k& u: s! T
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
8 V1 @5 K2 T" u: R            MeasureManager.MeasureType.Minimum, object1, object2)

+ R9 U; [5 P; q* e        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
3 l$ Y" O* d8 D        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

" f4 b9 B6 o9 y( \, A1 m        ' optionally, create Distance Measurement feature (needs solid_modeling)
; M. c" v" Q4 j; R  ]8 Y        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]
  G" P6 T4 t3 A; `# K" X" _