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

admin

4 D6 \' h- O  n6 M$ f" i
NX二次开发源码分享: 使用NXOpen获取对象最小距离


[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")
        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)
        Dim nullUnit As Unit = Nothing
! X! q) K- f+ U  G        Dim measureDistance1 As MeasureDistance

6 x: u" I) N( K7 v2 ^" p! y' [/ Q        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
9 ^4 _7 u) Z& O! h  t) A            MeasureManager.MeasureType.Minimum, object1, object2)

$ v) f. R# |0 o3 ?. k        Dim theLW As ListingWindow = theSession.ListingWindow
3 |1 `- C: Z8 u5 G+ r: t5 j+ W        theLW.Open()
% k% e1 c' q+ a0 H+ g" W        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
3 ?2 W3 {! W( W
1 L: O( S! d7 [/ b( W5 G        ' optionally, create Distance Measurement feature (needs solid_modeling)
9 I; |8 W6 u. c; Z5 J7 I7 H        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
/ x2 V6 T7 `0 X6 @$ {1 Y        measureDistance1.Dispose()[/mw_shl_code]