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

admin

! A: x1 D3 k& ]" G8 d8 k% Q4 mNX二次开发源码分享: 使用NXOpen获取对象最小距离


9 b7 s9 \( X; G+ i1 \' U[mw_shl_code=csharp,true]
$ _7 }" z3 ]6 U7 u1 {* O5 g" D  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
& }! `- g' ^& W
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

* ~6 W1 _; w1 p1 e" p) g        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
) J: g& r4 r& P" i- ~        Dim nullUnit As Unit = Nothing
8 D# q; C7 A0 _6 a        Dim measureDistance1 As MeasureDistance
) j% Z% o1 @0 r) o
# q1 F8 D& h5 C  A! y        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)
% T; e2 @% O- b( y/ }4 B9 P
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

. g( Z  ?2 u& e6 S( ~8 B        ' optionally, create Distance Measurement feature (needs solid_modeling)
0 F! K, `8 O2 R" A7 a        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
& D" f  B" C( b        measureDistance1.Dispose()[/mw_shl_code]