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

admin

' @. ~8 x" P2 I5 N# _; k7 C& D
NX二次开发源码分享: 使用NXOpen获取对象最小距离
4 @# y. ~  H. R3 q7 u/ e1 G

[mw_shl_code=csharp,true]
3 U( \( ~. f  x- g( \8 ]* `& ?  Dim theSession As Session = Session.GetSession()
( x, ^) l" c& n  W        Dim workPart As Part = theSession.Parts.Work
; E* ?; L, ^6 Z4 A+ I6 ~# A: a
        Dim object1 As DisplayableObject = SelectAnObject("First Object")
" j- x0 k* p" ~; _        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
' J0 N" U7 r) e! }  u
, E' h' H/ v; N! @5 U8 e4 e& ?        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
4 b+ r2 e' |' g& u- ]5 H        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
. ^! K0 A& A# R/ I
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
$ L2 H+ }% d* M4 a7 c9 H% c            MeasureManager.MeasureType.Minimum, object1, object2)

; S# I1 x' w) e4 a. N' |8 g        Dim theLW As ListingWindow = theSession.ListingWindow
+ W* C8 ?; A3 g' v        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
2 c0 T* Q; L3 G9 S
; c5 q3 M' C- d# i8 K        ' optionally, create Distance Measurement feature (needs solid_modeling)
        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
5 b) J: m6 j7 |4 ]% j        measureDistance1.Dispose()[/mw_shl_code]
; z0 I) W( ~! D$ w2 D3 R7 S