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

admin

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

[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
9 {# [, i0 J1 s, d1 i( B8 Q
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
1 ?4 p2 H: x" F: L+ y        Dim object2 As DisplayableObject = SelectAnObject("Second Object")


        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
; N& W- `$ @* x7 v        Dim nullUnit As Unit = Nothing
, W# k! m  B% }# C3 A% j; h. Z5 |        Dim measureDistance1 As MeasureDistance
8 d2 m: b9 c0 l4 W
+ o3 L8 W% }% K3 N9 m        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)
. a- W1 [. e8 J+ e. l% \5 N
        Dim theLW As ListingWindow = theSession.ListingWindow
$ x2 d; R8 [# L" }3 Z        theLW.Open()
$ }0 N7 E5 V: a7 L  }+ T        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

( b0 ], |9 N$ y) W  q$ j* H! }
        measureDistance1.Dispose()[/mw_shl_code]
+ k# S- L+ v0 X$ e; }  C# I  n