NX二次开发源码： 装配中选点，并报告父对象

admin

NX二次开发源码： 装配中选点，并报告父对象
- `) @' R; j2 l& u# Z1 F

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   ' O1 e3 m1 e9 ^7 Q& e
6. 
   ) W% X% Y/ B, j! `" R- I& s
7. Module Module1
   
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    8 f: p6 ]4 ]0 f
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    & ^; `3 n& K( g1 R# H; {& Y+ Q
12.     Dim lw As ListingWindow = theSession.ListingWindow
    4 w# b' S0 ~, E6 o: W
13.     Dim pickedPoint As Point
    $ ]! P5 T& T& e/ u( q& i) @
14.     Dim myModelingTolerance As Double
    
15. 
    & e$ R+ \) G% x0 v5 v
16.     Sub Main()
    5 g* C- U! p6 B  O, Z$ n% O
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    / v: _9 v$ C, T: X1 P
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    
22. 
    4 t8 K' J, B! g
23.         Dim myPointTag As Tag
    
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    , u$ y" U2 ^( f# A, u: V/ r
27.         End If
    
28. 
      k% }5 Z9 |) e5 ?* J1 R: q
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    
31.         AskParents(myPointTag)
    
32. 
    
33.     End Sub
    3 u# ?3 @7 ~, O5 j% M# J" z
34. 
    5 u* Z5 ^# y4 T7 K4 N1 M8 P0 I
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    6 p- x1 Q7 t7 S. D& A
39.         Dim myPoint As Point
    3 B) X! n. ^3 S$ x
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    ' v+ L/ ^3 Q, |3 i( C
44. 
    1 x6 j, W* U$ J0 \
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    ) ]8 L0 k( C6 S% k/ G. F& R
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    / x% b- t( S0 u( q3 m
48.             lw.WriteLine("")
    6 z8 ^% j7 A* i4 k. _6 F" b9 I
49. 
    4 b% j+ k( Q1 D% z- x
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    
53.                 For Each parentTag As Tag In parentTags
    ! h$ `1 j. }' `; R" H$ e; a
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    2 p& K4 A7 p: S# n) q  ]% _
55. 
    
56.                     AskParents(parent_object.Tag)
    
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    / ?. A6 |+ O$ p8 p8 b2 w1 n
59.                         myEdge = parent_object
    4 _1 @0 \/ `0 ^5 \- Q; ]7 Y
60.                         lw.WriteLine("")
    ' J) p3 n, @( z# k
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    7 V7 O1 }( j$ ^% D% c4 d
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    4 q6 W4 c' n6 z  X) Z* v+ L4 X
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    ( X3 ?$ }, X  @8 \+ N) w. q
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    & o+ q: F% Z8 ~& O0 n. r3 i
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    6 r) `7 Y/ M5 Q
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    3 M3 I# t1 y2 q
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    & P% b2 L/ H1 K5 Q# Y
75. 
    
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    
80. 
    3 i( q0 m0 F% [
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    $ j/ ^  f5 N4 \& i& n; W
84. 
    
85.                             lw.WriteLine("")
    ) F1 x: G( Z2 B" {
86.                         Next
    
87. 
    + q2 H0 @% N; W3 [. E8 j# M/ S
88.                         lw.WriteLine("")
    
89.                     End If
    8 {( E  d- Z, K4 a
90.                 Next
    
91. 
    * s3 R5 u' _6 T+ H, X
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    9 |, h/ s3 p9 i$ @  X6 F
97. 
    
98. 
    
99.         End If
    - I/ q- g+ Q) l" A- I  W% O- |* Y7 H
100. 
     * n) W1 e+ f% D4 n+ Q2 s
101. 
     0 E1 p0 X0 I/ Z9 \3 T8 l4 B- e
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     . k, }% d: U0 {$ S
105. 
     - k/ h9 }! W& U& z/ E
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     + V. r6 h# B) e5 W
108.         Dim response As Integer = 0
     ; ?! X# y/ ~. Q
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     " L, o% n$ c9 l7 a. K) L7 S
110. 
       A& {  W7 Z' m+ W2 v& j  ]
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     9 g' Y2 d$ |4 P' g& D: X
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     ' k1 N! R: k0 O
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     5 |5 k1 S  e' \+ o8 [1 N
114. 
     
115.         Dim pointLocation As Point3d
     & |" \' f. V  M6 l" b8 ?
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     8 c  _/ \# r* M7 z# D
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     ( B4 l+ p) {1 }2 k
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     8 O% p$ s% J) h) C% r$ ^
122.         Return response
     
123. 
     2 R$ p  E& F" ?' O/ m2 f
124.     End Function
     & p+ J1 u  F* _2 U! H) e
125. 
     4 f" q1 n3 X- _: I
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     , N& k; k7 g# A
127. 
     
128.         Dim selObj As TaggedObject
     # [9 }) b5 y  Y6 c) z4 P
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     
131.         Dim includeFeatures As Boolean = False
     9 u3 V& ~" b: n+ m$ o4 o
132.         Dim keepHighlighted As Boolean = False
     2 X" a" l0 W+ F" |5 S9 z* f
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     7 E- \8 l5 w" s% ^  T
134.         Dim cursor As Point3d
     3 `4 k, i7 `& ~9 ]% u7 ^7 _
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     ! w6 F+ J& {  c1 n
138.         With selectionMask_array(0)
     # K* _! `2 O# H# w7 B
139.             .Type = UFConstants.UF_point_type
     6 Q# P% S, b: f# N2 Q3 d6 ?
140.             .Subtype = UFConstants.UF_all_subtype
     8 j: ]) {8 ~2 _3 r0 ]$ ]
141.         End With
     ! Q& ]; f) ~3 n  @" n$ s  C
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     $ X& i9 F0 l9 W+ V9 Y% ^1 ]" ?$ |
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     % O) X0 Y7 E% u+ E
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     6 ^9 p8 J# A+ @; {8 q7 m% l+ e/ O
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     % c0 T! G) H- k& z, ^5 D* B. V) v
150.         Else
     0 q( L! z3 b8 a9 _
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     
154.     End Function
     
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     8 ?4 n5 x4 b" H7 a9 F3 m; d
157. 
     
158.         Dim result As Double
     + J9 B$ }0 u  E5 i0 j. D
159. 
     4 C6 C, |. R& k- p7 Z" y
160.         Try
     % g% L, _& |7 s* G1 T% Y( U
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     : f5 r6 i& V. j
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     ; A3 W1 B  Z* S3 X, ?
166.             measureDistanceBuilder1.InfoWindow = False
     - ~3 g/ O: R6 H* p5 |) Y. B6 T0 `- ]( F! j
167. 
     2 o/ S0 L5 g; f; V
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     / A- R9 e* b- q( R
170.             Dim nullUnit As Unit = Nothing
     & D# q# L# p& M* `" [6 k
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     % n1 m' E, E% X2 M
174. 
     
175.             result = measureDistance1.Value
     
176. 
     ( J! Q& z, l/ W0 p3 o
177.             'measureDistance1.Information()
     
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     : ]8 j' n/ T; Y8 B" T
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     * q% k* b1 }. K3 g! _
184. 
     7 U6 W4 D, A! l3 U3 o1 V  Z
185.         End Try
     : p2 _. N. G1 ~' g* D
186. 
     0 q+ n+ h: n' {3 ^  B/ h2 V+ F
187. 
     
188.         Return result
     3 _& i" t; [/ ]1 O
189. 
     
190.     End Function
     
191. 
     , x7 t  C4 g* g
192. 
     ! Y; h$ p5 k9 ]1 O4 c) Z. x
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     
195.         'Unloads the image when the NX session terminates
     8 U& U# P6 i: `+ W
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     ! ~7 o: H$ f5 k4 _4 Q$ K: G+ [
197. 
     " ~8 C  u/ B6 ?. k# e
198.     End Function
     
199. 
     
200. End Module
     
201. </P>

复制代码

: F/ h8 L1 ?7 b/ k' |

admin

直接 跑下 Journal 就可以看结果了