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

admin

3 I6 x, @" T3 o/ W/ m# h8 }1 YNX二次开发源码： 装配中选点，并报告父对象
# t; i; X7 z5 s$ _

1. 
   3 u/ N/ W; N0 J( v$ ]
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   ! `  ^1 Y# w4 W% W+ C
5. Imports NXOpen.UF
   
6. 
   5 ^6 o& r9 B$ A% u, Y3 B
7. Module Module1
   
8. 
   8 @$ [  C# B& X* q' ]
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    / r1 k6 r  L6 g
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    3 Y/ K4 u) p) }( v8 u7 y3 I: S
14.     Dim myModelingTolerance As Double
    
15. 
      Z% {* }" M( v4 |
16.     Sub Main()
    + q( d8 ?" G0 [3 [' c/ C
17. 
    / A9 p$ N! B! C6 z5 w1 f
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    / G# B( j' S6 j1 L  t( t
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    
24. 
    , q% Z* Q$ ]- w5 u8 ^
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    1 p) a" D) z7 V& t( c8 D+ D/ f
26.             Exit Sub
    
27.         End If
    
28. 
    4 _) y) O8 S: Z# ^) f, I  v
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    . E9 ?! I  r% m. A+ S7 U
30. 
    / J" `2 z# o2 w8 b$ ]) K1 ?
31.         AskParents(myPointTag)
    * }2 u6 ~, e8 Q$ Q5 W
32. 
    " X# j9 }* I2 ?2 w: L7 q. @
33.     End Sub
    ; ?- \# D* i" B; u) Z
34. 
      P2 Q2 `6 k7 m' E0 W
35.     Sub AskParents(ByVal objTag As Tag)
    , `, S* F, u+ @- F* W) R
36. 
    
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    8 W* G8 e: }6 e+ R( J( h) a
40.         Dim myEdge As Edge
    " |- G* h- A. ?  l  N, r
41.         Dim myXform As Xform
    " t6 d& e) L$ L' S- z
42.         Dim myTaggedObject As TaggedObject
    + U3 l- H7 \  @
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    . [( K5 z0 a- [8 v
44. 
    1 a. q2 R2 p. G' V7 {, M  Y
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    0 h; T0 t7 b2 h/ m( ?" L
46.             myPoint = myTaggedObject
    8 _$ Z( `1 f" q
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    ! S. U' n, F; b0 c
50.             Try
    5 a% f5 y- Z, }  y
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
    . Y% d, E+ J) g- E
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    
55. 
    0 m1 ?) l7 [: R' c1 c
56.                     AskParents(parent_object.Tag)
    9 X  G  L8 \( @) l) l5 Q. |
57. 
    2 G* F* @% e! C# ]7 S5 C4 L
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    3 C8 A, p! @7 I% X
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    % H; Y. A! d  b6 s* _# ]
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    " e7 A4 Y0 c) w, h; V8 _
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    $ L! d) d& |( e
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    5 o& k  R  Q5 N0 |6 k4 N/ I% O
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    . V9 b$ d) t6 d1 F( y4 x
72.                             Dim myCompPos As Point3d
    8 X) H: G$ c( k3 M5 x$ o
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    # ?: b- e* f  h+ \6 w/ ?. [) O
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    % q2 v) ^( y1 O- B' z
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    0 i$ c/ d: y5 ^# f. U* r
80. 
    4 g1 r% ?! x% t7 L6 C. |
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    / B* d8 U; E! z6 |5 d
83.                             End If
    
84. 
    
85.                             lw.WriteLine("")
    0 V3 T4 {4 x( p+ I. L  R
86.                         Next
    $ {1 g9 H+ ]0 [0 O7 Q& N
87. 
    
88.                         lw.WriteLine("")
    + j) T3 ~! j# F7 l8 d2 _( U
89.                     End If
    
90.                 Next
    
91. 
    * h: l% C: U' c. p
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    8 F, r# p% f# \! ^5 t9 G6 `
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    ) u) B% L- @6 o! K* x1 z, x
96.             End Try
    & e$ p* g; {4 |& ~/ ?
97. 
    
98. 
    
99.         End If
    
100. 
     2 w* X; R7 t3 C; ^
101. 
     8 m+ c/ A: ]3 N- h# q; l
102.     End Sub
     7 Y( c# x* a, W4 }
103. 
     / }: Z* T7 `. J% c+ `1 w$ F8 j+ ]
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     : O2 c. g, ]/ m( |. M# U
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     # s  b9 V+ Q  F' Q5 x( z" |
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     9 l( ?" k4 o- H2 u3 p
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
114. 
     1 N/ T# P) I' f7 h' z
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     0 x% e) S& o2 @. ]/ l  y2 H' p" A
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     1 q0 j% y4 c: d6 h
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     
122.         Return response
       z# x: y4 @6 c) r9 Y& ~# v% k) l
123. 
     4 T4 k$ A9 f, k+ l4 i4 V* Z  p
124.     End Function
     
125. 
     ) ^) k1 c3 _% m# o6 ^) y
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     ! U" \- j3 ^- B5 G. Y& S' [
128.         Dim selObj As TaggedObject
     
129.         Dim theUI As UI = UI.GetUI
     ) y: |) G. \, X- F' a
130.         Dim title As String = "Select a Point"
     & L; t+ ^6 e6 P, j5 J& f; q0 d& s
131.         Dim includeFeatures As Boolean = False
     : e1 e$ u' f3 e) H# g' |$ C
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     5 S: d4 _/ x9 h0 F4 }$ V
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     7 C4 f6 x% K9 d9 I
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     ( B4 \7 K$ D- z$ W# c  [
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     . n) ?& s  L& }. x0 {8 [
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     - m  @4 W9 d- F  i2 M4 d6 D5 k
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     * O! q6 v* W+ Z7 K  r" y7 U
150.         Else
     
151.             Return Selection.Response.Cancel
     & z" F: t" i# c
152.         End If
     3 _9 {+ k) [( Z8 i: e) @
153. 
     
154.     End Function
     " h+ b* T, C, D" r: Y
155. 
     # _$ B, i0 F4 V
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     ) s8 |& C9 P9 c; z
159. 
     
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     / L) U# R. d8 l* C
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     . W# w  s9 V+ j& P! \( ?
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     ! Q7 V+ N9 y, \7 n; w! Z) O  Y% o
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     ) b1 F  x$ ^. E% {  y% d
167. 
     # H5 v/ O  l9 N7 G' B3 k- M
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     8 f: ^, D# ]' h8 \- {$ A, ^1 e
170.             Dim nullUnit As Unit = Nothing
     
171. 
     " G. K# y8 r0 O+ d5 K9 z/ [
172.             Dim measureDistance1 As MeasureDistance
     7 D6 x* M1 L8 Q7 c
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     ' @. q% f7 u* Q& X7 ?# P9 W$ J
174. 
     
175.             result = measureDistance1.Value
     4 Y2 D& F2 j' O# s
176. 
     
177.             'measureDistance1.Information()
     ( i1 N& V6 V9 W0 \
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     4 _( k. ^  C/ n9 E
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     ! E* E8 t1 a) o6 z! F7 j6 |9 E
185.         End Try
     1 S4 n& J" Y- \2 j5 {
186. 
     6 d( c0 G8 @+ n5 z, x2 E6 Y
187. 
     
188.         Return result
     8 {3 @, e7 L: P3 r' b: c
189. 
     
190.     End Function
     
191. 
     ) `3 t. w' d, y" `# B/ r
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     0 e3 e4 v+ L4 A
194. 
     
195.         'Unloads the image when the NX session terminates
     & D; n4 K/ N) ^6 Q) n
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     : m" @9 H/ n1 n6 a: Y
197. 
     
198.     End Function
     / z& h/ N8 A, b1 Q+ l
199. 
     
200. End Module
       v; f# _+ z2 ~: c
201. </P>

复制代码

. C6 K( f0 ]8 S/ L3 b) R9 Z+ w

admin

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