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

admin

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

% M$ Q; K; m" u! r[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
+ b! K& B0 g5 @. A        Dim workPart As Part = theSession.Parts.Work
. N2 o  A8 b* v& g* V9 {* E* L
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
' N6 Y# d( v1 G" ~3 |' d2 d6 ~        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
& \/ c) a, f7 C/ Y6 }

        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
- T* o' b1 N7 i& l8 k        Dim measureDistance1 As MeasureDistance

( T1 F" w+ w% X6 p  T        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

; S. k8 {( ^. P5 `# ?        Dim theLW As ListingWindow = theSession.ListingWindow
  s1 w( K6 v3 T        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
- v. C+ i# d" ?" ^/ T; T& R$ |

        measureDistance1.Dispose()[/mw_shl_code]
3 b7 X, l& @+ R! \2 C& {1 a