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

admin

5 Q( b- |" c) ~
# q0 t2 F! a5 k) E: F- |NX二次开发源码分享: 使用NXOpen获取对象最小距离
9 @: h$ E& @3 ]4 ^/ G  k2 u

/ Y2 O8 R" Y% w6 L9 Q  Q+ u5 u[mw_shl_code=csharp,true]
8 m- C2 f, Y" C5 q9 w  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
5 o9 C9 k' h/ g- x% u/ A
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
) [, N) d- ^0 v# t
        ' either obtain Unit as desired or use default (null) unit
# x/ J& ?7 a7 X) P& Z# @' o        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
: O. ^2 v, E- n* j! O        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
3 H& m. o, |# |4 w) o  v; G
% s! x% R9 C* j        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)

; y7 V$ {6 X" l6 A5 `' {        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
9 S' B) {1 M4 [2 s' ?. Y; |        measureDistance1.Dispose()[/mw_shl_code]
, v# V3 S5 k, d( l! e7 W