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

admin

NX二次开发源码分享：测量两个对象之间最短距离
- k( R' e% B- |
[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
5 j( ^8 p8 l! a& g# \; e6 ~( [        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
0 p$ s& N8 {" n! n# h

        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
: D/ T  e' [% {; G# u
7 M" k; `; I$ O/ n) e        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
9 s$ F, [! Q0 }            MeasureManager.MeasureType.Maximum, object1, object2)
% K) [& ]& e9 c  m* Q9 c3 k: W
0 b7 i( \, E5 B& {4 r* B        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
0 \4 [( s( e3 N! d
  C9 x  C4 O$ l6 @+ d" l0 z' _
- g- m% r7 i% h9 F, K        measureDistance1.Dispose()[/mw_shl_code]