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

admin

9 N# X" n, i9 c4 C( y6 ~NX二次开发源码： 装配中选点，并报告父对象
) L% }0 {1 O5 P6 ]& q( q5 |; r5 I

1. 
   2 |5 e- r% O# K% T/ }
2. <P>Option Strict Off
   
3. Imports System
   ; q4 [" e8 Q1 ]. y0 t
4. Imports NXOpen
   , g+ ?/ M6 |9 S/ s& ~" w
5. Imports NXOpen.UF
   2 v% y8 ]7 H% b& t' V" T. o+ X0 n
6. 
   , ?9 T! ]. D( B7 k9 n) X: }5 ]
7. Module Module1
   
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   % l; |) ]6 b; p& d) f0 c
10.     Dim theUI As UI = UI.GetUI()
    , X- h! z9 d( u
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    ( I. n/ l( Q9 `% q& p0 D: v8 V5 f) u
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    
15. 
    * M6 r- L9 L. ]! u- X
16.     Sub Main()
    + E+ y6 W; p# A3 P  ^) G
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    
22. 
      M+ h& Z9 d6 y. F
23.         Dim myPointTag As Tag
    : n. M9 r& K9 k/ E1 F, k* P. w
24. 
    ; l+ W- c4 g  F3 q" D: P$ ~
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    ! q: c3 P+ `4 l% M
26.             Exit Sub
    
27.         End If
    
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    5 E" ?0 V+ _8 l& p' D. n
31.         AskParents(myPointTag)
    
32. 
    ! L' k* Z; Q# c6 \, ^9 P% J
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    / g9 a* r  e0 i4 E+ @2 F. f' h+ l
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    9 Q" _) |/ _5 o3 V
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    ! _7 B, I0 E6 `, P2 H/ C9 @* z
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    % L+ x# u9 z5 ?+ A- b, m' r; @
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    ( O" G" z9 b( t( a) b
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
    6 C0 d4 |+ O) b+ i, B* d
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    3 B* V% O, {2 n% k5 Y) ?
55. 
    
56.                     AskParents(parent_object.Tag)
    & }8 w  c1 Q4 J- n
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    2 V3 v3 w6 A7 G
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    : ]5 Q3 h  m+ Y" b( j4 ^
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    . N& q3 E% t8 q
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    , v7 V7 t1 `0 Y" m, J9 L
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    ; r  y+ L; I9 w# d1 x# B! H
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    / n- s5 _' C: v1 ^
69.                         For Each temp As Tag In occTags
    0 F1 R/ p8 b7 v4 }
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
      ^' _; h3 X  q  S
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    3 |  a) l: X( {9 q6 q
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    : P! L- ^1 z5 C& F5 s; e, T. F: X+ U
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    4 r3 t- |, K7 K) n& c8 B+ Y) v& N
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 **")
    
83.                             End If
    0 i# _  C" n& Q) }( K1 F0 ?: I! Q
84. 
    
85.                             lw.WriteLine("")
    
86.                         Next
    
87. 
    
88.                         lw.WriteLine("")
    
89.                     End If
    
90.                 Next
    6 ?$ y4 y! |' s
91. 
    6 f" s6 K) s5 U7 A
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    / ^% x! e  y# q$ Z: h; b  q
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    ; c$ \+ A/ O* {: S, L% M
96.             End Try
    
97. 
    
98. 
    
99.         End If
    
100. 
     ! a: x/ o, R' w. ?' a1 R
101. 
     $ g$ ?- o4 d& ^3 ?% n
102.     End Sub
     5 I# @, p& Z% u/ B8 P  ^9 d# @
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     ( J9 V& f& T" K1 V
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     # |, o7 O. P1 W  R
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     ) v- w- T; m: _& b! T
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     ( E0 `1 b' O8 b, }
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     5 I# C* F% w; G) ]& l+ d* K
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
114. 
     
115.         Dim pointLocation As Point3d
     4 T/ l/ @2 I) v
116.         pointLocation.X = base_pt(0)
     * O# Q9 q# F1 V& L
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     3 K( f4 t, }$ y' |) y6 F
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     
122.         Return response
     
123. 
     
124.     End Function
     + J! e- @) V& f& H0 f% F
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     
128.         Dim selObj As TaggedObject
     ' _5 q8 [6 i3 q2 w
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     % S! _' @1 A) |" z
131.         Dim includeFeatures As Boolean = False
     
132.         Dim keepHighlighted As Boolean = False
     8 H* y6 g7 T6 W; s/ ~
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     3 e' ~7 I& _; D& e+ ^9 {" {
134.         Dim cursor As Point3d
     , @" `+ X" A: `) h/ N6 w
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     
138.         With selectionMask_array(0)
     ; a. m' J: C# v0 e# \
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     & B% k9 Z) B9 T
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     " ~& `/ |7 o4 O
146.          selobj, cursor)
     9 Z* i+ T2 e5 b. z. D3 I
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     % n4 B. X8 \1 ~
148.             selPoint = selObj
     3 o( b( Z( J- Z' b
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     
152.         End If
     ' |% }, S2 b2 e" z& |+ ]* D) f( Z
153. 
     
154.     End Function
       m3 C6 y. d& j1 c9 D7 H: z+ B
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     , c" l' Z* |* q
157. 
     
158.         Dim result As Double
     , W, n( @- `6 l. `* W) M1 @' L  s
159. 
     : Y, A6 H: [9 }1 q
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     ' W$ R% D. a4 N3 o, [
162. 
     ; R9 b1 i, y1 H
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     & ?  w3 J- R; ~  [1 n  _8 b
165. 
     7 S! C( M  B" K
166.             measureDistanceBuilder1.InfoWindow = False
     : k) K! x8 P2 Y! |- [
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     + [) F' c  ?. s* F) X/ [
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     
175.             result = measureDistance1.Value
     9 z% f4 r1 f4 k8 {$ t$ V7 Z
176. 
     
177.             'measureDistance1.Information()
     ; ^" }9 b2 F9 T6 _
178. 
     % Y: R! \! J8 h2 C
179.             measureDistance1.Dispose()
     4 M  u. |" v8 B9 N( q
180. 
     ; U7 t# w2 W0 q$ c0 {; w$ @
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     * x. p/ t0 s3 V9 L4 n6 d$ {2 T
185.         End Try
     
186. 
     . c& x" i0 T' B$ e; R* S& ^
187. 
     $ [  k: Q3 a6 K0 m; f9 J! H
188.         Return result
     4 I4 J. E: Q) M3 n4 h3 H. ]
189. 
     & D9 W6 R7 k7 ?- Q
190.     End Function
     # C9 ~- t' d+ L  i7 S; D& s
191. 
     % v& _; l$ C; W0 g, R
192. 
     / p0 Q; q5 T8 J  K8 J9 b4 H
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     . ?' A; _* M+ K, W. L- s- Y
194. 
     
195.         'Unloads the image when the NX session terminates
     / ]% s' Y( J% E& J1 }! f; q. _
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     - u' ?+ ?/ }5 k2 X) t
197. 
     
198.     End Function
     
199. 
     
200. End Module
     " N7 q+ W. R5 Y+ l) r$ y& P
201. </P>

复制代码

admin

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