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

admin

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

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   ( U: s" Z7 W/ C1 S2 J7 k+ \1 b; P
4. Imports NXOpen
   " R5 L* f  Z! t' F  _. D6 ^; f, C. u
5. Imports NXOpen.UF
   
6. 
   , q/ h9 N. ~3 [# v4 K8 \
7. Module Module1
   
8. 
   : M: V4 u7 q% ?( `
9.     Dim theSession As Session = Session.GetSession()
   5 j; P! q5 Y" g# w3 D
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    2 Q5 _' ^" S" K: P8 p
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    
15. 
    
16.     Sub Main()
    : j9 X3 o0 k: [( u) }
17. 
    5 @. m- B% o- |1 U. \1 ?, ^& L
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    ( C1 Z0 |) t+ O0 c* F* W* O, ]
22. 
    / u! v7 u& _) s2 L* o8 M
23.         Dim myPointTag As Tag
    ! f1 p+ |1 Z; d& y
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    4 U# P5 u5 B: B! ~6 M2 }8 j
26.             Exit Sub
    
27.         End If
    
28. 
    * [, T; ?9 R2 b. J- Q: Y, s9 F3 |
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    
31.         AskParents(myPointTag)
    ! U. ]9 G; U; U% i' B- a" C  l
32. 
    # a. Y% d- o' ^% j5 q. w
33.     End Sub
    . _( C/ T$ x( G" X+ h1 k
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
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
    2 }, g' n: w: _- K& X
42.         Dim myTaggedObject As TaggedObject
    ) f5 K0 I. r5 L& q
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    " i( s8 B; T8 |
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    4 B. ]" m% X) ~+ P% C8 a3 w) G
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    * m7 i0 T$ G, m1 j: l
49. 
    
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    1 D- Y0 L6 V& a2 M. r
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    ' e3 {* Q+ f& Z$ s# C1 [. b
53.                 For Each parentTag As Tag In parentTags
    . X/ V( V8 l1 X7 p
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
    . R9 R1 K! I- t4 C$ O3 j; a
59.                         myEdge = parent_object
    6 j5 x$ b( D2 W- j* d+ d
60.                         lw.WriteLine("")
    % b  @' }) k) E3 i" ~6 T, a
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    9 J9 O1 _0 ]1 s! p+ B; ^4 K" L1 y
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    & d* i% T5 Q9 W
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    6 B) Z$ P- w0 z- k  T! t% g* U" ^
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    9 k& D- V/ Z! X* ]
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    * C( q* A- @9 |! y9 k, ^5 [
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    . [5 W" ~, C  Q
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    9 D7 ^' f: x- i* C+ I' r( h) `
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    7 R7 X: k' J4 g- \- H7 c0 N3 e$ c8 J
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    # a2 d, ]# O' C' x& \, z2 o6 }- P1 h
83.                             End If
    
84. 
    
85.                             lw.WriteLine("")
    
86.                         Next
    
87. 
    6 }; _: K- ~& y6 r1 K0 P  i
88.                         lw.WriteLine("")
    
89.                     End If
    ( Z3 ]/ _2 n% F, W3 N
90.                 Next
    
91. 
    , V! q. O5 P- ]9 W& x: o+ Y
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    3 h% x  u9 m! o& k; R& y+ p' L
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    5 g4 [8 G; L' r( K' ]
97. 
    " N! U6 l7 a; n4 p% L1 T: |  v
98. 
    4 `  t: Y! W/ [3 }( c7 E8 \5 k
99.         End If
    
100. 
     
101. 
     
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     0 ?4 S2 D) R; v. Q5 I$ M/ d
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
     ! K, P# [. C7 H
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     4 p( q. G6 A3 `2 C3 K. K- @
110. 
     + i5 e' I8 b5 K6 ]
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     0 w+ |# e# H' Q  d6 Y4 q
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
114. 
     
115.         Dim pointLocation As Point3d
     9 Y/ H: P9 c* U) |$ Q6 y( G5 v
116.         pointLocation.X = base_pt(0)
     & [( R1 h% }! ^
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     : M$ r4 P+ W9 K4 T5 g) w
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     ! }8 K4 s! n: T# A# ^
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     ' ?4 k: n! g5 b# p2 j1 ?. J
121. 
     
122.         Return response
     
123. 
     
124.     End Function
     $ s2 U4 P4 D7 ~0 _6 k' o  y" z1 Y
125. 
     , h2 i' X" a' z$ z1 N9 g
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     6 Z% ~( N" [* N0 Y, x% y
127. 
     
128.         Dim selObj As TaggedObject
     ' x) W0 e3 g- `8 U, |
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     
131.         Dim includeFeatures As Boolean = False
     $ @3 x0 H: b$ v/ ~# P7 k; f
132.         Dim keepHighlighted As Boolean = False
     0 F2 O6 U" _. V8 n- R
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     2 U& x+ h, l4 `2 G! g$ M
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     4 N, o/ c; }. Y& F4 T
138.         With selectionMask_array(0)
     * ^; z0 F% z2 A  o/ ?- {
139.             .Type = UFConstants.UF_point_type
     % v% m' W* Q2 X& [' ~
140.             .Subtype = UFConstants.UF_all_subtype
     7 f1 _  f* V$ O7 }
141.         End With
     ; m# Q  a" W" b+ E' w. l6 v* |  C1 P
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     % w1 \, k/ T6 c# H
144.          title, scope, selAction, _
     " K7 P/ r* a' B5 c& }" H" Q0 z
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     $ X7 Q/ C! [: @# j
149.             Return Selection.Response.Ok
     % t4 I8 Z& z2 q/ F# D  ]
150.         Else
     . T: U5 C' I9 n% r
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     3 L/ K% x: u( T$ C. p
154.     End Function
     
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     
159. 
     ( N. l( }* C( J7 U: |" Z
160.         Try
     ( d! N/ U; s0 Y8 n* j: e1 w' d
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     ( V; R2 d1 m7 U+ e& L0 w5 _
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     1 c& I- g- R3 j6 L& e9 y
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     , r3 ^) i7 F7 A& `
169. 
     5 i" M6 _8 \' f" w
170.             Dim nullUnit As Unit = Nothing
     
171. 
     $ ]0 F( l; s6 I2 A5 h
172.             Dim measureDistance1 As MeasureDistance
     , n7 k/ r: }# u* s/ Q& u
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     " O* d; `' _* {
174. 
     
175.             result = measureDistance1.Value
     3 j3 p1 A# T8 x' ^& |3 B! l
176. 
     
177.             'measureDistance1.Information()
     . j9 q9 a, P' g8 u- c2 X" Y& p4 @5 j
178. 
     
179.             measureDistance1.Dispose()
     4 O# A/ ^' O6 z/ o7 {$ E, |2 X4 K2 Z
180. 
     , J  G8 t, M( `' H
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     " d/ w  ~8 ~; e& q& @2 i. ^
184. 
     + ~$ ]/ `1 h( d7 u1 h, d; K# G
185.         End Try
     & ~# ?9 e  X; e  l+ D! w
186. 
     # j: P+ A4 v" r& r
187. 
     " F4 `* a4 J' J2 z) z
188.         Return result
     
189. 
     4 m( |- P" z  ]6 }1 O7 W
190.     End Function
     
191. 
     
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     ) ?6 X% H. ^/ e; j# ^
195.         'Unloads the image when the NX session terminates
     . X2 W4 ^5 C( Q% V( g6 z( Q
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     / v. t! s5 s' `, ~
198.     End Function
     
199. 
     6 e6 O% P" n& S" q1 J
200. End Module
     ' h* t! ?7 b9 ], ~2 x( P
201. </P>

复制代码

; E1 [  z9 J' p; n/ m, O% {! C- I

admin

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