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

admin

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

* ]7 T4 I. O& D; o! G
[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")
' n0 {! p7 H3 k, v+ v0 {4 Z        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
) r- g  n" M( v: }. ]; X8 g- i' ~) I4 Z
5 g: A. E& }; }8 A" z* s        ' 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
7 W* I8 r7 l9 }2 E* A' m( p8 m        Dim measureDistance1 As MeasureDistance
1 @( L# ~' S, W- i
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
: k+ h. ^4 x  l: `" Y6 V4 [# O            MeasureManager.MeasureType.Minimum, object1, object2)

$ {1 }' W- n" P: L. P& M( S        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
* }8 [; x5 s' {$ ]/ [# h0 f        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
4 x2 e, T" R4 z' Z. A
        ' optionally, create Distance Measurement feature (needs solid_modeling)
8 U& N* B  U+ E# C) G: x3 G3 b        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
4 e! g# I. a& H% Y) U        measureDistance1.Dispose()[/mw_shl_code]