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

admin

( W/ g! l" W4 {% A" `7 hNX二次开发源码分享: 使用NXOpen获取对象最小距离

( _2 M: r* E+ ~1 y) m2 L
, r$ e4 l& N5 {$ p[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
+ F" `' `) d3 Z9 S$ H4 A
        ' either obtain Unit as desired or use default (null) unit
2 `+ W! E# v3 j4 x; Y5 K% Q+ ~        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
$ Y8 v9 @4 w& Z+ I        Dim measureDistance1 As MeasureDistance

( F: [' g& b% X8 z: a        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
/ O1 L0 Z' ]; E: T        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

; J3 i' p# S" [. [# `        ' optionally, create Distance Measurement feature (needs solid_modeling)
" ^( A( p0 J- i& O4 O        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]
, L, d; k5 y+ e% S( B