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

admin

4 e! B( {- R1 O$ bNX二次开发源码： 装配中选点，并报告父对象
: d: ?7 I. r; F8 W7 |

1. 
   
2. <P>Option Strict Off
   * J/ h1 L. K9 I9 P* y
3. Imports System
   6 u6 L$ p0 S4 e9 C! \4 F
4. Imports NXOpen
   0 t9 c, g9 b: `& a
5. Imports NXOpen.UF
   8 L1 p- \) f+ T  ?
6. 
   4 J4 A; v1 `! H1 o3 D
7. Module Module1
   
8. 
   . r$ D# O6 Z3 A  A" c
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    : x4 Q) I6 N. G/ v( i$ Z5 R
12.     Dim lw As ListingWindow = theSession.ListingWindow
    ) `0 ^3 }" g5 @
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    
15. 
    * v/ j5 J% w9 r& R1 v3 d0 W3 ~
16.     Sub Main()
    9 ^" |+ o0 K' @9 G% [+ b$ b
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    ' |" w; g! [  I0 B  y  e. ]
19. 
    # S; S# ~0 s5 }, S
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    & ?& d+ i# u8 z; |: n1 ~4 ]
22. 
    2 u2 i* S# }- a  L9 C+ u, V0 a
23.         Dim myPointTag As Tag
    
24. 
    ; Z7 |$ {) z( q0 ~2 }- s
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    - k* ?6 [# n4 P& y
26.             Exit Sub
    
27.         End If
    # q# _; P0 |9 f- T
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    
31.         AskParents(myPointTag)
    . A( }0 N* o  u* M9 q6 F( X
32. 
    $ ]. L* G2 K0 b
33.     End Sub
    / g# f2 d: J5 J( T' I  w
34. 
    - q0 @2 H- g" ?, P
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    6 _# G5 U+ m: `3 m" c4 l
37.         Dim n_parents As Integer
    ) K  S. ?; p- v- A5 d$ w! E) @
38.         Dim parentTags As Tag()
    + ~; k2 l: }2 W' p- Q+ l+ I5 z" t& r! U+ c
39.         Dim myPoint As Point
    * i2 _2 ~* u7 {2 U: i/ k; ?
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    . Q4 |" k4 h& @: [, t
42.         Dim myTaggedObject As TaggedObject
    
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("")
    2 @/ N6 x( B0 U1 p/ \8 X
49. 
    
50.             Try
    9 F4 a. i$ p5 f" {
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    ' n2 |8 B6 K% I2 e2 q" p- b
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    
53.                 For Each parentTag As Tag In parentTags
    ' X* F: }! Z; Y, \; |% c
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
      M9 ~) k. u& p4 P2 C9 ]) Z" D
55. 
    
56.                     AskParents(parent_object.Tag)
    
57. 
    7 _5 R+ B6 N- K  g( A8 e6 s; k
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    6 A  h3 R' |# k# k4 T
60.                         lw.WriteLine("")
    & K1 |, r$ G2 F& X& u
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    9 m, _+ D5 g+ f+ U+ w* s9 L) q
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    2 {6 ^  i5 v/ |" s
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    & y5 M: E4 i4 c" ~8 W# O
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    0 \$ q* Z* Y% |# }) B
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    / ]% E) B. y4 p) \4 J
69.                         For Each temp As Tag In occTags
    ' Q( o+ I. P& Z6 L; F- j% r
70.                             Dim myComp As Assemblies.Component
    0 b8 m, |- `3 c0 ~! H: I( M
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    2 d4 ^5 P2 w, y2 ~$ ^! @! i: Q
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    % {* ~& }( w# c" w, @; e, J+ W
76.                             lw.WriteLine("")
    8 T" h6 f- U% N' |
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    ' o. q: C1 k$ A+ _6 X' u
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    " d- l2 h* L' ]; C4 e- p
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    + u3 Q6 r; N, j' @0 H
83.                             End If
    
84. 
    ( h1 |4 M. \( U
85.                             lw.WriteLine("")
    1 ~9 B( i/ [; \, A3 m4 K# A
86.                         Next
    
87. 
    
88.                         lw.WriteLine("")
    8 }% a  A, x& T0 s% }0 R) [/ L) }
89.                     End If
    5 }0 C, |, ?9 d( s6 ]
90.                 Next
    
91. 
    ! O+ Y7 t& p- }4 ^
92.             CaTCh ex As Exception
    2 _8 ~/ N) Y( v7 c7 p) D8 y
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    1 K# j5 \1 ~' b* `' ~3 Q, f7 X3 c7 j( t
96.             End Try
    
97. 
    $ N. \7 ~, M& h7 V
98. 
    4 j+ T. Y9 }. g* r1 U* J
99.         End If
    1 N- A: V. w0 ~4 }# X3 Y
100. 
     
101. 
     " C$ B! D% l' h: l3 J1 f. ~
102.     End Sub
     ! ]6 q# |9 c2 m. x* f' ?
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     / P1 ]8 g$ G$ d- u. H5 P* k
105. 
     " A& m, W' ~/ E0 w* S+ e+ ]
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     - g3 g/ ]) h8 Q1 P
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     4 n" p" c4 c/ J, m* {
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     % h9 `) p1 I$ j, f& e/ d
114. 
     . y  v$ [) @" W0 ?; y) o$ j: j/ h
115.         Dim pointLocation As Point3d
     * s4 y" w5 K  z0 I
116.         pointLocation.X = base_pt(0)
     7 B& {- G  e! d9 o- U# s+ v
117.         pointLocation.Y = base_pt(1)
     4 O; l5 K; V* C# F) r( P* c
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     
122.         Return response
     
123. 
     ' Q* ]4 T2 b% ?( b
124.     End Function
     ! J' _' ~! x7 t* y: T7 i
125. 
     7 f  [/ v* l9 Y, G2 O- m! ~+ l
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     
128.         Dim selObj As TaggedObject
     0 ]& p+ x, j% m
129.         Dim theUI As UI = UI.GetUI
     - r- j7 M/ {1 l+ G7 d0 p
130.         Dim title As String = "Select a Point"
     
131.         Dim includeFeatures As Boolean = False
     - Y9 h. W" A% {7 k! {
132.         Dim keepHighlighted As Boolean = False
     / ?+ V- }7 X" G* q/ w5 J
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     0 J$ Q# }! r4 p4 `
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     7 _3 Z3 d+ m1 A4 |
137. 
     & V* \7 [0 b3 o- V; B6 V
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     + a' R  t% R7 u7 c9 Z: V* E
142. 
     3 _# h  z" s  p; w/ u1 r
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     ) S- Q, Y; x$ A4 |  o% l
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     ( s& Q( a+ C% v1 p9 Q" R
149.             Return Selection.Response.Ok
     
150.         Else
     / g+ L( W7 @: W- m
151.             Return Selection.Response.Cancel
     
152.         End If
     4 N3 n- X" P7 o
153. 
     ) _" ^: R4 J! b6 W$ ^% _  o7 O- d( q
154.     End Function
     " I; ~; ~: w6 J. S+ Y6 ^% M
155. 
     " d5 G$ P2 D/ ?* _/ F8 f
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     
159. 
     
160.         Try
     . b+ a4 z7 F% R6 }* A- Z5 _& ~
161.             Dim nullNXObject As NXObject = Nothing
     + ^5 A# A7 d  c* e- k
162. 
     7 k) v- w3 Y3 F8 w* l" f/ W
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     ' Q5 [4 s' N3 `# |! ]$ }
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     3 }* _, ?" B) g9 z+ v) A
169. 
     ) f$ g0 W* k' Q) J5 h
170.             Dim nullUnit As Unit = Nothing
     * d: G( R" i4 N6 }4 O, F% x+ ?
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     % x3 ?, N  y; m; m
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     4 p9 J" k7 m, x: w1 s1 C
175.             result = measureDistance1.Value
     - K& D2 r/ |. t$ F. }- d5 m  k
176. 
     
177.             'measureDistance1.Information()
     ' U; r+ h$ S+ Z2 }+ _/ ~( a
178. 
     " @! L. X( @. i3 Z% H: G( i
179.             measureDistance1.Dispose()
     * N$ h  }! ^% U  ?+ \; @: C- q' V
180. 
     
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     , l; I4 x4 N  T6 L" d& [: {$ s
183.             Return Nothing
     $ r6 G. L. T8 d9 c8 B. Y& w
184. 
     6 Z$ e- C  }( M& Z% C  L
185.         End Try
     
186. 
     
187. 
     
188.         Return result
     ( S; n7 I  k& j5 o2 \' c
189. 
     
190.     End Function
     
191. 
     
192. 
     2 V! f3 a- S: J9 S, j
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     ! i- \$ a/ v7 @3 H+ e
197. 
     ; T% `& p! ~( a1 Z# Q
198.     End Function
     " [) v. h( G0 N& n- ^
199. 
     
200. End Module
     * r2 ~' L3 E/ M0 [2 ^! N& d% }
201. </P>

复制代码

8 [. L* z2 l+ |1 b

admin

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