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

admin

NX二次开发源码： 装配中选点，并报告父对象
5 E& S9 x) g* P- N. N3 ^3 W' \

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   4 ~1 W! t2 g, N- T, \  V5 `
5. Imports NXOpen.UF
   . @" Q! {/ _9 e  @8 Y
6. 
   
7. Module Module1
   
8. 
     q1 e, V! x' V' B9 q
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    8 N. x1 s7 E& w: b, a
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    6 [' B8 F; ~, V) Q3 I' ~) h
12.     Dim lw As ListingWindow = theSession.ListingWindow
    & e' F  U& H/ d2 r6 t* r4 [
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    + x) E2 \0 `" `# T% H+ Q9 _  i2 X
15. 
    
16.     Sub Main()
    
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    + e2 F5 Q; f2 y) I) }
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    1 f4 k) W: c5 q2 T: H
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    - m+ V) F8 \& X3 y: K! l7 u
26.             Exit Sub
    
27.         End If
    / t2 E2 s3 e" x; F( l! I% ]
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    2 c7 v; a7 C3 b  n: G4 F  e* `, X% _
31.         AskParents(myPointTag)
    
32. 
    
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
      o7 I$ g4 t+ b& q4 Z
37.         Dim n_parents As Integer
    + H0 N) y3 U+ H& U5 L
38.         Dim parentTags As Tag()
    7 l' w% g4 m, \6 ^2 f
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    5 p8 W. U) q& U/ N) ?8 `  P  Y+ H
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    ( }: ~; S, e5 j6 J2 U+ z
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    % N7 G& x5 ]# [' b8 B  x/ u" u
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    ) J0 S$ @/ s$ C9 n6 t& J: ^. }! M
48.             lw.WriteLine("")
    
49. 
    
50.             Try
    * D# L& D% o: Y% b# [" h  c
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    1 A1 w6 b5 e: t0 R) H- n
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    
53.                 For Each parentTag As Tag In parentTags
    / p9 ]0 M" R. q# Z) L, h2 x" r
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    
55. 
    
56.                     AskParents(parent_object.Tag)
    ( s2 b4 \8 q+ x( a- ]
57. 
    - F. f, u% Q2 ^/ w- r
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    : d- Q: O; I9 n' R) c
59.                         myEdge = parent_object
    / `# V  \+ {' v
60.                         lw.WriteLine("")
    " i6 `5 d. W" T" m) Q8 i" m! \. y* a
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    2 r2 f8 v$ n* u6 G/ \2 G+ [
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    & U* l% D. X& c
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    9 f. l* H8 @* g4 I# M$ T6 r
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    7 ?# u! B! @0 F( _* s1 i
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    - o$ f5 ?" M5 y  }$ ?  L
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    ( t$ q/ }9 u/ H9 @% B/ D! H
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    " g: S% i0 {4 `6 [$ Y! k6 j
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    1 M, k5 q; E/ F: w8 N
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    # I  T/ N, w' `# c# Q$ C9 G3 V
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    ! u: Z+ f" V0 ^1 X2 u8 p( ^; e
83.                             End If
    ) Z' M7 ^" K' `/ |9 ^5 _
84. 
    4 r" H: i$ E. v' `0 o6 h. G( J( v0 o
85.                             lw.WriteLine("")
    
86.                         Next
    
87. 
    8 _* l; n, C; m
88.                         lw.WriteLine("")
    ' V4 ?  b' M1 B& L8 P: d% Y8 F
89.                     End If
    8 i1 y2 ?+ v& h; V
90.                 Next
    # l9 B- K5 K! X/ F4 l0 y0 e
91. 
    
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    + h3 \$ A# G) c# A
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    7 ?6 y# n6 n; }* X; H# y! g
97. 
    
98. 
    
99.         End If
    ; q$ O: f0 _, B2 \# a8 K
100. 
     8 h( E# Q# ?% v6 L; w0 N- o
101. 
     
102.     End Sub
     ; e$ `! v. |3 c' ]; j* K* I
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     ! V4 f' H* _/ ]9 X
106.         Dim base_pt As Double() = New Double(2) {}
     ) t" V; N; }4 X2 D: o. P3 q
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
     
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     5 E2 q. V' V* J
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
       _2 |0 `# U5 g1 o, E
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     " F: D  B. N! X# d1 J, S2 _' R1 U
114. 
     
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     5 X8 w- C8 s4 ?! G% D
118.         pointLocation.Z = base_pt(2)
     8 W* K: \3 _" [6 w( [( v
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     $ {; ]7 d8 s2 m' p3 h
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     
122.         Return response
     
123. 
     
124.     End Function
       s+ c" g' S8 j) `2 Z
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     ; a: ^1 W4 M% z, g: [
127. 
     
128.         Dim selObj As TaggedObject
     9 Z. j* m/ ?1 p: Q% [1 v
129.         Dim theUI As UI = UI.GetUI
     - ]4 U& x" Q5 o- S
130.         Dim title As String = "Select a Point"
     8 i2 s' s( u( {7 g1 F
131.         Dim includeFeatures As Boolean = False
     
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     ) d4 _) Q$ [, @( b8 o# ]
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     # Z: h1 D6 S* c. @. n4 h
137. 
     ! R+ u) b/ s3 ]# _6 D" I4 o! [, q
138.         With selectionMask_array(0)
     ; @; D- f- l2 B6 h, n
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     0 k( t4 _8 v- \- E; A+ X7 ^6 T' K
141.         End With
     
142. 
     5 A( p/ D0 C: \# N
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     2 ^) s8 R. t5 y# n, ]" \
144.          title, scope, selAction, _
     6 C4 J8 |( S" s8 ~9 C0 I
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     . U% U3 F/ i( W, P: w
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     ' E: Q1 G' ?6 C+ Q- I
149.             Return Selection.Response.Ok
     / }% P7 m7 `5 P; K; \6 \
150.         Else
       E7 ?( {# e( z
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     
154.     End Function
     % I2 ^* T  e* H7 W0 D
155. 
     5 E0 r0 z$ j' D% _( b0 G8 |* Y& S
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     : S' X2 l( z- N1 A7 R" A
157. 
     
158.         Dim result As Double
     
159. 
     
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     9 P/ A& a4 v" L- W' }: O
162. 
       G; a- s3 M; ~* O
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     0 y- s  X7 C% u' u
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     3 O8 O" k" [5 y. W/ H
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     $ e& X7 c5 G! x' D. [. V- B0 o8 n
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     ! s+ @6 ]: D$ ?6 A, a' J; D
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     ; F7 U9 @: |, \. b' n9 ~4 t6 ^
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     9 \( T- [! h( X4 e+ j/ r. s+ R
174. 
     
175.             result = measureDistance1.Value
     
176. 
     
177.             'measureDistance1.Information()
     
178. 
     
179.             measureDistance1.Dispose()
     . H2 m  ^1 Y/ K
180. 
     4 b% i. L0 Q  S8 O
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     3 T2 L/ |9 G: Y  w- _7 ?7 {) A
183.             Return Nothing
     
184. 
     7 [& ~# p" S8 U( e# H& f8 q7 |
185.         End Try
       j8 H: t; a& `1 g
186. 
     
187. 
     
188.         Return result
     
189. 
     9 U  [, ]" [) r6 a8 c; e
190.     End Function
     
191. 
     
192. 
     $ |) ]! d" z  c  e6 S* l( j
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     ! ~# R! ^' G& `' u; O
194. 
     
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     . _0 I9 y" I9 M5 d/ h" {8 ?
197. 
     2 R. F) P" g, B! L6 T0 c  k! _
198.     End Function
     1 }7 N) l: `& F" b+ B
199. 
     2 y* r: I( x- k5 m  C0 g
200. End Module
     ) j( f6 D& Q* q+ i- A2 L; W4 I
201. </P>

复制代码

admin

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