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

admin

, v& O. _# p$ X' P6 r# ENX二次开发源码： 装配中选点，并报告父对象

1. 
   . v( i% E* V' W- q" O
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   4 r. B6 f& z  C# K* }" I
5. Imports NXOpen.UF
   - x, E7 s% t) }- Y
6. 
   3 m3 `7 R8 Y6 ]& _/ G/ v
7. Module Module1
   
8. 
   , E3 |! p. ]8 H4 ^, |) u7 @
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    1 Y3 k# ^$ f3 S, h+ b& Z
12.     Dim lw As ListingWindow = theSession.ListingWindow
    6 J% A3 N0 j% P! H# v
13.     Dim pickedPoint As Point
    4 v& [3 X/ ^9 r+ \* ]
14.     Dim myModelingTolerance As Double
    
15. 
    
16.     Sub Main()
    
17. 
    4 Q) @5 r/ r" N6 z. m7 K& n) Q/ @
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    0 g, g$ M( G( c2 e( c; `
20.         Dim workPart As Part = theSession.Parts.Work
    ' Y$ C% I6 a/ F
21.         lw.Open()
    " n' k" Y0 `! G
22. 
    
23.         Dim myPointTag As Tag
    3 ]. i; f/ X7 B4 Q% W" v
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    5 W- [) o7 l4 J) A0 Q; j; Y7 T
26.             Exit Sub
    
27.         End If
    
28. 
    ; `5 g4 s1 E$ v# T" B  h+ Z0 F0 q
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    ! P0 u# ?7 W  f; p8 Q
30. 
    3 G  t& J7 V. E
31.         AskParents(myPointTag)
    
32. 
    
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    3 U# h& {- [! y# @& e  d$ U* e1 z! P
36. 
    
37.         Dim n_parents As Integer
    ' |" p! O* J1 f3 i$ m
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    8 z3 u+ s/ f: O
41.         Dim myXform As Xform
    " P3 r( r! p) ?
42.         Dim myTaggedObject As TaggedObject
    4 \7 ^- d7 a3 g/ t
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    4 w3 M! M! L0 w
44. 
    0 P8 D  J6 Y( C9 K9 f" x: g3 ?
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    ) B, n, u( |' C0 L& ?
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    & M& A( W3 o& s0 W( f1 T; n
48.             lw.WriteLine("")
    
49. 
    4 l, r  N, a$ T) x5 m8 o
50.             Try
    0 p" W' K, E$ R
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
    
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    4 R; j; N' ^& G6 l4 e6 ?
55. 
    
56.                     AskParents(parent_object.Tag)
      {' M- L3 ]# n0 f8 m1 h
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    9 D5 I( Z7 Y0 Q3 ]
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    ) e& T' y0 o* C; ], C
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    & L4 Q! C' `5 g7 ^' ~
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    5 G/ h6 r% o2 K# t6 b
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
      z' i$ M5 ]4 ?# d
66.                         Dim occTags() As Tag
    1 U8 h; l2 K! |7 t. N1 J8 r$ a, P
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    : d. b8 V# `( J$ D( [
69.                         For Each temp As Tag In occTags
    ' ~9 G: l( S' d5 N9 g5 ^3 Z
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    * a; e9 E; I! M. Y$ R% p- F0 r
73.                             Dim myCompOrientation As Matrix3x3
    9 [' w, d8 `5 ^: o% y( w" n
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    7 U( P+ {; j/ \1 [* x4 `2 w
75. 
    
76.                             lw.WriteLine("")
    # ~% a/ p. J+ I: X
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    , U/ ^5 d0 T$ ~4 ?
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    
84. 
    : p' V" x/ k. k, x
85.                             lw.WriteLine("")
    " s8 \- x$ B" C3 N
86.                         Next
    $ j' s- z" I/ I- H5 `4 r& ?
87. 
    
88.                         lw.WriteLine("")
    
89.                     End If
    % G* I% z. `, H2 x) Q8 f  @" n
90.                 Next
    3 w  k; O$ t' ]0 W  c% M- e
91. 
    7 ^% d6 g. Q- W- [0 F
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    ( e4 n5 ]5 s5 e1 D
96.             End Try
    
97. 
    6 K2 s. p5 D: ]7 v% y8 Q7 [4 B7 u
98. 
    ! }) Y" T. \# }" }+ M3 O  e
99.         End If
    
100. 
     - `) R) O! y1 `0 ^
101. 
     ' |7 W/ f, W+ N* L% T+ U! v
102.     End Sub
     
103. 
     ; d9 p1 e4 K+ K, u4 P) z
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     . @; p2 N% m2 F2 a% Y* N
106.         Dim base_pt As Double() = New Double(2) {}
     ) @" O* {7 p/ u& g
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. 
     / @$ E- K: v+ u6 K
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     + U7 \- M/ T* S  U
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     9 D4 g* u1 H  U$ d& r
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     , E" W3 V6 ~# O+ l1 m  p
114. 
     
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)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     ! S" H# F- O! @( Y( b
121. 
     3 u8 ], \4 C/ S, q
122.         Return response
     1 v' |2 q6 \  q
123. 
     
124.     End Function
     2 D5 `4 S/ m3 g
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     # m8 a( B/ x/ D7 [2 ?) f! @
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
     
132.         Dim keepHighlighted As Boolean = False
     + ]# B. W' I& G: P' W
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     ) {1 T7 W5 C( I9 I8 Q8 S
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     ; Y/ ~& X) ]3 V5 Y( s
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     8 o3 e) T* W- s. O
137. 
     
138.         With selectionMask_array(0)
     " ^6 F9 f" n( h' s
139.             .Type = UFConstants.UF_point_type
     4 z$ M+ g; S* W" `
140.             .Subtype = UFConstants.UF_all_subtype
     ) O5 A  j- m! j; O
141.         End With
     . Z4 U) s$ S% Y. L
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     4 u. @3 A" f( D/ u1 T) [$ Q
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     # `& k" W. ]$ _5 [+ D
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     1 j) j  w  x8 @' e8 V
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     
152.         End If
     + \+ C9 e' D" V2 N2 B' V! n
153. 
     
154.     End Function
     # G  ~1 M; O# C7 s- ?' U
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     : D  E# D% B4 f# ^
158.         Dim result As Double
     9 }% l: f& ?- W2 b/ `: x, U
159. 
     * S; A2 F5 g; M
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     / g* l# Z7 c4 i* Q
162. 
     3 |) b% q; H* g; b" ?  r
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     ! ?/ E1 r# o' G* K$ B1 F
167. 
     2 V% h8 K0 O. M3 Z9 v0 g* L
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     % X- s/ {) U. _$ c( a
170.             Dim nullUnit As Unit = Nothing
     . @( g, }2 W7 q  `
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     ) k- ?1 }2 G/ g8 M
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     ) E. a' \$ b' H4 f+ j* ]( c
175.             result = measureDistance1.Value
     2 E/ |9 Y  `" X: L7 {7 d
176. 
     
177.             'measureDistance1.Information()
     ) ~* Q4 [6 U" L! Y! l
178. 
     
179.             measureDistance1.Dispose()
     ' Z' j' S  j: C7 N1 }) z
180. 
     : ^, U- H+ J  |0 `4 Q5 W
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     0 m1 w: e0 E# m- b- v
184. 
     % A+ f( }5 W" m' {
185.         End Try
     
186. 
     5 F% M: x4 i8 g1 b5 p9 ~
187. 
     9 h) t1 g9 c, y# ]' a9 ^: }! ~+ T
188.         Return result
     
189. 
     
190.     End Function
     
191. 
     
192. 
     + M8 g* m; c9 w3 b* \
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     " X0 g% i# j( }0 r) `  N
195.         'Unloads the image when the NX session terminates
     0 ~& I3 G% q- T9 l
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     
198.     End Function
     % Y2 J- P( Y# h5 R7 w
199. 
     $ R6 v4 t! v1 o
200. End Module
     
201. </P>

复制代码

+ M( m4 k+ C! G9 L, m

admin

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