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

admin

NX二次开发源码分享：测量两个对象之间最短距离
. W- T  u  O& X* A- L
$ x2 b7 w9 g2 W! m  [. L! w[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
; K$ ]# k7 F! P. w& v        Dim workPart As Part = theSession.Parts.Work
7 |  o; f' k* O5 @2 x$ j# o) u& j
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
6 X- I2 r! u+ D/ \" H- ^        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

% M2 D2 A8 G3 F8 C7 ^
4 O0 p. q# n( N0 n        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
0 e. z- X5 [" \+ N8 ?' X        Dim nullUnit As Unit = Nothing
, u+ H  f( |9 p" K; n& B" \        Dim measureDistance1 As MeasureDistance
8 ~( W- b3 Y4 X+ i
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

3 t- i! c0 s5 V: Q4 S: y, d        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
, F. p2 w" n, \; |: x        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

* W5 E. p2 J/ x; x9 _
        measureDistance1.Dispose()[/mw_shl_code]
9 h, x' \* R$ L  Z