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

admin

: w" H, a+ @; W! [  X" |NX二次开发源码分享：测量两个对象之间最短距离
  x8 G" m8 o# M- L0 T- m
[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

- _7 T* P1 @$ R( t        Dim object1 As DisplayableObject = SelectAnObject("First Object")
1 }: Z! b6 X- I& E% u4 i$ u# P        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
, ~+ F; k4 a' k  ]
3 Z6 _/ s/ k# d& Z) o4 F1 G' [* I
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
( p& u: k5 l0 m        Dim measureDistance1 As MeasureDistance
  D8 i* i3 o+ j! z2 v+ ?7 o* \
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

: o2 r8 d7 s5 L' a: F4 T        Dim theLW As ListingWindow = theSession.ListingWindow
* F/ }0 c- x' C  L* a1 I        theLW.Open()
/ p5 k/ e+ L$ }  |/ J4 z. l; H  J8 @        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

& H4 g) I; m5 z/ W- E0 Q$ Z
        measureDistance1.Dispose()[/mw_shl_code]