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

admin

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

1. 
   
2. <P>Option Strict Off
   1 }% w8 l$ ?+ t- _- ^6 s! `% e( v
3. Imports System
   2 N! x' S' o, C' X$ r
4. Imports NXOpen
   
5. Imports NXOpen.UF
   ( s4 l, y& I  {+ L# x  R2 i
6. 
   
7. Module Module1
   - G6 t, {( U5 U$ a% h/ |! `0 d
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    1 A) D4 X; B5 ~- K, j- M
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    " C& y2 ]1 M& ?* S6 g* U
14.     Dim myModelingTolerance As Double
    % I( j: x6 ?/ B" _8 l+ a- s) d
15. 
    : Q" j' d! s1 M/ i/ k
16.     Sub Main()
    # d& {) I' B6 h: H" w5 @
17. 
    " h, j1 D3 w) R: {& c+ A4 K0 k
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    1 _6 P2 p5 [0 c7 o" I! a0 J
19. 
    1 ]9 e6 c) {8 K0 S# d7 @& w
20.         Dim workPart As Part = theSession.Parts.Work
    % y- d, ]3 h: u# N, [  y
21.         lw.Open()
    : N9 H, A( W0 |! v$ W8 ~( L
22. 
    * \9 s3 D* S% ?9 [8 w
23.         Dim myPointTag As Tag
    5 _  g- C+ {! Z
24. 
    ! w# w- ]- \  o
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    
27.         End If
    
28. 
    $ u7 a* _8 y$ d$ A- ^2 F( {
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    / t% F' Y/ D3 S6 A/ l' w
31.         AskParents(myPointTag)
    
32. 
    
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    ) k8 Q& X3 d9 L- z
36. 
    + u5 i) w' V2 \) ~& ^6 b( g/ k+ i
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
    
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
      t% f$ F) z5 Q4 r. z
44. 
    & n! H0 Q; c, F- D0 g
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    0 s" L8 H" s* ~  L  z# `) c
50.             Try
    5 C. W% u' J5 r& Y. A9 \
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    4 C  Y4 j) U* K  Q# F
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    
53.                 For Each parentTag As Tag In parentTags
    2 {1 u( Y# t- ~' Z7 ^2 v
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    
55. 
    ) x! d2 ~! c/ q7 e4 A
56.                     AskParents(parent_object.Tag)
    # ~0 A) H# w9 G! K! a, T
57. 
    9 j* e# ~  U: D
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    ; ~5 m. U( `3 ^$ n2 x5 A& `/ h* r
59.                         myEdge = parent_object
    
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)
    * c' t  T! R' s% y: @6 {# s
64. 
    * c9 N; H1 m- s+ ]1 K
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    ! Y. ~( D- Y! u* Z3 a
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    2 [$ Q1 M* M# ^4 [: k" f
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    : S7 ~& G  B( |. N6 o/ s
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    $ i/ K: T" A3 L* ]
75. 
    3 B+ U0 S" u) k) `; V+ \
76.                             lw.WriteLine("")
      E' r' _2 p+ r; {0 |1 [" V: c
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)
    
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    8 o2 z1 J, ^' a7 {" x6 J; Y
82.                                 lw.WriteLine("** This is the component that was picked **")
    % S3 e1 A" @; m+ u- M  f% J
83.                             End If
    
84. 
    4 b7 z& W) ~+ I' S2 ~8 D
85.                             lw.WriteLine("")
    - G, ]0 O7 H) E" }3 j
86.                         Next
    , g1 n+ {; x$ |  t
87. 
    
88.                         lw.WriteLine("")
    # ]2 h& S+ u* e/ ?( \
89.                     End If
    1 u) r# X  @$ |. C7 W  x" D
90.                 Next
    
91. 
    
92.             CaTCh ex As Exception
    , m" M# _! B9 S9 W
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    1 o+ b* s" R0 e5 l$ A) \9 S
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    ' E! i$ I1 D6 a+ T7 ~; S3 r  C% d* \, R
96.             End Try
    / b5 Y& }( g  A9 p6 n! p. ^. F
97. 
    ; m7 Y, t( a4 l9 J; j
98. 
    
99.         End If
    
100. 
     : S' J% l0 p+ w* c
101. 
     8 g$ Z0 D9 {7 T8 ^8 N  Y5 C& Q. j0 V
102.     End Sub
     7 V; M4 C  w3 t. \8 w
103. 
     % X0 R! y3 y/ K4 h
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
     , N- A6 [2 t8 Y/ L0 [
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     : @3 N4 C. ^7 L! Z& w
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
     
116.         pointLocation.X = base_pt(0)
     : i4 K+ M' j  X
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     5 U# z' @% g+ g
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     1 O: [  t7 u/ c9 `1 I/ m
121. 
     2 V6 c5 B3 s! g  f3 V$ z* q# X
122.         Return response
     " E. Y1 L2 y: n5 _/ W' P! I4 N
123. 
     4 M9 V, n2 J, K. V3 i3 A0 o1 [
124.     End Function
     
125. 
     3 Z) I  h4 m8 |9 C( v  Q
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
     8 U  M$ _4 A' L/ u4 n, \3 U* Z8 S
130.         Dim title As String = "Select a Point"
     $ U/ N% P5 x; n
131.         Dim includeFeatures As Boolean = False
     
132.         Dim keepHighlighted As Boolean = False
     5 T+ l) S) d4 n0 w
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     ) H) Y9 F# B5 @3 Q7 F
137. 
     
138.         With selectionMask_array(0)
     ) F& ~" u( v. F* T' U+ V, ?" |
139.             .Type = UFConstants.UF_point_type
     8 d+ q# y0 A+ v& b. v% Z3 Y3 ~: P
140.             .Subtype = UFConstants.UF_all_subtype
     6 K& w7 Y4 T6 \0 s
141.         End With
     
142. 
     - ]% a2 x- _" ^+ v
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     5 u* _" d- l4 {/ w2 _* Y7 P2 C& R- I; y
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
     ' z, S) m& |9 C+ p# L
150.         Else
       l  ^7 ^: N9 _% Y" k3 \
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     
154.     End Function
     
155. 
     8 C+ q( c& _# s+ C: c3 t
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     * {$ H; M* }( f1 S8 E
159. 
     ; v3 p2 C! t& \4 X4 j
160.         Try
     3 k' _! R; t/ V8 J& n' H
161.             Dim nullNXObject As NXObject = Nothing
     * w# S- U4 T3 t% c
162. 
     / p$ Z/ N/ [  ~+ I1 [% [
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     8 w8 }2 r+ D4 z. k
166.             measureDistanceBuilder1.InfoWindow = False
     ; I1 Z0 E; X8 f& w
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     & H5 W4 ~. e- N. A1 k5 r7 E
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     ( I; L$ w1 B, M8 U
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     6 Y1 U( N) g0 M% A1 j* q
175.             result = measureDistance1.Value
     
176. 
     4 ~6 E, x4 q, n) a8 n
177.             'measureDistance1.Information()
     
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     " T9 x' o5 S# Q% t# R$ f) L
182.             MsgBox(ex.Message)
     4 M- D' e& c. |3 Q; ~
183.             Return Nothing
     
184. 
     8 N2 u6 g2 ~6 U" R1 \# }6 F
185.         End Try
     
186. 
     
187. 
     
188.         Return result
     + C: q( ^4 p6 w' n, y/ y! b3 B
189. 
     : v: M; @5 E* w% G4 A
190.     End Function
     9 ?* [! o" z* u: M7 m
191. 
     
192. 
     " K) `8 W, F- |9 w3 Q- L2 S
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     
195.         'Unloads the image when the NX session terminates
       N3 e+ \" q  |6 ]$ Q+ h( ]
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     # m7 U" P( ?8 f2 x: g- F
197. 
     
198.     End Function
       U* m! A* x1 g& b: v
199. 
     6 W$ _5 a" e5 \* k! {
200. End Module
     : U  f) q9 b, g0 E* H0 H: m0 `
201. </P>

复制代码

( c6 o4 `0 b; [9 }! c

admin

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