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

admin

4 ~$ x& ~1 z& a/ \% N1 c. M5 ~NX二次开发源码： 装配中选点，并报告父对象
- F3 H, F( W% ^3 P& r  j

1. 
     z  e& p. X# u: I+ i
2. <P>Option Strict Off
   8 G. j) K$ `* d9 K8 B
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   + [/ F& _0 L* c' [- k7 M
7. Module Module1
   2 U6 l6 q6 Y& }6 h4 i
8. 
   ! q. U; e; T" \1 e
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    3 l2 j' d  n5 `) t# J- s( g* l% w
12.     Dim lw As ListingWindow = theSession.ListingWindow
    1 }5 S" Y( h5 M1 C+ E7 J8 i0 @
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    , \, }0 Z+ g1 t$ b& R# K: j
15. 
    
16.     Sub Main()
    
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    2 A- m6 E& o4 y( ^9 K( _6 R
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    6 y0 m- B. i1 }  K/ |/ l$ h' v& P
24. 
    ! ^- \  C7 U+ q3 V5 ~5 J
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    " y- f+ T7 f7 R4 I" e# d: K
27.         End If
    
28. 
    & L9 Y( T+ _2 c( Q2 T
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    * S; c5 t# E  O" {: ]3 F4 K
30. 
    
31.         AskParents(myPointTag)
    
32. 
    3 k1 n3 D; g, W- v5 z
33.     End Sub
    % y( u8 B0 H# H- D1 i
34. 
    ; G# l* J! B( i* H) V( l, I4 {
35.     Sub AskParents(ByVal objTag As Tag)
    4 r% ~  C% U5 x  v) t3 [2 c
36. 
    3 K1 x& |# D! W0 m- m: M
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
      H+ }( }7 z4 f' h% B6 M" H
42.         Dim myTaggedObject As TaggedObject
    ' o: b+ h$ T1 z% v( Y9 K5 |
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    9 }2 h5 R0 I$ n' ~5 h, g
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    5 s/ V- Y7 H; Z) ~9 p
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    & X' K, n  ?1 t
48.             lw.WriteLine("")
    , w+ o. f9 o4 W! f( _5 i3 X
49. 
    : k$ s4 F: @/ q- }" n% t/ @
50.             Try
    ) V" w3 }$ B9 \& f/ q
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
      V# k8 l) I6 I% x6 x
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
      j0 K6 }: j( `. F% {3 m+ t) j
53.                 For Each parentTag As Tag In parentTags
    0 {) Y4 h$ P# V8 Z$ i1 N
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    
55. 
    
56.                     AskParents(parent_object.Tag)
    
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    " k( K) J# B- g9 U
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
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)
    
69.                         For Each temp As Tag In occTags
    7 b4 _9 R7 D' Y, i" k7 z( l- d
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    / F, ]  @+ r+ x
72.                             Dim myCompPos As Point3d
    + `" p7 ?" T. U$ G  f
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    6 R0 F& n1 L% l) b
75. 
    
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    - G! @9 B) b, |$ Y2 g* R
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    1 i3 y6 }3 E$ Z; M9 m
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    & |' t9 G4 d  g5 x7 ^$ f
82.                                 lw.WriteLine("** This is the component that was picked **")
    ! n" x# {. g* ~, j) _7 t2 x
83.                             End If
    6 J; c. _+ p8 ^5 g
84. 
    
85.                             lw.WriteLine("")
    ; b: R% M- E2 j) ]6 L
86.                         Next
    
87. 
    $ b) z8 e7 x. X  V
88.                         lw.WriteLine("")
    
89.                     End If
    % o- w" N( ?& e
90.                 Next
    9 K" r$ N: N: V
91. 
    
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    ' j1 D* T8 R' X6 V
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    8 F) f" i. |: Q" Y
98. 
    " N+ A$ I7 N" `$ p
99.         End If
    2 l$ Y, \9 h: e% }. b6 u
100. 
     # R( {  n" a- W! P5 ^
101. 
     ' u5 b8 L$ @9 X: i
102.     End Sub
     
103. 
       m  t/ k8 w- _& j, c- @
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     % B1 [* _* a3 p
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     / y. q% Z" x8 p" ]( }
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     ! v. I8 e5 W1 j* T; P$ d
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     2 y7 X; K. E+ ]2 ]+ l( b. c$ w
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     # p6 s) g& A- }* ~$ T
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     * w* L, j8 @6 f7 [. }0 {' M
114. 
     % V$ I; x5 }' O, B% E
115.         Dim pointLocation As Point3d
     . p: v$ K; B2 r! V% C
116.         pointLocation.X = base_pt(0)
     , v. Q7 J. c/ D- J  v) b& S; b
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     ! j3 s" l' x6 w5 C
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     " S7 W7 d( S6 K7 [1 p
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     
122.         Return response
     $ @% n" T. l- G* X0 z0 o
123. 
     
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
     8 \8 m5 G8 M% e5 S/ Y  Q7 U
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     ( ?0 B4 H1 f  |3 Q; v8 Z
134.         Dim cursor As Point3d
     / D5 E+ k) M; w% w
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     8 `; V- D: o) B, |
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     # b0 k3 ~  S# t1 E1 n
137. 
     
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     : Q4 S) v3 P$ X. d) W# U
140.             .Subtype = UFConstants.UF_all_subtype
     , Y. y9 a8 |6 }2 j
141.         End With
     . E# E0 F& f, c) U5 G
142. 
     2 X" c- f* g; A& w3 r7 }
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
     
152.         End If
     
153. 
     * m/ P3 ]' c& I6 R
154.     End Function
     
155. 
     2 g8 t- ?6 o4 h2 c
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     1 B  E) z8 C0 \: f# E# D
157. 
     
158.         Dim result As Double
     
159. 
     
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     + m: N9 E# x. P, S
162. 
     ! A0 {( U9 I9 L: U/ \
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     3 g) o6 ^# W9 z! l
165. 
     6 A$ W$ }6 q" i- l
166.             measureDistanceBuilder1.InfoWindow = False
     / w! o$ L$ {( J% I7 l, O5 x
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     ! g8 X! h$ a3 H3 r/ ~  d8 W0 i
170.             Dim nullUnit As Unit = Nothing
     
171. 
     : s, X" [1 k8 P5 g
172.             Dim measureDistance1 As MeasureDistance
     # m) ^2 K! y+ L4 C& {$ @
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     # {" d" [  m* r* F( {3 o8 U# U
174. 
     
175.             result = measureDistance1.Value
     " ~% Y; o" q) }1 }. F5 P0 q# h
176. 
     ' H* s8 F$ i4 C# G0 ]  q$ O& A
177.             'measureDistance1.Information()
     
178. 
     7 F1 i9 _' @" R5 O, y$ g
179.             measureDistance1.Dispose()
     % S( {2 A/ ^5 P; F7 N2 a
180. 
     
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     5 l7 z8 |; J$ J1 U" N1 r& R
183.             Return Nothing
     
184. 
     * ~) B( y* W+ \# ]( b% M( x$ F
185.         End Try
     3 a1 D, H4 L" H
186. 
     
187. 
     4 G4 [% n& @  V7 t
188.         Return result
     
189. 
     
190.     End Function
     
191. 
     5 V, _( ]# h9 a& W' H
192. 
     7 a/ [' Y& z8 N$ k
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     : b' e- i  [& }9 l. @. ~
194. 
     
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     6 g2 w$ S8 W$ i: o# M3 }) l
197. 
     
198.     End Function
     
199. 
     & T! H& [. i1 x$ T
200. End Module
     
201. </P>

复制代码

+ E; p# D+ j- w/ ~' M6 s' Q

admin

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