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

admin

3 n2 a1 [: W+ p: ~NX二次开发源码分享：测量两个对象之间最短距离

[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

5 O. I8 o1 H2 E+ D3 F        Dim object1 As DisplayableObject = SelectAnObject("First Object")
8 J4 a3 T5 v0 _  A        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

$ E3 y/ d1 q% w5 b+ B7 l' O
- f2 I# P8 F; z2 Z0 y, L; c        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

2 r* O: T3 ^: b3 Z, m        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
9 s! V3 }4 d2 s; D- c! {            MeasureManager.MeasureType.Maximum, object1, object2)
. z: E- C  N8 S5 }2 ^* q
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
8 I% K$ r( i1 H$ e$ Z        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
& F4 R* B# h/ s

        measureDistance1.Dispose()[/mw_shl_code]
' c9 X; A. S5 H1 G2 q4 u! \