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

admin

3 e6 b* u2 _: GNX二次开发源码分享：测量两个对象之间最短距离
, D* p* [2 v+ M7 b8 g  d; Y3 R
[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
' R: n4 [$ n% h6 A+ J8 S        Dim workPart As Part = theSession.Parts.Work

  N- f2 A( n; R" m9 ^        Dim object1 As DisplayableObject = SelectAnObject("First Object")
7 w  V; E6 {# a: }9 @        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
) [6 }( s4 N+ L" X

$ f6 ~/ [) ?1 ^, T  a        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
5 a" N) f( X5 h7 ?2 Q        Dim nullUnit As Unit = Nothing
  _' {) k( B- V* ]8 H/ Z        Dim measureDistance1 As MeasureDistance

: D+ c/ M% Z+ m( f) T        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

- L. e, D; M/ F- r9 g        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
4 \3 x1 G2 W0 U- F- N        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))


        measureDistance1.Dispose()[/mw_shl_code]
* V0 B7 c; n& N# K9 y) A; u$ A