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

admin

5 }% e! c) R  g$ u% G: ^' H" QNX二次开发源码分享：测量两个对象之间最短距离

[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
/ Y. z/ Q1 v$ N4 L$ v& [( j6 Q9 S0 ]+ x        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

# e1 f7 Z+ F' k: T
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
2 U/ \. Y) e; s  V* d  a        Dim measureDistance1 As MeasureDistance
  k; ?7 Y  ~! \# K, a
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)
& y. [  H: Z, y2 U( E2 o' ~2 p
        Dim theLW As ListingWindow = theSession.ListingWindow
+ }6 v' Q6 d/ l3 ]5 s; I/ L        theLW.Open()
# U2 _9 a/ u& q! U0 E        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))


        measureDistance1.Dispose()[/mw_shl_code]