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

admin

3 @- O2 ]% L, E9 T0 y+ kNX二次开发源码分享: 使用NXOpen获取对象最小距离


[mw_shl_code=csharp,true]
- L) e$ C2 S% N8 S7 H3 f+ B  Dim theSession As Session = Session.GetSession()
# e- Z7 D# ?0 l7 }        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
; \) D# y  u7 B$ [. q        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
7 D+ P, K1 B) y% \) o3 D  ]
: Q0 O8 a8 K, s0 p  M7 O  z7 i        ' either obtain Unit as desired or use default (null) unit
/ L( W% p4 k+ ?# |        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
4 p, ^9 t- w$ W" K) O! Z( |/ K        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
% a9 v, H6 R$ ?
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
2 M+ c+ X0 v" B            MeasureManager.MeasureType.Minimum, object1, object2)
/ _% c4 a2 F- n% V; y& ~
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
. U; H& W9 _' d        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]
- C5 r+ M. m/ A2 U+ R