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

admin

NX二次开发源码分享: 使用NXOpen获取对象最小距离
% a# W5 K+ w  R2 |6 }! h' M% o

' b! ]; t% \3 t* E6 \+ l" r) k[mw_shl_code=csharp,true]
: |6 V% t" h( F8 f' J  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
9 J8 M# ^' v; X( Y+ b: f% }
& J3 W1 B. F' ?2 k8 m        Dim object1 As DisplayableObject = SelectAnObject("First Object")
  F6 U& H! d# Z1 k6 _' d2 l        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

0 r' ]! J  E" Q4 t- m- K; f+ I  [  K        ' 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
1 R6 z3 ^4 m' t' X1 d$ N: W        Dim measureDistance1 As MeasureDistance
0 B5 u  q% y) `9 U) D
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
/ I7 F6 Y, s1 Z            MeasureManager.MeasureType.Minimum, object1, object2)
% C1 ?: ]) s* C1 m* U% R
        Dim theLW As ListingWindow = theSession.ListingWindow
5 v/ X5 n8 U- p" Y9 V        theLW.Open()
3 B$ V* g& f' |( E  `        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))
, c$ M/ q- v( E2 e: O1 j) U+ ?
        ' optionally, create Distance Measurement feature (needs solid_modeling)
/ a$ u1 a9 z0 u" L        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
9 {! Z# P7 X7 |% b        measureDistance1.Dispose()[/mw_shl_code]
& Q  u4 y0 V5 s1 b( l/ l6 b