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

admin

5 _5 V, p  }; S% _NX二次开发源码分享: 使用NXOpen获取对象最小距离
7 F7 M; Y1 q5 W6 i& b0 D
8 ]: U. W8 C' {
1 I! N' u' E! p[mw_shl_code=csharp,true]
1 D5 L3 `6 K' g* Z. H  Dim theSession As Session = Session.GetSession()
. C. ?2 Y8 I% y$ C" F        Dim workPart As Part = theSession.Parts.Work
3 E2 f: U" j) I* }% l4 x/ p/ G
# x- L  C5 O2 _6 d* Q        Dim object1 As DisplayableObject = SelectAnObject("First Object")
( N' F. }+ D# ~5 n        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

" m- B" R* S: X- L/ O% j        ' either obtain Unit as desired or use default (null) unit
8 v0 P1 j( ~2 r. ^4 o9 p9 v# |        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)

) C' i( P! |  d  ^' Y: q9 r! E" J        Dim theLW As ListingWindow = theSession.ListingWindow
4 A2 f4 M) b: h; o4 N: X        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]