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

admin

NX二次开发源码： 装配中选点，并报告父对象
$ I9 ^4 U7 C( v2 B' o

1. 
   
2. <P>Option Strict Off
   0 L. C# ?- q; H4 A
3. Imports System
   
4. Imports NXOpen
   - S$ n0 x& S1 u# _4 L2 o* [' E/ x+ [! ]
5. Imports NXOpen.UF
   
6. 
   
7. Module Module1
   
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    ) S2 q  B* k! R' R. z9 K8 N' v) [0 o( u* l
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    , z9 ^% y3 w6 [& h9 `
14.     Dim myModelingTolerance As Double
    ' |  a' m0 Y% f7 ?) Q
15. 
    
16.     Sub Main()
    6 V) E8 G( `& f
17. 
    ; Z1 X0 r9 m$ q- j: K  ?: z3 a( S
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    ; V$ ?/ k8 S7 \- D2 f
19. 
    ) j# z- S1 [4 x) T3 C* q
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    % s* Z* @( E, K$ E, `9 E
22. 
    * d8 }2 M. T. s+ g3 e' ]
23.         Dim myPointTag As Tag
    
24. 
    ' x" z) Z3 T$ h, y: G
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    ! S( ~9 ]$ p+ d, d, ~( F
26.             Exit Sub
    
27.         End If
    
28. 
    , }+ j; n- R; E: Y$ p2 ^
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    
31.         AskParents(myPointTag)
    9 E. h" h: q5 b% [5 r# E) A
32. 
    # E* I# V$ X8 b( ?
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    0 H8 U7 \1 Y0 X
36. 
    
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    3 G  W7 Y4 w) `, j
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    & l9 h& R, Z8 o. w, b9 u$ `
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    0 @3 }3 }  Z% j: K
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    : }2 K& X# a( ?6 w# n
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    2 y+ d+ n2 H- Q- T7 H% y" z
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    1 M  S" z, j3 u1 R0 ?! m: ?
48.             lw.WriteLine("")
    
49. 
    
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    4 f- W- R. _, w( q% _5 L  u; S5 n' F% A
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    - [4 R% M0 c5 ?( O5 {& f3 }
53.                 For Each parentTag As Tag In parentTags
    
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    
55. 
    6 H$ I% R! y9 }- b* [! y
56.                     AskParents(parent_object.Tag)
    
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    9 n7 D; O2 {% z4 _
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    ( z/ s3 w8 G2 m) g5 \4 y
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    ! N' q' e4 k, X" R9 b
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)
    + }2 t/ x' J4 o, }; @4 T6 r! ~
69.                         For Each temp As Tag In occTags
    # C+ w/ D: Z3 `9 ~) {' E
70.                             Dim myComp As Assemblies.Component
    ! w) m0 a8 @* D" c1 j
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    3 c2 k* ~$ V3 L$ q$ y
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    % }( F5 ]' H# F3 S' h- f
75. 
    8 \% `; G- U) W
76.                             lw.WriteLine("")
    
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)
    # t7 J2 ]4 D: P! {
80. 
    ; Z& w" w# B* ]1 W1 d. H/ q( M
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    / B2 W' y; j7 a" F
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    
84. 
    
85.                             lw.WriteLine("")
      Y9 Z" @/ P* s' T: ?
86.                         Next
    ' D- S: |% ^3 g3 Y* w4 d
87. 
      d9 a, n3 H2 X# s
88.                         lw.WriteLine("")
    2 s9 O+ _/ ^' }4 u
89.                     End If
    8 ^% g4 A- i# j6 u: J6 K9 C1 N
90.                 Next
    9 G5 T' l! y7 K9 L8 t
91. 
    - c* h" j& V0 `9 g
92.             CaTCh ex As Exception
    8 m6 \, g: T) J2 k% g' v+ y
93.                 ' NXOpen.NXException: Current object is not smart
    5 w( r8 ~& W3 X/ I
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    3 c& ?2 Q- \" Q) ~7 c9 V+ }
96.             End Try
    
97. 
    
98. 
    
99.         End If
    
100. 
     4 M  o( G, t# T' [
101. 
     
102.     End Sub
     3 S( I% \, x& N$ F, q, q! a1 A/ J
103. 
     
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
     ( L) m& d. ?7 b' P
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     4 i# V8 K& U! e0 }# B
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     . k- B, m0 k' a: I4 s
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     4 N5 q9 e& }, }' M' G: X
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
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)
     ( _+ V$ J4 w- w& J9 f
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     8 h9 {0 s- A& {
121. 
     ' E8 d6 ~- D1 B9 L6 C4 C1 K( ]' T! O
122.         Return response
     
123. 
     
124.     End Function
     
125. 
     8 `- {3 B' }! L3 t5 p
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     
128.         Dim selObj As TaggedObject
     0 ]+ W  Y' {$ r* a7 X
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     . Y3 @. C: v6 U1 c+ Y/ q
131.         Dim includeFeatures As Boolean = False
     ; l" \0 k( |' R% j% @
132.         Dim keepHighlighted As Boolean = False
     ( W0 ]& P1 Z/ T/ `. Q8 X! d! J& \' w
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     3 s5 D2 v% s0 r  \3 Y3 _# N
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     ! R* Q. C3 G$ r1 j5 v
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     * R, I& h$ ^7 ^' V5 a" m4 d- A
137. 
     
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     7 w, S4 l- V' C; s8 t
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     ) A5 X  F* p1 B- Y% \
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     + Y! r/ Q& d+ {
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     
152.         End If
     - m! n/ o: V0 [) U$ e9 d; n6 J
153. 
     8 m$ {7 n- g) ]5 a
154.     End Function
     6 `7 i8 i: \1 b1 K5 _6 E
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     0 b( B0 o6 R* g0 G* u9 M
158.         Dim result As Double
     
159. 
     % d3 F/ x% i* I  A. M& t' o
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     ! D6 q1 j- X4 N! j' Z
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     4 K& }/ k; A- c
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     9 a: s6 W* }9 p& D* p
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     ' L, Z4 S* m1 ~. g8 V( d
170.             Dim nullUnit As Unit = Nothing
     
171. 
     ( G7 G( D& G, _) r: W6 I
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     % l/ p: h: A7 q( A* K  S
175.             result = measureDistance1.Value
     
176. 
     + b) e7 R4 Q9 W6 T
177.             'measureDistance1.Information()
     
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     . W" D$ x- m; X  q
181.         Catch ex As NXException
     & @' y+ o3 D3 F$ x
182.             MsgBox(ex.Message)
     ; Z9 n8 U/ `* T* `9 s
183.             Return Nothing
       }1 a. d- Q1 J# h
184. 
     . y  ?$ ~2 s  v
185.         End Try
     
186. 
     - E) q" X3 n! k
187. 
     + h) U- L) d; N
188.         Return result
     0 G7 r6 r7 N+ g/ v* Q' X6 f) w
189. 
     
190.     End Function
       R4 k, A0 B$ Z. h
191. 
     - L$ J, D0 d" R6 ?7 z; h# V
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     $ c$ ]+ {& _9 B9 j. m+ Y, J
194. 
     5 Y& q. a! C; p7 E0 W. y6 f2 c
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     
198.     End Function
     & D6 s1 p" m5 U2 p9 w
199. 
     
200. End Module
     7 |3 w1 w: m- i! P3 R; A
201. </P>

复制代码

6 Z, M6 n' \5 s& V$ Y

admin

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