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

admin

, n& }: @" _% S  {NX二次开发源码分享: 使用NXOpen获取对象最小距离
, B. x# l; d, m

; X& O) M7 c% m: ?, C[mw_shl_code=csharp,true]
, b5 |: j! l' X  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")

& s$ l1 Q! T- P( z8 b$ S        ' either obtain Unit as desired or use default (null) unit
/ p( C: V, [2 L        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
9 l7 U( J) Z+ v2 o4 {        Dim measureDistance1 As MeasureDistance
" @5 W$ b6 o* }' Y
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
8 E' r9 d, q% P$ G- n            MeasureManager.MeasureType.Minimum, object1, object2)
5 Y$ t: m" T  M7 T2 y. u
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
4 R0 p8 ?2 u6 ]" H: P        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
' x8 {9 V* S& b
        ' optionally, create Distance Measurement feature (needs solid_modeling)
' }4 E3 @2 @: R( Y' W1 r        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]