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

admin

% c: A3 A# o; K8 ]- R0 _) FNX二次开发源码分享：测量两个对象之间最短距离

[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
) X3 t& ?# U: p' j) i! d5 O        Dim workPart As Part = theSession.Parts.Work
# i1 Y5 }7 y* c! f. \2 Y
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
  B( w# {( P* J# R, S        Dim object2 As DisplayableObject = SelectAnObject("Second Object")


        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
! p9 r6 ~$ g% P) @# J8 w2 ?        Dim measureDistance1 As MeasureDistance
2 l0 W/ r8 z2 R& @* W3 K! V, Z" N
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
; a: Q7 h6 K/ u3 F9 X7 U        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
2 j( [- Z5 h) `3 y5 u
! P9 C) w5 l0 E" n  K2 H& {8 [
& Q! l$ x9 o# D        measureDistance1.Dispose()[/mw_shl_code]