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

admin

) X/ y% G7 g% V4 PNX二次开发源码： 装配中选点，并报告父对象
4 w6 _+ _( H$ N, k( y

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   ! a. Q3 d% E: E; x* r
5. Imports NXOpen.UF
   + d# v* ^) ^$ y: v. ~
6. 
   3 T/ Z+ j0 h7 o/ Z: H( ~
7. Module Module1
   ; Y5 t2 A. C6 ]% [( r, L
8. 
     s; J* ]7 W0 g8 ]
9.     Dim theSession As Session = Session.GetSession()
   4 G9 J) Z4 Y( f+ s0 `
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    - \) m) [* H. o4 q1 D
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    2 f, O# d) a" m: k, c* \+ _
14.     Dim myModelingTolerance As Double
    0 \7 u# H4 q( c/ \9 o  t
15. 
    . g( I, \+ s9 U7 \' m2 l/ A! c
16.     Sub Main()
    
17. 
    0 N* D, @* |& Y/ A
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    3 i6 r) V" `, k/ v7 T! ?  I2 I
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    ' Z4 x: v! |9 ^
21.         lw.Open()
    # S' P- G$ j; {0 {) x) D  a/ |+ T
22. 
    . D4 ~% l# z, g& k9 ?
23.         Dim myPointTag As Tag
    
24. 
    . G7 D" p- r* E2 I4 _
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    / R+ L4 ~) ^% S8 X  n
26.             Exit Sub
    
27.         End If
    
28. 
    2 B, G1 Z2 K' g8 N  x7 P/ w
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    0 \$ R# N6 b  o: c, Z$ s
30. 
    
31.         AskParents(myPointTag)
    . R3 `! }. G; T+ e
32. 
    
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    ! T. k2 b6 z, i
36. 
    8 q. z# Y: q6 B0 G8 e
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    ; }2 H) B' N; T2 @5 m5 c
40.         Dim myEdge As Edge
    2 \) a; ~8 f; e4 Q  `2 }, v' t
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    8 B4 U* p" \9 A# j5 K9 R9 V
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    * Z* v; H0 g6 u
48.             lw.WriteLine("")
    
49. 
    
50.             Try
    8 L& M+ ]0 ^6 T% {% W( T
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    
53.                 For Each parentTag As Tag In parentTags
    
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    / T5 m" I! ~- R. y* |
55. 
    & O0 w# P' }: `9 o) a
56.                     AskParents(parent_object.Tag)
    
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    . {2 Z, {; d3 ^4 ]! Z
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    3 u$ E8 v6 |: P+ W8 i9 E) i
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    3 m7 P+ }  M! j
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    # w- U% n; J- \1 a6 f
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    8 v4 @: K" n1 v2 d9 h
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
    
70.                             Dim myComp As Assemblies.Component
    1 t; U# j- o& R2 F5 D
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    & K5 g$ ~9 ]* v3 l
72.                             Dim myCompPos As Point3d
    . }) ~+ L3 f% _
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    . ^( o7 f4 {! N7 a+ F1 Y
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. 
    $ ?( g% I( m  _
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    % ^& L! c; a* L6 A! X
82.                                 lw.WriteLine("** This is the component that was picked **")
    5 X7 v( g$ ]/ z! u+ Y8 o- K' k. J
83.                             End If
    + h" @; j  R( s* T' M& t
84. 
    
85.                             lw.WriteLine("")
    
86.                         Next
    
87. 
    8 K2 F5 s/ U0 ?9 X7 V) _
88.                         lw.WriteLine("")
    $ O6 t8 V6 m5 m' x) D, q) d7 O; X
89.                     End If
    
90.                 Next
    
91. 
    - ?; h1 i; ?: l! h: L
92.             CaTCh ex As Exception
    * d" w; r5 Y* c8 ?7 [
93.                 ' NXOpen.NXException: Current object is not smart
    4 W! q: B, x% x# I) x. B
94.                 lw.WriteLine(" Error: " + ex.Message)
    # p2 K6 K' y3 P7 q
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    ' q& d7 \- n4 o/ ?' F/ P' ]1 v- M+ x
98. 
    
99.         End If
    
100. 
     
101. 
     
102.     End Sub
     ; _& q3 w1 w! ~+ X2 B
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     7 z$ K) ]& G: t6 g4 C! k6 @4 B. s
105. 
     , `; E' v! t* \' o
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. 
     2 V0 t. ^2 X' ?6 T4 c
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)
     3 L9 @! O, R1 @+ o: ~
114. 
     - B( J; t+ E3 w" B9 H8 [/ w: O+ I/ E
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     / |5 N& T% |, }, Z6 {5 \
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     $ K& O8 ]& Z' R$ k
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     6 f: B3 H  y9 x0 i; b
121. 
     . f8 b( z5 E8 C- B1 O  h
122.         Return response
     
123. 
     0 U7 w/ z; z! @/ @+ e; B$ H6 x
124.     End Function
     3 t9 {5 Q! V/ r" C5 j
125. 
     ) Y, |0 s0 f, o
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
     " T% f: R# ^9 B2 P
132.         Dim keepHighlighted As Boolean = False
     7 G! y; m# |+ b- u
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     ; S( |& T( I  N$ Z) x
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     % N- c4 P/ K6 R/ P# H% j
137. 
     
138.         With selectionMask_array(0)
     ! p. k' i$ C; r( W" n) z8 A. P
139.             .Type = UFConstants.UF_point_type
     7 _" {) g% _/ ]
140.             .Subtype = UFConstants.UF_all_subtype
     & _, K8 z+ O! }
141.         End With
     
142. 
     - W: Q) x$ F7 K- b% F1 u4 a
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
     * g0 t. w4 F& n' M" F. n
150.         Else
     
151.             Return Selection.Response.Cancel
     # E# N- {" S; Y4 n9 o0 k$ [
152.         End If
     
153. 
     
154.     End Function
     
155. 
     0 c0 }7 L; L' |) {3 Z
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     8 u! r& ]; E+ m, K# [/ _
157. 
     7 y+ k- P/ u% s) _1 @# w& u
158.         Dim result As Double
     ; f; M0 z" e, f, i* |. X
159. 
     ) n9 X/ n: Y  U7 B
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
       D: F% O/ d; H) n4 O3 d5 l% E
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     0 R. p- N- M) t1 c2 Z) e
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     & r* |# z( |  ?9 L* K# o
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     / b9 d4 \8 P0 ^
169. 
     ; q: o2 k- z8 O
170.             Dim nullUnit As Unit = Nothing
     6 ^0 R+ m3 h, }" K0 [9 |9 E
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     $ ^5 [7 \. n4 Y# K) Q# X5 h
175.             result = measureDistance1.Value
     
176. 
     
177.             'measureDistance1.Information()
     
178. 
     % n+ U0 Z4 Y* o7 E2 M' F
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     & f9 b' @6 e1 o  k! r3 ]9 p6 b
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     
185.         End Try
     
186. 
     
187. 
     9 @: g% P% s  Q) K" A) i8 F
188.         Return result
     
189. 
     
190.     End Function
     ) c% w4 D8 h1 f
191. 
     
192. 
     7 x- x3 |* a: t0 W
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     7 O% l* B; f  }* p4 ]5 n7 B
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     9 X" q5 J2 C, i0 C
198.     End Function
     
199. 
     : F( l8 E/ w1 s! G* }& Y
200. End Module
     
201. </P>

复制代码

% A3 k5 J" @0 ]. r* s2 g6 {/ b

admin

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