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

admin

( |/ j4 n7 t9 J7 ^2 }3 W
NX二次开发源码分享: 使用NXOpen获取对象最小距离


) g$ `+ D" X! o$ q[mw_shl_code=csharp,true]
' g9 b( e/ M& N6 B- `: c  Dim theSession As Session = Session.GetSession()
& Z) |9 n& z2 [        Dim workPart As Part = theSession.Parts.Work

: @, m" R$ T; }1 {        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
7 \( \- y! j& O" D9 a
, W+ h& R3 [5 n! B0 Z  k' z- R        ' 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

        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
# H. x0 @5 [+ U: M& c9 H            MeasureManager.MeasureType.Minimum, object1, object2)
; D! a9 e: a! `# I7 G
        Dim theLW As ListingWindow = theSession.ListingWindow
4 F: |7 b5 g4 R& b- l        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
5 U4 [( a+ |: u. x8 s* s        measureDistance1.Dispose()[/mw_shl_code]