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

admin

. S+ s: d, \/ X  NNX二次开发源码： 装配中选点，并报告父对象

1. 
   + i$ [! G& a# N% p4 s7 l
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   8 C- p: Y% {( ?8 J
7. Module Module1
   
8. 
   , N! J/ \* O9 ]# S
9.     Dim theSession As Session = Session.GetSession()
   6 ~) O0 U6 Z2 |. i
10.     Dim theUI As UI = UI.GetUI()
    ! F, b  T) D; ]; W; M
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    3 k5 W7 h( M, u* F  s" }4 y
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    6 N! y. n3 w; _# u% M! k0 L
14.     Dim myModelingTolerance As Double
    
15. 
    % r, u, a& `9 G: ~
16.     Sub Main()
      Q6 W  S1 }0 h7 l, H
17. 
    0 M, W- E4 L7 D: u2 P! h2 W( y( h
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    4 [& e( p& i7 N* U- R
20.         Dim workPart As Part = theSession.Parts.Work
    + O; m, W9 i$ Q. [0 q
21.         lw.Open()
    % a& B2 V( d3 t0 @7 g, c& d
22. 
    & ]" K6 W7 p9 d* g
23.         Dim myPointTag As Tag
    
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    ' w9 Q) D( Z% P! C& U
26.             Exit Sub
    . G* x& [0 @# [9 l
27.         End If
    
28. 
    2 q. W3 V0 ^! x8 `
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    9 V; D6 D3 {3 Y
30. 
    ( Z; D# [! M# e( I5 U$ H( A4 A3 Z
31.         AskParents(myPointTag)
    3 r" P6 _# ^. D# G% z3 P
32. 
    1 }* X1 B) ?5 [3 g9 w
33.     End Sub
    # e; I$ c5 [/ j
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    . _# h2 N: |  T3 _
36. 
    6 i# P& y/ U  I+ r8 F3 g# c
37.         Dim n_parents As Integer
    7 x  B# n1 N2 N( B6 o+ v8 W; @
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
      c1 B& |* ?$ N' a/ r4 x4 C
40.         Dim myEdge As Edge
    ; B9 D; ^7 d9 }5 q2 A) \
41.         Dim myXform As Xform
    2 P* M  d: o8 U5 Y
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    . v# K8 u. [  ^7 u# k. |( L
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    5 p) x4 e- Q9 `* [6 I
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    3 g  A) s3 f. }; l, [+ d5 ^
49. 
    4 A: V+ q7 v3 j0 x3 F
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    + A& g+ j# b. G( w; E' J0 Q$ F
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    
53.                 For Each parentTag As Tag In parentTags
    
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    % Z  i  k, H/ ?4 u5 M" b+ z
55. 
    8 m' U, d( i, x: g5 Z
56.                     AskParents(parent_object.Tag)
    
57. 
    * G; [$ b3 e" N6 U
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    1 C( R4 l4 Z5 U5 r  S, F$ h( `1 _
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    $ i: k' H: T7 o& q% @7 E; s" E9 \
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    / J0 a- ?/ L+ y+ t/ @! n
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    3 Q/ C! d& \) p% i# }. U
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    ; K& a' [& P  P
69.                         For Each temp As Tag In occTags
    6 P- w( X, J' s6 G. T
70.                             Dim myComp As Assemblies.Component
    ) ?6 f3 h% s& N: s0 F7 H
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    / Q; z7 \: }% t1 C1 z
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    9 u/ w% l; k' Y! k$ Z; Y3 G  B  T$ p! \  ]
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. 
    5 a3 k6 b9 W6 F( s( Z
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    7 t; M1 @# H% c; C* q
84. 
    
85.                             lw.WriteLine("")
    
86.                         Next
    ) V# j/ |# w9 f+ V
87. 
    - P" p; P, F+ ]4 |3 Z( f5 a
88.                         lw.WriteLine("")
    
89.                     End If
    
90.                 Next
    
91. 
    
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
      v* z, t- l" m% g9 s6 V8 d
97. 
    
98. 
    
99.         End If
    . G$ I( ^# k1 v. F4 h5 _
100. 
     5 D/ l5 u) b2 _
101. 
     
102.     End Sub
     - v) v3 v; m8 v9 P. M0 G- p, S
103. 
     1 K! E0 g& n' K  _  ^) M: n
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     & l6 f8 R1 k& i* s3 I. x* c
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     # h. m$ d. g1 W! ^
108.         Dim response As Integer = 0
     ; @7 ?8 A6 E7 K; W. L
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     ) h5 o  n0 R9 W2 }5 z" b% q
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     - ~5 d7 a8 X8 O, p  H
114. 
     
115.         Dim pointLocation As Point3d
     & m$ `2 V" ?' r$ i; r# c
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     8 {0 P3 J/ \( J$ E" g8 l
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     9 q2 {9 Z6 j* Z5 n
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     ; _7 b1 a2 J, Z& y. B7 h& x
122.         Return response
     + w0 _' q6 m; Z$ t9 |
123. 
     
124.     End Function
     
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     
128.         Dim selObj As TaggedObject
     
129.         Dim theUI As UI = UI.GetUI
     - t, n0 R. N/ b; q) x3 m# n
130.         Dim title As String = "Select a Point"
     
131.         Dim includeFeatures As Boolean = False
     
132.         Dim keepHighlighted As Boolean = False
     1 k3 O1 G) h# D) J! j5 o
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     0 U* q, d) `; I4 r
134.         Dim cursor As Point3d
     + [# m. q% J3 p  U" h
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     : O- o- k/ U( I. z6 B) R2 v
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     % \0 V6 t+ L6 |& Y2 O$ C4 ^( k% |
137. 
     ( R& Q2 r# z0 ]+ V+ y& \; O7 u. j
138.         With selectionMask_array(0)
     5 ]& q8 ?' k4 W4 G( ^8 d3 ]
139.             .Type = UFConstants.UF_point_type
     / y9 N- J3 W) O9 v1 v/ P# M# a
140.             .Subtype = UFConstants.UF_all_subtype
     / P! c9 [, F* p8 z
141.         End With
     / \* c/ O9 w  u, k2 w# t* f
142. 
     # Q. G3 D5 `# p, \
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     2 V- k3 M; G$ N' O; U! S" T
144.          title, scope, selAction, _
     % a+ ^. g6 E8 l. D: A. o( G! G0 Q7 d
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     7 a# t4 m8 _! P8 R/ H: a7 K
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     1 p; T; N1 G' y
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     9 L6 ]# e5 `* K5 |
150.         Else
     
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     & m# i% m9 f& O5 D  M% |
154.     End Function
     
155. 
     , c$ A# _! c0 j6 C5 `1 c
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     * k) @, Z  E4 {$ @0 E3 t! u
157. 
     
158.         Dim result As Double
     * H5 k- m5 s9 t' C) b
159. 
     $ S: p3 C5 |% s) t$ M/ W
160.         Try
     2 Z7 f' g+ P  w% I% {/ j3 Z+ U
161.             Dim nullNXObject As NXObject = Nothing
     , N1 v3 Z0 {6 C% ]
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     / V' G$ X& y: k# }. `4 r: \; U
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     2 Y4 a$ Y4 p6 b4 k
165. 
     , A  K" p/ |$ g
166.             measureDistanceBuilder1.InfoWindow = False
     5 Z% u5 @# q8 f3 P8 F9 G& k' n( X
167. 
     # Z1 O( I. G5 }6 w( S
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     0 h+ O  Y, x, I7 p9 u% n
169. 
     ! f2 @  g# }$ Z8 F6 p/ F
170.             Dim nullUnit As Unit = Nothing
     
171. 
     9 |" o+ T  G8 P0 E' d9 S. q; c
172.             Dim measureDistance1 As MeasureDistance
     9 w1 l9 f: L8 m1 y9 L; Q: s6 N# R# T% z. [
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     3 g& E9 g; e7 r  s+ m/ R
175.             result = measureDistance1.Value
     
176. 
     6 w2 a' A/ T8 M  X! d
177.             'measureDistance1.Information()
     
178. 
     + ]3 j. G* h' T1 t- h! G; |6 D' |
179.             measureDistance1.Dispose()
     
180. 
     : p& O+ R7 }3 z( j$ b/ ]4 Y# [
181.         Catch ex As NXException
     / [' O1 S+ n  j* `8 _
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     
185.         End Try
     
186. 
     0 W% I9 f* b' ~9 c; `7 v
187. 
     
188.         Return result
     + G% I- K/ `, l. C. r
189. 
     2 S" G* x" B1 B' E. ?( R! D/ H
190.     End Function
     
191. 
     4 V9 Q3 |1 y, g4 ^* v3 W
192. 
     & m% \, Z4 ]4 L
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     1 w% Q" t0 O6 e/ j  m
194. 
     
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     7 i) [. M4 [) B/ {; |- L1 E, _
197. 
     
198.     End Function
     
199. 
     
200. End Module
     
201. </P>

复制代码

admin

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