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

admin

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

' Z! S9 W' l7 k6 S9 Q5 S/ X: @[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
9 v# @% p% b: P2 w        Dim workPart As Part = theSession.Parts.Work

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


        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
: z& Z3 j+ D; O' `) m- \        Dim measureDistance1 As MeasureDistance
( q, a" z! {; f- P: _
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
/ w6 _4 [9 o  w) G4 A            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
4 `6 w( [& v. u; ?  X$ g6 _* F        theLW.Open()
  X& j( z( F" \, _9 J        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
6 w9 d, m! J. Q  r6 M# ^) ^- s, E

        measureDistance1.Dispose()[/mw_shl_code]