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

admin

+ D9 V) Y) U+ E9 _5 l+ gNX二次开发源码分享: 使用NXOpen获取对象最小距离
; w$ U7 B; p& S1 `) a# g$ N

7 \! ~, t3 `0 L& _" o: M9 \9 P[mw_shl_code=csharp,true]
# G( r5 N1 E1 ?/ J, Q1 c" @  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
0 Y% r; C; u/ f% V2 q) }
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
/ J! L4 X& p: d; {: e; h        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
8 s* p/ N6 d1 O, j1 l( 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
/ V$ x5 L) s' [& [# z! b        Dim measureDistance1 As MeasureDistance

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)

# i% ?+ b6 \9 y$ M- c4 [7 w% }        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
( T) q, n% q9 l2 z        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
; i. I( l3 b$ [! I/ A
% I' _8 N1 v1 g& F        ' optionally, create Distance Measurement feature (needs solid_modeling)
4 c; ?: d) E  i        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]
  W+ ]  {' ^; W. W) I3 }