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

admin

) N" V9 f% Y7 K
NX二次开发源码分享: 使用NXOpen获取对象最小距离


* u9 g! z) p2 i. W[mw_shl_code=csharp,true]
  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

; G" f+ j, J: Y) N1 g$ i        Dim object1 As DisplayableObject = SelectAnObject("First Object")
+ W& j" Y/ ^' O: y* i        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

  H/ r: m$ }" Z6 T# |0 E        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
. d' s/ x) S! m+ Q, D% {! z        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance

' K( Y: ~6 g+ O$ ?        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
            MeasureManager.MeasureType.Minimum, object1, object2)
, i9 w3 k5 W$ |$ ?! o6 Q6 d
: {9 R$ f' C3 D  U7 ~( G+ q6 {        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
0 V+ R3 S+ U( ]8 e( X& w$ Z
$ o$ L4 _8 }& r8 p# b        ' optionally, create Distance Measurement feature (needs solid_modeling)
# P" a6 o/ ~% p) _; v        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]
1 r' [2 N" X+ p* O) h* M) Q* x8 b