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

admin

* a3 I" @, W: i" O/ Z3 ENX二次开发源码分享: 使用NXOpen获取对象最小距离


[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
* w8 ~6 b1 R* L
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
0 i5 k% m) y8 q6 M% j        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

5 ?6 J  M4 d) j& J        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
3 U, z$ r' a2 ~0 {( z+ m  P% J' ^
" w- [- q9 ~6 |        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"))
4 s1 \* G" B# e1 o/ ~  H1 ~
' ?3 ?4 D& M% {/ u+ s        ' optionally, create Distance Measurement feature (needs solid_modeling)
+ J  D) i1 e# u4 c4 f, u" Q* L3 W        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]