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

admin

  ^( \) Q0 O- g) U
) Q. T! [: P) N2 S' PNX二次开发源码分享: 使用NXOpen获取对象最小距离

4 E; P& i: D) a* j
$ V; `: t/ T0 q- G: ?[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

1 \3 A# K0 w" ^6 m' w7 ?& G        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
! Q& i0 n! h6 e5 o" ^* `# K
        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
% M- v; ]5 }9 I; n& l  m" P        Dim nullUnit As Unit = Nothing
& K5 ]" U9 t+ q+ k+ }" V) B% o        Dim measureDistance1 As MeasureDistance
1 r; J4 W4 j7 R) K0 P! B
2 {" C& u" O+ X3 i# N; {, o# O: @% w        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
0 Y) N4 F- S, o: T            MeasureManager.MeasureType.Minimum, object1, object2)
) {2 _: A! d- H+ ^* V, v
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
1 O) w/ R1 _, P% _. |" W5 L" u        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

        ' optionally, create Distance Measurement feature (needs solid_modeling)
. i6 S0 i! r; \0 J5 R0 t% ?        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]
: N7 _& G% b1 @* G- U6 Z2 L+ C) j