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

admin

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

- L/ S  Y$ x) V7 ~2 j2 w2 W
3 f4 T, ~& ~: |8 b$ K2 V/ |- i[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
4 V# P6 g' [1 ~  L) Q7 V, Z% q        Dim workPart As Part = theSession.Parts.Work

& g% i! E' S% D2 M4 x        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
+ E- {  ^- M+ [9 _" a: S5 n. B5 M
        ' either obtain Unit as desired or use default (null) unit
1 E% u4 M. i+ O6 _2 p: g( J. v/ M        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
6 B& h# l' ?0 N% D! W        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

" G7 T' W$ {  Z- N        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
8 O" @' h( G+ W
* S- d! W6 S' ]        ' optionally, create Distance Measurement feature (needs solid_modeling)
# W; }' t% p4 `% S4 O        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
8 G( K# f2 N4 j  x        measureDistance1.Dispose()[/mw_shl_code]
, ?' L( [% t9 \+ X' W7 E: @6 H