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

admin

, g: K' G% N" Y: C% W
0 i7 V% t6 k) t7 YNX二次开发源码分享: 使用NXOpen获取对象最小距离


[mw_shl_code=csharp,true]
+ \! R) z% C( F+ ~# {# A4 ^  Dim theSession As Session = Session.GetSession()
. I& z. ^4 C+ l( u: p        Dim workPart As Part = theSession.Parts.Work
0 M6 \6 \. r0 h: y
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
& y, `0 P" g5 C( |+ }3 b( p1 y
: C4 i8 a  |, T$ h( K, c        ' 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
        Dim measureDistance1 As MeasureDistance
, d( g& u! @, f9 |: `/ i9 O
8 X6 r$ |7 N& i6 w        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)

3 ~8 s7 ^& {. |, e" g7 J$ s0 P& N        Dim theLW As ListingWindow = theSession.ListingWindow
# p! A6 [  n0 u5 G: m8 G        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()
        measureDistance1.Dispose()[/mw_shl_code]