NX二次开发源码分享：测量两个对象之间最短距离

admin

4 y2 x; ?# c6 ~; Q- KNX二次开发源码分享：测量两个对象之间最短距离
6 p9 i" {3 M; ], M0 Y, X5 I% @2 T9 h
3 G( v& M5 p5 n( o3 N! X. a[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
9 r# o% ~) }, p6 E        Dim workPart As Part = theSession.Parts.Work

. f% @  i! k1 p; s, B% w; Y        Dim object1 As DisplayableObject = SelectAnObject("First Object")
  Y6 j* J$ L. ~. H8 v4 l        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
0 C% u7 T" T; w& H2 z* d( s; z
- K4 \$ [& ?* u# L
! S! p9 z- J5 H; \% j        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
# S( _. {( I/ g2 E6 Y( @        Dim nullUnit As Unit = Nothing
3 m) v2 u5 ?7 u; \3 P, I        Dim measureDistance1 As MeasureDistance
3 a  I0 F9 C: p# p/ X, E0 z# l' E  V# Y
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)
  M9 G* k3 `5 q0 j5 P7 f+ {
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
! u8 q) P$ Z2 J2 W% B7 e6 [        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))


        measureDistance1.Dispose()[/mw_shl_code]
: {8 s* a% B& `; K