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

admin

: C' r# j! g: a) g$ M9 m
NX二次开发源码分享: 使用NXOpen获取对象最小距离


! y9 K/ m, m0 c[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
( f; l; m6 P* |- h/ p
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
8 Z) ?5 ?1 g3 K% g6 {$ n        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
: \4 C8 @7 `3 }2 r6 r+ T
5 C+ Y- L0 C0 o        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
, k% F1 t: Z, q6 H* `  E        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

' |# h- H) x) A. o/ H( Q        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)
/ o% b9 l5 A4 n) p8 B# D5 w
        Dim theLW As ListingWindow = theSession.ListingWindow
7 V4 q  X2 M# F, ~* U2 L7 [& e$ q' x        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
) h) n' J, }- {$ H+ m0 J
0 g. [* j( L9 d+ l7 D- y5 v0 T3 `        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
  u5 H- v3 E2 f: F5 a/ n        measureDistance1.Dispose()[/mw_shl_code]
+ R& D7 W8 X4 {: \) }0 d