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

admin

NX二次开发源码分享：测量两个对象之间最短距离
5 e" `2 v' a; D! K4 A
[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
) _/ a) r3 T/ n) N/ L        Dim workPart As Part = theSession.Parts.Work
/ _$ ]8 Z8 s( w1 |& b' \; @
: h' X( e. x7 s: A# v! J        Dim object1 As DisplayableObject = SelectAnObject("First Object")
3 N( T  g) w+ x  t; y* G        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

' U0 [$ c- A2 Q( x
8 V2 I, s6 w  t6 Z  |8 J0 y        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
5 ^  D1 S+ \  P0 T        Dim measureDistance1 As MeasureDistance
9 u- i) D3 ^" `: ~9 z# h
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
. e3 H) k& I$ Z& I* c+ P            MeasureManager.MeasureType.Maximum, object1, object2)
& R6 s4 L; {+ s5 P, c7 t. v# V
8 y# l) r! v  j7 \' t- n        Dim theLW As ListingWindow = theSession.ListingWindow
* j% C: t2 y6 ~! A- t        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

& u$ d3 F- g$ J: ~
        measureDistance1.Dispose()[/mw_shl_code]
! }" Y$ @( |) _( c/ s0 B) N