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

admin

: B2 i3 D" {+ V) J
NX二次开发源码分享: 使用NXOpen获取对象最小距离
) f8 h, _" m/ A: z" X9 E
8 X* [5 m6 n% g
% P$ W5 @0 E7 i- b[mw_shl_code=csharp,true]
3 f  ]3 T7 M/ k* j: ~: M  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")
8 _' y# U1 g  N* \' A! I0 H
        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
5 f! m6 }1 w8 i9 g  k* }9 @9 l        Dim nullUnit As Unit = Nothing
5 l) ]. I8 ]' y7 r9 L        Dim measureDistance1 As MeasureDistance
; S; u" L/ [. I# X4 s: i& c
% o' L' _: d4 o! j3 {        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
- ^/ W1 y/ o5 w+ u/ R/ x& A            MeasureManager.MeasureType.Minimum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
4 Y* h9 ~9 ?, H7 W        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
* a( x" l1 x* E" k) L) A# D
        ' optionally, create Distance Measurement feature (needs solid_modeling)
/ I2 F3 ?" P1 X( q/ O        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
% t- w# s3 g' s$ J) Y& e, [7 s        measureDistance1.Dispose()[/mw_shl_code]