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

admin

NX二次开发源码： 装配中选点，并报告父对象
- h  w$ l* v. o8 z. v4 e

1. 
   3 n% a8 R8 O& o, [" [% |* e
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   0 b/ W- n! Z8 O, m! p) B. P
6. 
   6 q, ]8 l6 b# H/ k6 V  x  V* C
7. Module Module1
     n/ e* q4 \/ I5 }
8. 
   0 W( ?& v, s* c8 z* W/ c, e3 a
9.     Dim theSession As Session = Session.GetSession()
   9 E, v3 J! J& d* Q# F
10.     Dim theUI As UI = UI.GetUI()
    " C+ ~! x) G2 n' o% K! Z
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    1 s/ U2 |& L  d; e! h" {
12.     Dim lw As ListingWindow = theSession.ListingWindow
    * l3 B4 c7 c, T: n: c8 a
13.     Dim pickedPoint As Point
    6 p, b6 c3 y4 Z, A, j
14.     Dim myModelingTolerance As Double
    4 m+ J' t0 k) a1 z' |) i
15. 
    
16.     Sub Main()
    
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    ' l/ W* S8 b7 o+ [
20.         Dim workPart As Part = theSession.Parts.Work
    0 x9 M! V# ~4 \7 o. x& G
21.         lw.Open()
    
22. 
    3 a5 Q* w% J/ s# W4 l
23.         Dim myPointTag As Tag
    ) v% j- H, h* B
24. 
    ' E  \3 H) t9 L- C( t
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    
27.         End If
    4 K$ W2 H; K+ j: M) @
28. 
    0 [+ w( _5 C% X7 t. M! {2 I: k
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    % {+ y1 ], D! b  O
30. 
    
31.         AskParents(myPointTag)
    
32. 
    ) C3 I% s3 O6 c' `; ~; R
33.     End Sub
    , \/ n) p# a- c& ~: y) g5 u
34. 
    % Y+ E" _' T3 \6 O6 n7 y7 E
35.     Sub AskParents(ByVal objTag As Tag)
    1 }& C* S& O1 g! t# g
36. 
    1 E. L# c: G& [& n& ]
37.         Dim n_parents As Integer
    1 T/ F$ d4 [6 m3 u2 [! d3 D$ F% Q
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
      w1 g: ]: P8 ~- C+ X/ e+ Y8 j% V7 P
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    5 i8 k, K( U" H  ]! Y
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    1 |- {8 U$ C$ A9 X  B. I# g
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    1 h. i% Q4 c/ ?; L+ f' f; m
48.             lw.WriteLine("")
    
49. 
    # r$ S( w3 ^( ~6 ]. u
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    8 q9 \. f7 M( {1 S! O
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    6 A$ h1 L) _8 s: K
53.                 For Each parentTag As Tag In parentTags
    
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    ( z( q, G4 }4 ?# e/ K3 S
55. 
    $ r+ y' F' ?* A, X- P! P
56.                     AskParents(parent_object.Tag)
    4 {" p' g7 c& w" n
57. 
    0 H: m4 v( L5 q
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    ( l$ q; M6 D  U
60.                         lw.WriteLine("")
    ; c( ?- X6 ^8 E2 o
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    ( P$ a2 r) x. ^2 M  x% [: X
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    & [; w9 ^# W# B# x
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    ( S0 [$ L  Z) g( k( T8 \, u' F
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    4 m- m% H+ e$ K# ^* ?* C5 I
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    ) D" s- X. w; [8 t
73.                             Dim myCompOrientation As Matrix3x3
    3 a# i7 r( |7 t  k% R
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    % E$ }9 N8 W7 b: J
75. 
    
76.                             lw.WriteLine("")
    8 ^6 s' `  Q" P* e" g4 C1 }
77.                             lw.WriteLine("component name: " & myComp.Name)
    ( r4 }8 @5 Q8 \: ^. @
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    , @; L& w7 R$ t
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    3 n5 ?4 L. \0 T- `3 `
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    8 {' [3 T; C( f8 o! o
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    
84. 
    
85.                             lw.WriteLine("")
    3 j; q# F. E6 c: L7 S3 A7 P
86.                         Next
    0 v. h. \! t( a& G
87. 
    
88.                         lw.WriteLine("")
    
89.                     End If
    # i# P3 }; {* u6 X/ u4 v' q6 b
90.                 Next
    1 \2 I* _: q: X# t. M  z. T
91. 
    * x1 t) a+ a1 q; ~  Y% O
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    6 y, I3 \: W4 _- f; J; E! y
94.                 lw.WriteLine(" Error: " + ex.Message)
    + X9 P  p9 N4 q1 E
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    $ O2 N! B3 p; U7 A9 q' F
96.             End Try
    
97. 
    
98. 
    
99.         End If
    . e. J) u" _9 N3 P0 l
100. 
     & r. {- @/ h5 C% ^# C9 W
101. 
     + B6 v( n* F2 B, h* S) ?5 R9 ?
102.     End Sub
     & q" j3 a( a+ P) J3 u' q& F( X
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) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     & |$ V. C8 ^6 B0 |% y# V7 b
108.         Dim response As Integer = 0
     & n) h( @$ X) Y% D/ ?3 F; Y
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     * B! @. G& t2 P1 v5 e0 p
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     3 ?% _0 `* M, F' A
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     " T+ R5 b) X: M% Y$ _
114. 
     : _: G! E- y0 D# B6 ?
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     9 F. Q! c/ S1 b; F
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     - B' ~4 ?2 x$ P( ]. y
122.         Return response
     
123. 
     
124.     End Function
     
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     , s2 Z/ l# G8 j1 @1 g  q1 Z
127. 
     1 g6 S$ n+ s! _3 L6 ^: |
128.         Dim selObj As TaggedObject
     $ Y; [" K8 P9 g. c$ X2 J4 ^
129.         Dim theUI As UI = UI.GetUI
     / P* V0 x" i6 K
130.         Dim title As String = "Select a Point"
     ' ^" ~- V0 j; C1 F0 h% ^
131.         Dim includeFeatures As Boolean = False
     4 T# Z# y# I0 n2 Y# _0 q3 F$ n
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     ( q7 C0 ?; b8 F5 q: h
134.         Dim cursor As Point3d
     8 \8 Q1 h! L5 W3 H' P
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     7 A! N. D5 Y: x: t* E5 M! E1 K
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     * l  L( X0 W9 I( k7 @
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     & y; _7 ]3 b. O+ N7 l- `) v
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     & ^$ m( B$ n2 k! C
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     . x) G7 A  d8 w7 j9 U9 d9 z
144.          title, scope, selAction, _
     5 o7 `. W& K2 n( [% z, I
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     5 L- P. A( b3 d# l
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     % G4 O& Q0 t3 e! j
148.             selPoint = selObj
     . v9 b( R: I& f( ]/ c
149.             Return Selection.Response.Ok
     / R: J9 j. `) r- g. |
150.         Else
     
151.             Return Selection.Response.Cancel
     7 S- U7 \( L" V2 E9 {
152.         End If
     ) U% i0 y2 r( a1 @) v& w7 @7 ^5 M
153. 
     
154.     End Function
     
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     ) N6 ~! w+ c/ S: m7 k
158.         Dim result As Double
     
159. 
     
160.         Try
     - _- G8 R9 P. z7 m7 Q
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     6 {4 w! L/ Z) W, |  ^) v- {" i
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     & F9 P$ |* u* [/ ?5 \
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     ! f& ?  g$ t; e1 V' X- b# g
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     ! m2 K. }& J8 \7 e6 N
172.             Dim measureDistance1 As MeasureDistance
     * |7 K& l- O- e0 U  X
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     & |4 g7 i% c. x% F' x
174. 
       d- W; ?) a& M) d& u
175.             result = measureDistance1.Value
     7 W# ^7 v  b- {0 z1 @
176. 
     5 B# l3 I% Z9 P. r6 N; O1 ]
177.             'measureDistance1.Information()
     3 j* k( ^# \: [) W% b
178. 
     . i$ t- t, {3 I+ q+ L
179.             measureDistance1.Dispose()
     
180. 
     - B) F% c. j* `* i0 K8 S
181.         Catch ex As NXException
     7 F- |+ F5 W; i0 u
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     3 H( F8 n1 D5 }+ R) C: K8 p
184. 
     
185.         End Try
     
186. 
     4 \3 H# A( _8 a$ O! _
187. 
     
188.         Return result
     
189. 
     
190.     End Function
     
191. 
     5 |; l4 l7 G8 j7 q5 \4 b6 n& H& o$ x
192. 
     , n+ z, C- A: F; \5 J
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     9 ?  K  o; A, a' J6 U
195.         'Unloads the image when the NX session terminates
     3 S. @" c- s# `4 e: o+ K- z
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     
198.     End Function
     8 I, c/ \- |' X2 i" d
199. 
     
200. End Module
     9 K4 Q, b& w2 E& q
201. </P>

复制代码

admin

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