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

admin

# v( w; T) ~. T# o4 y, F; WNX二次开发源码分享: 使用NXOpen获取对象最小距离


$ t3 H% W" K2 S[mw_shl_code=csharp,true]
* Y" k' s$ @1 M1 V2 J  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
1 c/ d7 q, u) V- I( l& a+ k4 q
        ' either obtain Unit as desired or use default (null) unit
4 C8 e" i4 h4 _  W& v        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
9 b6 N- `& f5 w        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

2 F% h$ f6 s: O# F" B        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
& j7 y- D8 S, K7 I; a            MeasureManager.MeasureType.Minimum, object1, object2)
+ Q; Z: w/ K: j" t. x3 _  u
        Dim theLW As ListingWindow = theSession.ListingWindow
5 U8 k8 A2 C/ y/ W# u* H        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
3 u, Z# A% U8 ?5 [- V$ z$ k; [
        ' optionally, create Distance Measurement feature (needs solid_modeling)
" N! u" z; @/ G, y5 p2 p        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
- R4 R8 H: R- G: E        measureDistance1.Dispose()[/mw_shl_code]
+ Q: W) e3 H) G