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

admin

NX二次开发源码分享: 使用NXOpen获取对象最小距离
6 ]4 }& p: @, E$ G3 c
8 ?4 i7 ^* r% N! y8 K
; b* k2 [7 d' c' N% z( h8 X[mw_shl_code=csharp,true]
# H. B+ B) R. N* ^4 E( o" S( b" ?  Dim theSession As Session = Session.GetSession()
% U3 n: j& R* C6 W& y1 o- t        Dim workPart As Part = theSession.Parts.Work
. I8 u4 U9 b  _& F4 ]  q
7 Q) w7 {8 s% y" D; d        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
        Dim measureDistance1 As MeasureDistance

: g' T* e0 f) |4 [- b1 }        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
+ b/ S8 _7 ?: g  @4 ?4 W0 o- ~            MeasureManager.MeasureType.Minimum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
% q. I& K/ F  E' z8 u        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

( O  ~  b$ k5 M& L9 R        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
! K( r, @  H7 E+ L; ]$ x        measureDistance1.Dispose()[/mw_shl_code]
  J8 z6 S5 P2 a* Q( g