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

admin

NX二次开发源码： 装配中选点，并报告父对象
3 N! U; n' d" I2 U- b" X8 u. u+ k

1. 
   " C  A: X: o% b* I6 O
2. <P>Option Strict Off
   0 L/ T" O* {5 W& w
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   7 ~0 W7 p2 t0 q- q& Z6 x* N
6. 
   6 ]2 H' V1 ~- G* A% l
7. Module Module1
   
8. 
   # T3 ^& v! `# ]1 t! G4 h
9.     Dim theSession As Session = Session.GetSession()
   1 L' d; ~3 i1 d/ @
10.     Dim theUI As UI = UI.GetUI()
      J( W+ u$ ?" k/ n1 d3 P. s5 t+ E9 \4 y
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    : X, L1 u2 e; I9 N; q# J! k
13.     Dim pickedPoint As Point
    ( U1 u: T5 W) _% W
14.     Dim myModelingTolerance As Double
    
15. 
    6 c- c+ h* y- T" M" O3 V
16.     Sub Main()
    % j4 V: y8 X' _. S' D( `; x9 i
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    6 D3 X  x$ _: N4 }% y# F: ^- u7 q. Y
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    9 x- O3 p+ E# p% a
22. 
    0 C! H0 _+ ~8 q
23.         Dim myPointTag As Tag
    
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    9 T+ @* n2 O$ G- s) t
26.             Exit Sub
    
27.         End If
    
28. 
    . {5 M# U2 O+ Q0 o' N3 j* O! X
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    + o9 s: d/ M2 Q8 v7 ?
30. 
    / E0 A: ]# m( f5 b
31.         AskParents(myPointTag)
    
32. 
    ' l9 S4 y% E, y: }! E
33.     End Sub
    - G% |, `6 h- u9 R1 U/ N3 m: \; Q
34. 
    ) u+ d& D* K- U. V' N
35.     Sub AskParents(ByVal objTag As Tag)
    7 T" g$ {% M0 L- I; I; d
36. 
    
37.         Dim n_parents As Integer
    3 ]1 m" i: K8 S: x3 q& @& J
38.         Dim parentTags As Tag()
    * Y$ U1 @# P% P
39.         Dim myPoint As Point
      S5 g8 k6 M- L+ e9 \+ n1 A* o- r
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    9 m7 D4 t4 Z% ]3 w7 ^& S: b
42.         Dim myTaggedObject As TaggedObject
    ) a8 ^9 M5 ]6 a# F5 p8 z% n* x
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    1 C" S' {, C0 Y0 w* S3 I2 {- j
49. 
    $ K/ }1 A- ~# J
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
    
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    $ i/ ?2 x: z9 a. p: y
55. 
    
56.                     AskParents(parent_object.Tag)
    
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    5 I5 ^3 S( m1 t# E: {
59.                         myEdge = parent_object
      E+ u8 v, k3 w& Y7 I
60.                         lw.WriteLine("")
    ( Q0 q5 z, u9 _+ Z
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    . g( T+ x6 j4 A  A
64. 
    " d* U% u$ y$ }/ m  D# a
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    7 w2 U% V" I3 N7 K9 M8 P) R0 j$ _
66.                         Dim occTags() As Tag
    0 P  x  ]- Q( ]; s4 x" q% V
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    * B, Q5 i; P$ n) Q
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    9 s1 P; z9 t. C; r
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    # _+ V( y% Z- F7 _7 h: d
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    7 x" Z% Z* `, Q7 x2 v. B- @5 s
77.                             lw.WriteLine("component name: " & myComp.Name)
    6 ^. T0 v9 {/ o0 f( K4 J& d
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
      d! L, E) X" R% E/ c
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    
80. 
    % I3 n0 \1 j1 X  P  b( k" m
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    : g3 Y( l( ]+ G" u4 L" h8 V) }
82.                                 lw.WriteLine("** This is the component that was picked **")
    - T0 ^& |5 u9 U9 w, `; _; m% I" S
83.                             End If
    
84. 
    
85.                             lw.WriteLine("")
    9 ?6 d% f( I$ \8 p5 V
86.                         Next
    & u) j  p2 @1 n3 \. A; F
87. 
    
88.                         lw.WriteLine("")
    
89.                     End If
    + B6 a0 J) B1 t
90.                 Next
    
91. 
    / U+ S6 k$ h" u) v( ^1 r; l
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    5 L* g9 @! w3 z( R" S8 s
94.                 lw.WriteLine(" Error: " + ex.Message)
    : R1 }1 v$ y% K" L+ U. f
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    1 K. s5 D  q* s: {- N
98. 
    1 O2 Y0 [3 B! l# o+ Y
99.         End If
    ( ~; I0 r1 L% x# V
100. 
     # O1 w, }0 D9 w. x) g
101. 
     0 v% P1 N& T7 C
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     6 _' d. {. W( e: r7 E% l
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     : B- B+ H- d: j  k: ]
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     - H4 ?% x! F* r' I& J
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)
     . w" J- d' p( ~4 w0 Q
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     1 @" Y2 e+ p% C6 X, T; }# B+ M
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     ) y& M; R$ n3 U2 I
114. 
     1 x  c; m, D1 D
115.         Dim pointLocation As Point3d
     * H* g" N" N5 o. }: n2 i
116.         pointLocation.X = base_pt(0)
     ) L- w7 j4 o# L' I# |2 m6 m
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     $ i/ A0 F3 t) b; w$ M' K# E  V
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     " ~. t, Y$ N# X, W3 v. e. c$ a" k
122.         Return response
     
123. 
     
124.     End Function
     $ |+ d9 n$ N% I& L
125. 
     7 K- H; G, I1 e
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     4 {* x% D% B4 e  R3 n  K( b" x
127. 
     
128.         Dim selObj As TaggedObject
     . k- W: g0 \# Q9 i3 m
129.         Dim theUI As UI = UI.GetUI
     $ g' |$ B  Y! j, K* M6 ~' t8 `# {
130.         Dim title As String = "Select a Point"
     0 M7 x' B8 J2 y8 E
131.         Dim includeFeatures As Boolean = False
     
132.         Dim keepHighlighted As Boolean = False
     3 z# C; r  x% m" I' z6 Q# ^( l
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     7 ]- g; S& `5 S, [3 s
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     " V$ X1 r) `" z
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     
138.         With selectionMask_array(0)
     # i) ~! z; ?4 _$ h7 e5 V' Y# I! X  j) w
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     ) s+ Z# M7 m/ U7 ~. P1 h
141.         End With
     
142. 
     $ ~, H, P: H) J  r% W; r
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     + [, v7 D2 `8 _, `1 L5 U  i& }
144.          title, scope, selAction, _
     ' J; I4 y/ a' |, h6 |, u
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     7 w+ P& G1 n& V$ _- u' T" j' U
146.          selobj, cursor)
     4 r4 Y( t6 i1 Q/ Q1 q9 @! a
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     $ B: Q+ F$ X) @! F/ d+ q0 s) A1 A
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     & _: O+ \) `! W  f  z4 t# D  l
152.         End If
     
153. 
     ; H& t" O* d) c; i/ l: S8 I: W% J
154.     End Function
     6 k! \3 O  `- D( o5 Z  G: m
155. 
     " z% c/ N* e/ f  Q
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     & q/ U! E& g2 |: Y
157. 
     2 x9 a" C  q* F* V6 U) Y; H
158.         Dim result As Double
     " f% K/ K; ~& \+ X- @' _
159. 
     
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     4 K( |! y) v8 @  _. Z  L- ^
162. 
     ; s# S4 x0 X* j
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
       k" l* w% w- f( }
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     ; }  g  l- w3 X6 I
170.             Dim nullUnit As Unit = Nothing
     
171. 
     , K- h' ^6 v2 q8 h0 l
172.             Dim measureDistance1 As MeasureDistance
     $ w& Q8 J1 p' Q" }8 g: m
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     ! g" `" S, Y$ J
174. 
     % {0 D$ s, [+ G! A+ P, F
175.             result = measureDistance1.Value
     ' }* N) B+ g9 {
176. 
     
177.             'measureDistance1.Information()
     
178. 
     % s0 J! D/ j0 _  E* o0 F! O. S, S
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     ' b5 X! h' h( k5 o0 i
182.             MsgBox(ex.Message)
     1 y5 ?$ H$ V" y% ]
183.             Return Nothing
     
184. 
     
185.         End Try
     4 s0 Z/ O8 A& _" s; H; P0 S$ K
186. 
     
187. 
     ) q6 z" k1 y2 _9 M: T- j/ X. h
188.         Return result
     
189. 
     * d: T4 P: h5 v
190.     End Function
     
191. 
     % K" G- l# g9 c* _
192. 
       V, Y+ e2 s: l: e
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     ' g) H1 x, N, i. |" w- a9 ]5 l
194. 
     8 U0 q7 \/ M- a& c/ S
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     8 S% E8 L  ^! [5 v. f  ?1 v
197. 
     : Z: F) U' |& ?4 p( n& p
198.     End Function
     
199. 
     + D$ d7 t/ j0 E# e5 h' x$ p0 n
200. End Module
     
201. </P>

复制代码

: G' Q# R/ v7 J

admin

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