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

admin

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

1. 
   
2. <P>Option Strict Off
   2 P2 l) }  b9 |1 F) h
3. Imports System
   : Q+ H1 p7 F1 M9 L8 W7 y. W7 u
4. Imports NXOpen
   
5. Imports NXOpen.UF
   ' g% ?) L( K8 J1 J) ]
6. 
   
7. Module Module1
   : `9 V4 g9 W* k9 d) {6 r
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   5 P( s; T) k+ l5 f: i3 a' o# d( D7 I
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    4 {9 y( y+ x' G. b0 j- T
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    0 q7 W+ ~. m( o& {! K
14.     Dim myModelingTolerance As Double
    * m( m, x) ^& g- H
15. 
    
16.     Sub Main()
    
17. 
    / ^- c) K9 Y& Z+ n* D3 _5 F
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    - P5 N5 I: f2 l4 Y
19. 
    ! y) ?) u- b  @! {
20.         Dim workPart As Part = theSession.Parts.Work
    5 c- a, ?9 v! K9 s/ ?; O* y- [. \! S
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    : i1 P  x; r! }. F
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
      O9 I/ j6 s* f
27.         End If
    
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    $ l; [& m" b& x" B0 p) a
30. 
    ; B9 i6 X' w' d5 }0 `  i! w. G3 W0 v
31.         AskParents(myPointTag)
    
32. 
    
33.     End Sub
    
34. 
      O9 Q' P- f! y6 k  k; L& ?& R
35.     Sub AskParents(ByVal objTag As Tag)
    * Y- [/ I! Y! }. n4 Z' X$ w$ o
36. 
    - ?# }3 A0 F& C# }0 e" R4 m+ W
37.         Dim n_parents As Integer
    * `- e/ d9 N; i8 d
38.         Dim parentTags As Tag()
    6 X5 g! T5 O2 ~. c  \/ g
39.         Dim myPoint As Point
    , R1 r' G  }7 Q/ Q( h
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    / [+ ]6 x, y  t( a2 i" k
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    # B0 d$ j. Z+ Q( C, n4 D$ `
44. 
    9 B! @- P: @! z
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    + L  M8 W, d8 P4 U* e
48.             lw.WriteLine("")
    + A) |. X: k' U2 I. _
49. 
    
50.             Try
    5 B2 g/ q' |) ^9 D- [" {3 M/ h
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    2 {7 ~2 \# v8 X/ B; J; I9 F$ @
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    2 b* O# S, \* ?6 v0 @; a% G9 y
53.                 For Each parentTag As Tag In parentTags
    5 K/ L# q; w3 k8 m& t9 b
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("")
    9 [( J9 X% P# |/ _* m* p( H
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    5 H8 Q" \$ E6 P1 z2 C
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    , l; x) |- a5 J( o
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    & k) |; e5 k+ z  f- c) j
64. 
    3 w3 _2 J: G* e6 {$ n: B% ?6 y6 W
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    ; P& J! N: n7 [9 a- `$ m
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
    % q' e: C9 ^% d6 J
70.                             Dim myComp As Assemblies.Component
    / D( i6 A% A: h& l* B1 a
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    / p, b( c0 t* J$ v$ v
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    ! g1 E5 _- V  k: ]+ p
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    $ X1 n3 u, [: {
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    ; k# h: k: B2 I1 a" K
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    & v9 f; f  }* Q; a" _
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    ; T3 [5 R. m$ w4 H3 h9 h6 o
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    1 {- ?1 V2 J. t/ v9 M' L4 n: E! G
84. 
    4 r6 V+ \) K$ e: |6 g3 `6 I7 v
85.                             lw.WriteLine("")
    
86.                         Next
    
87. 
    
88.                         lw.WriteLine("")
    , ?* Y. F( D  V
89.                     End If
    
90.                 Next
    : d3 B9 Q, K2 G) [
91. 
    2 W" f2 J1 d0 v, S( v  F; v
92.             CaTCh ex As Exception
      H8 X  r0 Y# o# {1 j
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    8 S. u- y8 O8 j9 p; u/ Y$ @& h
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    % B. h  }  \) D/ E* D2 M; u: G- N9 C" f
98. 
    
99.         End If
    
100. 
     
101. 
     ) i: t) v1 T: z/ `) \$ _4 P7 {
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     5 G6 @' o/ Z7 p# s1 e- B( F9 O
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     
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. 
     , F' B, |7 ~! i+ i- }1 j! X$ H
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
114. 
     ( ~" S. F# r2 W: x% U
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     ( q# Y- B5 l" c$ N7 e; u& t. t
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     % D/ X& k/ t& @0 u1 w
122.         Return response
     5 a5 L+ E3 O( t7 B- {6 R
123. 
     
124.     End Function
     $ o  o5 t8 F5 ]4 D1 o3 S
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     ! u# ]1 |' ~/ K5 Z  v* {& r
127. 
     2 q% m* a1 k% x9 c7 v
128.         Dim selObj As TaggedObject
     # h2 r4 c7 }4 ~$ E
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
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     9 e0 x  M+ D* z# O0 i
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     " i  ^/ k' W. @, L# s( l0 `7 t4 t
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     " @6 M- A* f6 L. j7 y
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     ; C: `8 F8 a0 z3 }  b; O  u# e' n
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     1 X' Y  S4 j& ?( b( x% [; U1 `
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     ' c' f3 M8 E" x$ p  O. z
148.             selPoint = selObj
     . o: ]# _& j. p
149.             Return Selection.Response.Ok
     4 S4 u. f; N) B! J
150.         Else
     0 d; x* N& d9 [1 E# k# k
151.             Return Selection.Response.Cancel
     
152.         End If
     4 e1 q1 }- d; Z) y
153. 
     
154.     End Function
     
155. 
     + p/ m% E8 U# ?- D# x
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     % C$ l0 ?6 n0 f
157. 
     
158.         Dim result As Double
     # a8 X2 A3 {& N. P0 i) H
159. 
     
160.         Try
     $ e) _: m5 R. I+ z1 M; u
161.             Dim nullNXObject As NXObject = Nothing
     8 E% |+ i$ E! R, Q, x! e# h
162. 
     5 j' B! e/ G# f7 z( ~& d
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     , g9 y6 ^3 ~5 I6 d$ j, `
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
       j9 V" Q  ^8 M+ j
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     6 I+ U" T+ \7 Z% m- l  C; x
175.             result = measureDistance1.Value
     
176. 
     $ Z/ J# w% [# c7 J4 h) S' {  a: x
177.             'measureDistance1.Information()
     2 w; Z  u+ f& ~2 y% G$ @: m) C
178. 
     
179.             measureDistance1.Dispose()
     1 c" {0 L6 E3 J, H5 T
180. 
     
181.         Catch ex As NXException
     1 J( {% w* j; W' i3 v; f
182.             MsgBox(ex.Message)
       b8 R& t5 C1 ]* h. w3 Q2 v0 s2 u
183.             Return Nothing
     5 `' r8 G, e. v
184. 
     . ?  p, C9 T: L4 D7 F
185.         End Try
     
186. 
     7 J0 |, q0 ^8 ]7 r1 E  b3 A
187. 
     
188.         Return result
     # N- G1 d! T0 U" I5 e: g, V5 F4 c* p
189. 
     & p9 R$ j. J( f, H# M$ @
190.     End Function
     
191. 
     ' R7 G9 l& ^9 N' W1 @7 ]
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     
195.         'Unloads the image when the NX session terminates
     : `4 ~: k) ?4 l/ o5 ?4 @) B; g
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
       w9 s% a) {2 ?! P# h4 {
198.     End Function
     # C/ i8 J4 U% R/ {9 c7 F$ o
199. 
       M* r% V6 T9 b( a
200. End Module
     9 W8 d( k8 T# e! Y7 y( J- j5 c  H
201. </P>

复制代码

9 D- k9 O% E  l- S! T- w( M

admin

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