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

admin

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

6 E* C9 i8 t4 R* a: L% g. n[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
  U+ T1 l( }! a2 W& V8 l* a
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
' K1 |9 G7 w* W/ ~/ M. ]        Dim object2 As DisplayableObject = SelectAnObject("Second Object")


5 R& P) D& H( x+ e8 x        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
3 l" W9 Y" \. f! V1 `2 E        Dim measureDistance1 As MeasureDistance
$ d# Z8 I: |# }
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
, U9 p& L: o% a; s            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
! }7 E: {8 R: p        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
* x, u3 q( p+ D# Z/ E# R

        measureDistance1.Dispose()[/mw_shl_code]
  r' K7 T6 c" o6 ]