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

admin

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

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   % r$ |1 ^6 W+ \3 ^/ V
7. Module Module1
   : ?" w7 [- M# p$ m8 C
8. 
   $ y' r1 k& [2 x. w: L4 f2 {8 ^
9.     Dim theSession As Session = Session.GetSession()
   , W2 {4 R' @# n4 Y2 f  l+ [/ ?7 Y
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    6 m& m! a/ l) |* s
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    4 Y! O* R; }* w/ w' Q/ r
15. 
    
16.     Sub Main()
    
17. 
    ( U& E- v5 J% x: ~
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    ; p7 g1 H3 ?& b) W% b1 v
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    5 u! Y# ~# j! m
24. 
    ( E: B" @! h, |/ m) P7 Q  E1 E
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    8 ~! D7 Z( z0 c5 _, ~1 ]
27.         End If
    % D( F  Y; Z$ O' C2 @3 b* @3 r
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    / I& E! F% X4 {7 L6 V" X. |
30. 
    
31.         AskParents(myPointTag)
    6 X" I9 ~, ^; @! g* P/ d/ k) n
32. 
    & P! U6 Q/ X( p6 S$ g, W7 B
33.     End Sub
    
34. 
    + Y: [; X/ b7 C0 b2 H/ F5 s
35.     Sub AskParents(ByVal objTag As Tag)
    6 Y" G5 b" {8 V7 T+ V
36. 
    
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    - O$ T8 H" f( c/ C1 s' b
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    7 G6 [9 q- h# |
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    % @$ A* w1 t( n' T; w9 `" M1 t
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    : G6 [3 O; p5 _
48.             lw.WriteLine("")
    $ m0 ^# C  {4 n8 N1 ~7 B8 H7 z
49. 
    
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    2 c# {1 y- D5 B+ g
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)
    8 z) ]' B3 k- a$ f/ d! z1 Z
55. 
    * d% l9 m! f) y5 c" T: W
56.                     AskParents(parent_object.Tag)
    9 ]# }5 q- ?/ F/ B$ {) J
57. 
    " g; {# K# d- c
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    ) ]! J! I+ X3 U2 Y. V$ F
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    , @" U9 {' r$ H* ^! U/ Z& A
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    0 `# D, }; F1 K' x
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    9 k, `+ u% ]1 S' Y- }5 c( V% V
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    ) S* }% X* H5 a: X! C
64. 
    9 n3 L" J  c) z! ^
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    ( V. f9 a) K% h# @4 p
66.                         Dim occTags() As Tag
    , J; Y! @! A& U
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    0 z7 P& Y5 X! l4 h) p2 |
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    ! u5 Q5 n6 `& L* [  }2 e0 {
70.                             Dim myComp As Assemblies.Component
    
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("")
    7 B* L& S1 T4 N9 r) k1 J) ^
77.                             lw.WriteLine("component name: " & myComp.Name)
    1 _4 y, H& s7 V: J
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    * N* c- `  R4 Y4 l1 L
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    ; P3 Z: H0 |4 x% B
80. 
    0 I5 P* R6 Z& x* F
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    3 I  q6 M: r: |1 M! f4 y! ]
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    6 Q( W7 V' ?% L& G% j- f
84. 
    6 G9 W" r5 q& G/ u
85.                             lw.WriteLine("")
    
86.                         Next
      c5 q% W. v0 ^4 b
87. 
    
88.                         lw.WriteLine("")
    ( n& E- P9 a! D
89.                     End If
    
90.                 Next
    
91. 
      M0 F' R' ~' |; g
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    ( T8 `( [- P, e
94.                 lw.WriteLine(" Error: " + ex.Message)
    * ~, E" i/ P1 U: C
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    / p9 e$ ?4 Q( J! I
96.             End Try
    
97. 
    
98. 
      ?8 n5 g$ L% X& x
99.         End If
    4 P. Y" d8 ?% c0 f' s3 R
100. 
     
101. 
     
102.     End Sub
     " v$ @) o; f3 p0 i1 g# Y
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     / Z6 d2 Q7 ?1 J/ v1 j3 X- m0 f  p
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     $ M  a* m8 ^" j. r* W3 `$ W" {- l) N
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     : B: A6 _4 l, ~
110. 
     4 |& Q2 R/ K% t3 R0 ~
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     # z6 E6 B% g8 M/ J
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
     ; Y0 _( `1 K' Q7 S  ]" T" g2 r# I
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)
     + w6 f& y5 @2 ~/ @3 J, u
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     6 r9 o2 z" P2 a( d$ ^& U, Q
122.         Return response
     3 X) \7 i9 J/ M" |, E) \& ~/ C
123. 
     9 ^* D; O; \% k- C- \: ?( l6 D
124.     End Function
     
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     
128.         Dim selObj As TaggedObject
     
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     
131.         Dim includeFeatures As Boolean = False
     7 D6 ^" _; H* r* I5 a
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     ; V1 O0 J3 T9 L) ]
134.         Dim cursor As Point3d
     & Z; n- U& p# R3 F" x/ i6 X
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     ; d( f. Y# H" }  p3 l
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     + L- u5 j% k% U0 R/ |# L
137. 
     
138.         With selectionMask_array(0)
     + n6 z7 G) L1 }) `, f
139.             .Type = UFConstants.UF_point_type
     0 b: P  @' H! O4 }7 H) K. u4 o
140.             .Subtype = UFConstants.UF_all_subtype
     $ A  I& E. @6 E! M! m
141.         End With
     
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     
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
     0 `+ y- _" k8 D, W7 K7 i
152.         End If
     3 ]) |8 @$ e, G) c# O
153. 
     
154.     End Function
     : z3 e( m: b! m" l& K# i1 P
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     
159. 
     3 C. s2 `4 T8 e# t8 h9 Z
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     & k! }* |6 r4 N- I) S7 V3 S) K
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     0 V7 k) y/ g' @) B. k7 I
167. 
     2 s. u' s. _2 J( A" w! N$ @
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     2 a# V- G; V$ k6 @- J& N: I
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     3 p, _' G  k- b
174. 
     . s5 T+ B+ x$ f
175.             result = measureDistance1.Value
     
176. 
     
177.             'measureDistance1.Information()
     ; v, `) |& c3 W# ]
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     2 \" F) s3 g- S1 I$ l# D
181.         Catch ex As NXException
     / P, v6 I+ v+ F6 t: e
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     
185.         End Try
     ( Q" H" r4 i* }3 V, U; ]4 ?
186. 
     
187. 
     ) z, g9 h# }9 s$ _) b
188.         Return result
     0 N6 s3 R6 a$ ^0 f* m2 C$ |
189. 
     
190.     End Function
     & ^8 e5 a6 [" ]1 s% c7 T- h
191. 
     
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     1 l, b- E5 e/ `; y% d5 F
194. 
     * P# h0 \! `/ e: z6 U% z
195.         'Unloads the image when the NX session terminates
     7 v; D* d/ Z+ _# \( U9 M
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     
198.     End Function
     ' E; v8 O8 c+ \3 P
199. 
     0 |* V/ C) \7 q# \
200. End Module
     7 l! i" w4 y" q
201. </P>

复制代码

admin

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