NX二次开发源码分享: 使用NXOpen获取对象最小距离

admin

! f, K  X' Y' _" ?9 N
NX二次开发源码分享: 使用NXOpen获取对象最小距离
6 L. ?" x6 h* y& Q; _" A
: X- E  I6 |/ o; f
5 }6 \9 x: y/ l[mw_shl_code=csharp,true]
/ O+ Y" \* s# i' y- Y: f9 |  Dim theSession As Session = Session.GetSession()
/ E" {& y3 I) n: N* s+ D" x  m        Dim workPart As Part = theSession.Parts.Work
9 }: e$ j% v& ]+ s! E" T
* }4 n2 P4 o6 D7 g8 B8 m        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
- R( {; z. c0 I" S' y        Dim nullUnit As Unit = Nothing
& v8 j1 d% e3 ~        Dim measureDistance1 As MeasureDistance

8 n& S$ m# E* ~# x- m) v  H! u        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)
; Q! A5 }3 d% c% _$ O7 O4 F
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

1 X# v! O  v8 q        ' optionally, create Distance Measurement feature (needs solid_modeling)
2 _0 C4 l  t, _        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
8 Z) h& E$ M% ?        measureDistance1.Dispose()[/mw_shl_code]
# a1 C5 \" v1 a; }0 s! y