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

admin

NX二次开发源码： 装配中选点，并报告父对象
( W* P; d+ f5 B

1. 
   * {9 k0 q! b$ H, J* W
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   : A7 i; \% n9 `+ ]$ j
7. Module Module1
   
8. 
   % ?' K! ?) A0 T7 o' Y
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    5 ^: I2 V0 K- i
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    
15. 
    / e8 p: B% S6 F. X4 x( T
16.     Sub Main()
    5 G  v) Y" k4 p3 E0 P
17. 
    " O) l% R" }& U5 V' Y( n& ?' {
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    / H6 Z6 N8 r$ R5 ~# U2 S
20.         Dim workPart As Part = theSession.Parts.Work
    # E" R* v* w; p/ P2 S
21.         lw.Open()
    # w- V1 B% q4 H1 A; g
22. 
    
23.         Dim myPointTag As Tag
      E; h6 K7 E- Q! a: H1 E
24. 
    : s3 {5 B4 m8 p; ^1 I% w6 A
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    
27.         End If
    
28. 
    8 r( C  R2 P" l, g6 O. G5 @. @2 K/ |
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    
31.         AskParents(myPointTag)
    % a; H% G" `5 A9 b) z0 k: V
32. 
    
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    0 D0 j! ]/ u: w9 m0 w+ _% W
39.         Dim myPoint As Point
    ( _% g8 A" A/ G: }
40.         Dim myEdge As Edge
    ; V- A$ a( r0 Q* b; I8 {# g
41.         Dim myXform As Xform
    : y, B; T0 e3 E; u2 ^7 {- T. U- m
42.         Dim myTaggedObject As TaggedObject
    : ~0 |3 z3 s7 M5 r1 o
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    8 `& B* C" C' L+ G3 O
44. 
    8 t. U: T# n5 s
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    ( q% Y1 t: Q/ w9 o3 K
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    $ I# x" X( p3 D5 g( C
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)
    # u$ l' X6 s3 t2 \" G( e9 q# N
55. 
    1 Z; `- {2 T9 g5 N7 G9 V/ L
56.                     AskParents(parent_object.Tag)
    
57. 
    . V+ n( a$ d8 h8 m& W8 e# X" |, A0 ~/ B" L
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    + r5 K% `: P; k
60.                         lw.WriteLine("")
    
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)
    + a5 j" d  F8 F1 a' t, E4 \3 s
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    , k+ ^4 n; |, `7 I6 L. }' k' @
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    ' Z: T* {& k9 x: A: q. h' k
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    ! Q" J; f. Q/ A. }2 R" a9 O$ t& |2 g  X
69.                         For Each temp As Tag In occTags
    8 _# D# B  S* [  Z$ D2 \( o" M7 s
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    4 y% q0 U. `) }: E
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    7 ~0 v% K% U/ v2 F
75. 
    
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    * w1 {1 l" ~) a* s- w4 t9 `$ N; g
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    
80. 
    4 R" P: p; U1 B" j! o7 s* [
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    4 v) J; l) P3 d6 w
84. 
    
85.                             lw.WriteLine("")
    7 I0 v: N! h9 F2 e) ~
86.                         Next
    
87. 
    7 Z# ^2 ~: s4 [: H
88.                         lw.WriteLine("")
    
89.                     End If
    
90.                 Next
    9 g6 T2 @. z: j" d+ C# Z
91. 
    ! l8 Y# @! e6 @; z
92.             CaTCh ex As Exception
    ! u5 U- m7 Q& _: R5 ]0 K5 `
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    
98. 
    " q- f6 L0 u7 |
99.         End If
    9 h$ i% D6 j) t% E8 [6 N
100. 
     2 e" [/ ~( C6 P9 ~$ q' a% E
101. 
     1 S/ N' ^6 G6 F4 w: _/ `: R. q
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     3 o) E" x: x& E' |0 u9 C
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     & p5 g5 B" H# l; ?! f/ L# W+ \* J
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     ! D$ u( ^2 v% y4 w; h) l" K6 @
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     ; e/ A" r8 t; _
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
114. 
     
115.         Dim pointLocation As Point3d
     % F6 U) F" M, D$ q, Y$ u
116.         pointLocation.X = base_pt(0)
     ! n+ r7 Z, L1 E* o' m
117.         pointLocation.Y = base_pt(1)
     7 {' e+ k  A# K) C
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     ! @( h/ X* S) O! V, }9 V
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     4 T8 B7 m; [+ b& l8 i8 o
121. 
     
122.         Return response
     
123. 
     + S" o5 g  O! `& Q
124.     End Function
     # h( M  q3 M& O0 ^+ b$ F) ?, D
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
       ~! @% {7 u1 V: Z# V2 h+ N! d
127. 
     4 G' T$ l) w0 {, {- R
128.         Dim selObj As TaggedObject
     ! Z( s) f: y* E. P. a/ n
129.         Dim theUI As UI = UI.GetUI
     * }5 _" b  f* j
130.         Dim title As String = "Select a Point"
     2 h+ |! u6 L4 R" Y7 e
131.         Dim includeFeatures As Boolean = False
     9 W! U) \' p+ o3 i/ U" B
132.         Dim keepHighlighted As Boolean = False
     ; O) G# f; i- n& c
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     : _( i4 k, T* X7 b7 j6 E
134.         Dim cursor As Point3d
     5 _' V5 H* B7 J
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     0 I" i# U) T0 ~
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     
138.         With selectionMask_array(0)
     ; j4 I( F* E8 u* i* q
139.             .Type = UFConstants.UF_point_type
     ! o. J; [* B& g$ s1 h# E
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     . @+ X6 k2 i3 t# S) b. i; m' U* M) ^& r
144.          title, scope, selAction, _
     ' B" ]3 S8 }+ T2 M$ |
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     4 K5 S& c5 f7 }! ]$ g
146.          selobj, cursor)
     ( c! Y/ F6 w7 b: t
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     : {, P& G1 {( f$ E9 F( Q
149.             Return Selection.Response.Ok
     
150.         Else
     % H) m4 s1 c  Q+ g8 z, ^1 `
151.             Return Selection.Response.Cancel
     
152.         End If
     # \: z- O7 B( w7 z) f# z# o2 w
153. 
     ) W1 @5 ?9 W: o
154.     End Function
     ) w3 I; |) G/ w# b' s& P
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     2 E6 w2 |# Q4 b6 z4 [: g
158.         Dim result As Double
     
159. 
     . v# \: F; v, f+ ]6 Z
160.         Try
     $ z3 J* f1 T/ p8 `
161.             Dim nullNXObject As NXObject = Nothing
     + X% O3 y5 |8 T% O$ `
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     4 f; H* V. a) j  X
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     
170.             Dim nullUnit As Unit = Nothing
     2 A1 y3 |7 g. Z
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     ( [$ A% f" G) h+ i5 o1 o* @$ T
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     
175.             result = measureDistance1.Value
     # {3 O6 b' f: H) V/ ?; P* o
176. 
     / B0 D0 Z9 j( Z0 S
177.             'measureDistance1.Information()
     + D, i3 v1 Y( q; B
178. 
     2 g& D  H, q. T, u7 Q
179.             measureDistance1.Dispose()
     " u) Q* M0 r; {# t0 s
180. 
     " d" R- x$ ^' W6 c
181.         Catch ex As NXException
     + n2 g) c4 b# c/ i* A7 a3 Q
182.             MsgBox(ex.Message)
     / p" K9 Y' \9 v5 z
183.             Return Nothing
     - a, R) x; m$ k* ~# j6 D1 E3 h  S  O
184. 
     $ i1 T! y# R8 X' v$ X
185.         End Try
     & L8 f+ ^# U" @9 F
186. 
     
187. 
     
188.         Return result
     
189. 
     , f- K0 b4 x8 O8 t) \
190.     End Function
     
191. 
     
192. 
     % {  h5 L+ l& Z- X; A. [8 ]
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. 
     ! v0 J) [9 a+ H
198.     End Function
     1 z, R8 \2 x& v5 F; o2 Y
199. 
     
200. End Module
     : n9 v7 R: ~: K& s
201. </P>

复制代码

admin

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