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

admin

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

1. 
   3 M! a* @: a1 X( \& E0 V3 A  ?; g% T
2. <P>Option Strict Off
   % D. \! x; n- y- @8 Q  @1 p, n
3. Imports System
   # B* c* Y$ k) j8 N* G# ~0 W$ C* c
4. Imports NXOpen
   # B* ~1 }. j1 c1 K, A+ M. K
5. Imports NXOpen.UF
   
6. 
   
7. Module Module1
   
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   : S  z0 x& ^7 Y% x; I3 _7 M) ~: A2 y
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    5 f. r" r+ `) i" L/ F8 G2 y
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    7 P0 w* n6 o! i3 C" T5 m
15. 
    0 a9 M3 U1 U6 L* i) ?: n2 b2 q& i( }
16.     Sub Main()
    ) o0 ?' p/ b' O) ~$ i: `$ X
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    $ e: z4 m8 Z. \) D  v
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    
24. 
    8 ?8 U! l6 O9 A% H
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    ; R  B! y4 O5 }0 M$ {
26.             Exit Sub
    
27.         End If
    
28. 
    # l  j8 o% ~& e0 q
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    ' R3 \  R# ]$ B( e. O% }
31.         AskParents(myPointTag)
      K& U- O& ]/ A5 Q$ G! @
32. 
    5 q2 r, e( d8 U) k8 R8 }
33.     End Sub
    . v0 ^- j+ r/ l" X6 L% j8 A* l9 b' a
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
37.         Dim n_parents As Integer
    # O! f, k/ m+ K8 @& U& l; y5 {
38.         Dim parentTags As Tag()
    4 S* A/ ^4 X8 N4 ]
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    # H3 \. B5 H  t, z+ R
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    + v: s- Z8 e! D5 R
44. 
    ! l4 t" Q0 r# X! a
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    ' P% m1 P8 R, ~
50.             Try
    / O& a( v. l# K7 R3 g5 Q
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    2 p, ]; w5 G6 M3 }" _( e
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)
    + E) U+ W+ [  A: h# J7 K& K. k2 i
55. 
    
56.                     AskParents(parent_object.Tag)
    2 x' O5 z& s( x6 l9 ?: G
57. 
    & Q  N! r. I* [) t) V1 U
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    2 w- S9 k, V) P; @
59.                         myEdge = parent_object
    - j, `8 @; ~7 \
60.                         lw.WriteLine("")
    2 s9 C$ u. s0 X# c
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
      {! z/ v/ x2 I+ X3 o+ S" ]/ B. A
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    9 @$ w; Z. Q1 f; r) K! X
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    / B# s8 F: j0 f
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    & a' _& e7 ]; {/ n5 u
69.                         For Each temp As Tag In occTags
    * X: w2 g: y  t5 o- F" \
70.                             Dim myComp As Assemblies.Component
    ' N2 n9 m# ^1 j2 j  T0 V. V# v
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    ; X3 [, d. t: p) o9 k+ f1 k: @
77.                             lw.WriteLine("component name: " & myComp.Name)
    4 @1 [: ^' M/ W3 z6 _' k
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    $ b: f2 ~- ?1 y0 v2 N5 ~/ E
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    5 a4 Z- l7 [) i4 J# H, x/ o
80. 
    & l2 v& ?' \) V
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
      _7 ?2 o& I% F2 M
83.                             End If
    
84. 
    
85.                             lw.WriteLine("")
    
86.                         Next
    
87. 
    9 e( q! w0 C2 K) }' i: l
88.                         lw.WriteLine("")
    . O6 L+ j+ r  j  o! k! D( P
89.                     End If
    / E" |: ?! Q0 B" v) i
90.                 Next
    & |9 A% i$ g1 _  m- X5 a% \
91. 
    
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    0 {. B1 K, ?6 N1 G2 S; \% N& Y
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    1 \2 @1 s9 t  ]: K- b' C8 r* V
98. 
    
99.         End If
    / v0 d( i( p" i/ m0 Z- z
100. 
     % C3 I( z: h/ b& i
101. 
     , ]7 `" U7 t2 t5 D( G  M
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     7 c; F9 L! {; I
105. 
     
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
     
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     ! M+ l1 y8 V2 m: M% A& o$ b  o
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
114. 
     
115.         Dim pointLocation As Point3d
     ' E) x; ^7 p$ u# d8 |
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     % M7 T' M' G7 s  o) O9 d6 i
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     4 g7 K/ V# W* J  |1 V
121. 
     - j! L1 B* g* P1 e3 _9 M' Z7 G% R
122.         Return response
     
123. 
     0 U( O0 ^- Y3 Q( S- I3 W! ?5 l. p
124.     End Function
     
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     4 l% n; {4 ^: Z3 Y' E. q/ G1 ^
128.         Dim selObj As TaggedObject
     7 J4 S; f. W9 R0 m. v1 G: R
129.         Dim theUI As UI = UI.GetUI
     ( Y3 P5 l1 s8 m; c* ~
130.         Dim title As String = "Select a Point"
     , c& N) r2 y  D# ]- K# N
131.         Dim includeFeatures As Boolean = False
     ' O' e1 p- O5 `0 j# }
132.         Dim keepHighlighted As Boolean = False
     * o" c' H. M) d; v
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
       M. ]. q, ]3 x% C6 V
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     
138.         With selectionMask_array(0)
     $ b2 P6 \) l6 O
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     " H$ Z5 X/ o2 n! u- L  K
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     8 Q& B( q, w* Z% v1 H
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     
154.     End Function
     2 F: I+ \: @  B3 ^2 W" I' s( i0 B
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     8 O$ E) z0 ^! R0 p) O' {
157. 
     4 g+ T9 u/ \9 d' f( P
158.         Dim result As Double
     . ]9 k  H( C, s# w2 y% b1 x, |
159. 
     - C! \0 G  h1 ^1 F; a$ e! a
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     / T2 x' v: c5 I2 }" r
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     ' @0 ]) [9 [' N8 V, Y4 X; Q
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     : [' Y- z. R. p5 O
165. 
     ; U4 L! s5 _1 a* d5 B
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     $ A. }# R9 y) R; M0 _7 a- c
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     0 K6 u5 T! i/ J7 e
169. 
     ) y5 x# o3 _4 G' v
170.             Dim nullUnit As Unit = Nothing
     5 r& [3 \7 d5 s7 H- t) |
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     ( A9 c' g, F/ Q( x+ E
174. 
     
175.             result = measureDistance1.Value
     
176. 
     
177.             'measureDistance1.Information()
     : ~" ^+ t3 J3 F9 F# z7 |
178. 
     
179.             measureDistance1.Dispose()
     0 @2 s5 }( |& W9 L7 c
180. 
     ! g5 M; K( J1 R" u# W
181.         Catch ex As NXException
     2 v$ C8 @1 D4 c* U
182.             MsgBox(ex.Message)
     + {$ Q- w2 \: w& J8 J
183.             Return Nothing
     
184. 
     
185.         End Try
     
186. 
     * x/ h# v+ }6 O$ P6 _0 h
187. 
     
188.         Return result
     
189. 
     5 c; m9 P- a$ H/ G
190.     End Function
     
191. 
     5 a/ F& a1 @7 d7 r9 U5 {
192. 
     0 y3 Z8 ^) R( u. a
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
     
197. 
     
198.     End Function
     ) M% E7 Y+ X1 }$ y
199. 
     
200. End Module
     # a2 T0 \! E. F) ^
201. </P>

复制代码

admin

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