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

admin

NX二次开发源码分享：测量两个对象之间最短距离
4 }' v( H( F6 [, o0 U
9 ^, S7 C( l. P- P) q+ y[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
: r9 u) T5 Y) R# e2 C! y
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
! _1 V3 |' x( L9 P: ?0 V+ c        Dim object2 As DisplayableObject = SelectAnObject("Second Object")


        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
9 t1 w5 ^9 Q& o, }        Dim nullUnit As Unit = Nothing
4 n; M  Q8 Y5 t9 ?  u) g        Dim measureDistance1 As MeasureDistance
; {* ?6 _/ s2 f! C$ W% p. b
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
) n2 p) s' I' q8 j4 v9 }' F            MeasureManager.MeasureType.Maximum, object1, object2)
7 h9 F* w3 w  U: \
  E& r) ?2 \1 l        Dim theLW As ListingWindow = theSession.ListingWindow
' y1 f7 M0 T7 U( R        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))


9 ~# c) Q! z+ O2 _6 k4 f        measureDistance1.Dispose()[/mw_shl_code]