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

admin

9 v, C5 O' e* n0 x
NX二次开发源码分享: 使用NXOpen获取对象最小距离

$ S% K/ l5 L9 F9 r/ `
4 G' {/ Y3 g% {8 V6 v; G[mw_shl_code=csharp,true]
. _- w7 c1 M) Y9 z; M7 |8 g  Dim theSession As Session = Session.GetSession()
' g; _+ q( Y. f& n2 X        Dim workPart As Part = theSession.Parts.Work

  A% f3 C6 L9 r% \1 |) Y        Dim object1 As DisplayableObject = SelectAnObject("First Object")
, t; U4 r: }5 L6 [, _* R# C- c        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
- G! k- a; [. p& c: H& D4 u8 `' p        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
4 J3 R) C9 G3 B! _& d
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)
9 `5 n/ R2 b+ H5 o" A! n  |8 e
        Dim theLW As ListingWindow = theSession.ListingWindow
! z8 V) a& ?& ^6 E$ E        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
/ n8 T3 {& A6 P) {& B
! y$ {5 ?# Q2 `& w        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]