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

admin

4 G5 O0 Z5 G7 H! K- O( XNX二次开发源码： 装配中选点，并报告父对象
8 t6 c+ H) t( j5 @1 u$ L

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   % r' @( t! s! n( p; ~
4. Imports NXOpen
   
5. Imports NXOpen.UF
   ! o; ~( v& r3 h# P) i4 ?
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()
    - q# \  P0 q  h
12.     Dim lw As ListingWindow = theSession.ListingWindow
    2 D/ \* W& q  N6 e/ k! y. F! t0 }
13.     Dim pickedPoint As Point
    # o$ g5 @' s) L& H, Z/ x- `# o+ @
14.     Dim myModelingTolerance As Double
    
15. 
    
16.     Sub Main()
    8 i% z# [% L4 o- K
17. 
    0 b5 A# E1 Y  ^- z
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    ) A) x. s3 N0 H! F+ O1 u: B/ _
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    0 g5 L! C# [7 m+ `$ [- h
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    & T) S  o+ _3 R# S
26.             Exit Sub
    ' y' \! `0 U/ \; B, B: ?
27.         End If
    " E( J$ y" w9 n! d8 ~9 j$ n' Z
28. 
    / o/ j4 G+ A# ?, i
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    
31.         AskParents(myPointTag)
    3 f; p2 Z! W& |( p3 w  c4 j! g5 @
32. 
    * m8 `. S3 E! g
33.     End Sub
    & |. t3 m4 d; N/ i8 p
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    " A2 h. Z# n0 C) A! ^$ V5 r
37.         Dim n_parents As Integer
    % [( F" K$ E$ Q6 Y3 A
38.         Dim parentTags As Tag()
      ~( Y9 p. e6 g; k" B1 L7 q9 P9 J
39.         Dim myPoint As Point
    8 ~/ K# B* Y. j# S% i: f9 B, [
40.         Dim myEdge As Edge
    - d& ~; F# n* d
41.         Dim myXform As Xform
    3 g8 J$ n/ W: H" a
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    ! N; M' f1 ~: a! K
44. 
    7 _( F  w3 ^! \* m9 M, s' K, M, _
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    & x; k& c5 M1 _' o
49. 
    
50.             Try
    ; R0 N: {' n( g2 x0 a
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    ' y8 b/ X3 t, }9 O- D5 X6 O' L
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    0 ]7 L/ k1 B/ A
53.                 For Each parentTag As Tag In parentTags
    9 }* K( D+ [/ V. ]# g, m8 S
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    
55. 
    & I/ [0 F6 u# r: C) G7 ~5 r
56.                     AskParents(parent_object.Tag)
    . M  q+ t( b% O1 H/ {
57. 
    6 }: M6 P4 O/ ~; g
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    ) y5 F1 e7 b9 M- d' d& F, U4 H# B
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    ! W7 j! ^# Z, W: g. \8 e" Q/ X
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    3 ?" {1 d% b' P" j0 A( B) k9 D
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    + a- C5 k; p: t+ v
66.                         Dim occTags() As Tag
    ) \% n0 w8 W# {8 q# L" ^  I" U
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    + B$ U/ W0 {$ b: V$ v
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    7 r& G! `  G5 n
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
    ' k) a; E8 p, J' ^
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    * N. s: u# g4 _  y. N
76.                             lw.WriteLine("")
    * K7 M- b' T8 f
77.                             lw.WriteLine("component name: " & myComp.Name)
    , A. P( C9 z" g9 x" L; U2 G+ p
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
      o! X0 e$ s: x" \% M$ c' I
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    2 \8 y. S; [* r1 j0 h
84. 
    2 l0 E9 t- b/ t
85.                             lw.WriteLine("")
      G( o$ h$ v' q
86.                         Next
    $ k" e6 e! f4 v. P0 s8 O
87. 
    9 a. l9 d- ^* e' K8 Y5 C3 ^
88.                         lw.WriteLine("")
    * R8 v2 [/ a2 R( x
89.                     End If
    
90.                 Next
    " W! T2 |' g# R: _8 k
91. 
    
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    3 h& e3 d1 R$ T, Q
96.             End Try
    
97. 
    
98. 
    " i% S: p" N% _
99.         End If
    
100. 
     
101. 
     8 S* T) |+ d- L+ a# g" w; Y9 j
102.     End Sub
     " D" H" j: g; ?# ]& D
103. 
     : {" j0 |' e, p0 ^9 @6 ?
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     - O" _: I8 f2 g  Y& [0 {
105. 
     6 X. D, Y1 O# S9 n( e
106.         Dim base_pt As Double() = New Double(2) {}
     4 v$ J  N! n/ m/ }; o" r
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. 
     - Q! Y4 n9 |; {( u+ ?8 K
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     ' U1 `! j& D5 S2 {
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     . ]& o" X+ a9 J1 W
114. 
     - y2 W) k6 G3 @# V; h* |$ F% o' w& O6 C
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     . M9 e5 `; m. I) j) y2 L# ?( h4 k2 o. `* d
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     ) F5 }7 _% [4 T! k4 f7 A# n) w
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     & s  C* K- l0 ^! a% m6 z
121. 
     
122.         Return response
     % a' i4 q) N3 E& ^' ~! T
123. 
     9 d& v7 n! J" T7 D4 C0 w& W7 y& r: {
124.     End Function
     
125. 
     " ?7 E8 E6 q- b' r1 B7 f0 k5 o9 m$ ^
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     & B* P) w! h! `& h$ C, V* U
127. 
     2 i* c5 ^( g7 j* Z4 T6 F+ o
128.         Dim selObj As TaggedObject
     
129.         Dim theUI As UI = UI.GetUI
     $ s2 k/ l6 T3 K" \0 S: O2 n
130.         Dim title As String = "Select a Point"
     
131.         Dim includeFeatures As Boolean = False
     ' S/ k1 G7 J  D1 b# z; o) n
132.         Dim keepHighlighted As Boolean = False
     # H0 |% d. N% Q9 d
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     : g# I7 B' F) Z0 P! q  G
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     , ^  K# M+ @$ w# X6 G' K8 C: I# B* p7 x
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     & f6 f, s% t7 L! B  _; Q# i+ A5 N
137. 
     ! `- z/ s: {2 ^% n2 E9 x/ n8 g
138.         With selectionMask_array(0)
     ) \& c! o3 n5 ?. s( g2 e' v  M5 b
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, _
     5 Z4 V+ D- L8 W7 _0 D) q
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     ' q9 B$ Q% n/ x3 h; n) V1 \! {
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     " V6 N7 I, W( k$ Q
148.             selPoint = selObj
     $ o* |! Z& G6 F( v: a5 G
149.             Return Selection.Response.Ok
     ' T" A! D9 Q3 `
150.         Else
     
151.             Return Selection.Response.Cancel
     6 `% M1 a& e& q) V0 }" C5 M
152.         End If
     
153. 
     
154.     End Function
     , F  b& u* m9 \, I7 r
155. 
     7 r7 L+ ~% t0 N3 y, ?( Y
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     
159. 
     " w; S' U' _. x2 O! r+ K+ ^; R
160.         Try
     ! j1 Y. s# |, X* h" L% [
161.             Dim nullNXObject As NXObject = Nothing
     4 g! z( z8 a- A& ~( M$ A4 t/ \9 v
162. 
     : ]! P* }# s% K9 q- R
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     ) ?0 t/ O1 F6 L
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     0 Y0 l6 t* w' a7 @1 g& C; M" ^
169. 
     9 z1 O/ H/ m3 x3 w. E/ H* B
170.             Dim nullUnit As Unit = Nothing
     
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     , l3 q# b# c0 k9 T. S' r! p7 e
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     
175.             result = measureDistance1.Value
     
176. 
     + X$ U/ h, f: H9 f" _3 b- n& j  n
177.             'measureDistance1.Information()
     
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     ' M3 ~2 c8 z; _2 h# b7 y! {* U) ^; C2 L: @: K
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     $ C* p* l/ J/ H' Q, G& W
184. 
     
185.         End Try
     
186. 
     
187. 
     
188.         Return result
     / q9 o1 p" |# B) |- a5 @
189. 
     + x: {; D% h( c: F/ [6 U. m
190.     End Function
     
191. 
     
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     
195.         'Unloads the image when the NX session terminates
     ' q6 q) U) [* u* \
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     
198.     End Function
     . ]0 R) s; p% L+ _
199. 
     9 D2 [2 g  |) y' y& o$ s
200. End Module
     " o8 C7 M9 [2 \9 O, \4 b6 ^! x
201. </P>

复制代码

" ~! D4 e, u4 g$ J3 y, L0 P1 @

admin

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