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

admin

. a3 l# R+ r6 R6 r$ \NX二次开发源码： 装配中选点，并报告父对象
% x( r$ J% k7 w1 W# [7 j

1. 
   " Z6 |* h' @; Q% Y' H" P5 t* H
2. <P>Option Strict Off
   
3. Imports System
     Q" o  y( S3 m: k, G# ]: b
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   
7. Module Module1
   
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    ' m  M7 r! g0 I1 P' [
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    $ C7 u3 h# w+ g% C. B' n: _0 `' l  w
14.     Dim myModelingTolerance As Double
    3 W( w2 }- s/ k- |. f; S2 D% J
15. 
      v! {  z4 z( Z1 r( t6 e" m
16.     Sub Main()
    9 k$ ?. w4 R% v
17. 
    7 T  ]6 m7 [, m5 k  C0 s* h  F5 c" t
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    6 |5 g# t7 S: G4 P) e! n
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    
22. 
    / f/ |- i7 d& S) l" f, }- C
23.         Dim myPointTag As Tag
    
24. 
    8 L* ]) z& V4 L
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    ; n  W7 _4 ]# a9 P% a
26.             Exit Sub
    
27.         End If
    , |, V# d* _- r. y0 B$ h
28. 
    # _! Q; u5 E2 M- f8 R/ j
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    9 J# p8 _# T  a7 b
30. 
    
31.         AskParents(myPointTag)
    / J- ^* H, Q9 [3 m  [! a; r3 `  X
32. 
    
33.     End Sub
    
34. 
    : P7 p& }: ^! b& C& U: q% {- b5 B  g
35.     Sub AskParents(ByVal objTag As Tag)
    . o& X- o! W  H" p7 @$ p
36. 
    
37.         Dim n_parents As Integer
    / e  Q& e0 Z1 h
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    9 s2 \9 o8 q( F8 }5 b
41.         Dim myXform As Xform
    1 ]9 s. N) K1 N
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    : k) ^) ~# t6 r
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    
50.             Try
    
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
    7 H, n$ J8 C( y  k0 O
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    
55. 
    
56.                     AskParents(parent_object.Tag)
    2 T3 f0 ~3 K4 {+ t% e% q
57. 
    ( ^" M. {# B! ^! ^& i* S4 v
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    2 |" E: ~% N8 ]# u; f
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    7 c- R$ i& p7 K% h, I0 a
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    . v! {+ o* D( w  S8 w
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    ' m& b( y/ n  J. _; k1 H
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
    ; X3 V- @8 e( b9 }1 K
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    4 l* V3 X" t' ~9 H% T
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    ( w' F, O. y9 a# c, \3 X* t
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    ! T- n: o2 J  @' y9 n
75. 
    
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)
    
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    ( K4 H4 ?: P: z- W  S2 \
84. 
    
85.                             lw.WriteLine("")
    
86.                         Next
    3 f8 T9 R! [8 u6 K5 o9 U
87. 
    
88.                         lw.WriteLine("")
    & [( j' n5 K; V! r: H" c8 ^
89.                     End If
    
90.                 Next
    
91. 
    
92.             CaTCh ex As Exception
    $ \! A  o6 V9 |8 Y5 A% a5 O
93.                 ' NXOpen.NXException: Current object is not smart
    0 [) b0 e& h& v0 {
94.                 lw.WriteLine(" Error: " + ex.Message)
    4 Y: t2 d1 u& U, Y  a4 u( H
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    " O1 q% `0 m  _/ |
97. 
    ! l5 ]' ~  f3 A. N( p
98. 
    2 B  b8 f% L2 e' W% ?- R4 w9 a
99.         End If
    * x: E9 f% g- z+ ]
100. 
     . d- y. `0 h3 {) u) `! m
101. 
     8 g8 k. B$ k2 r6 A
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     3 q9 k1 H: Y, \# j+ l: x  i' w- Z; }0 Q
105. 
     4 O4 O/ @. X! ^, s# p
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. 
     
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)
     2 u) i% S" @! p2 p8 H0 c" u
114. 
     
115.         Dim pointLocation As Point3d
     . K: t$ k/ h  ]4 _; k! O
116.         pointLocation.X = base_pt(0)
     8 B+ x, r# t3 X% b
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     " Y0 N1 q# j1 C7 X" w6 [/ b: ]  l2 G
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     ( p3 D2 L+ b8 ^5 Q- y  [2 ]
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     & f2 C8 l# b& U$ ?1 I. _$ w7 U7 F9 p  t- r
121. 
     ' F' f: ~$ y" W' [: X
122.         Return response
     
123. 
     : m( P9 _* l6 [2 f- g# I
124.     End Function
     & E4 _5 ~" e- X4 y$ [
125. 
     3 s: n5 |$ X" U) p5 _
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     ! }& X. h6 v& L  g" @0 K9 R4 l3 h4 y% \
127. 
     
128.         Dim selObj As TaggedObject
     5 C9 a7 ^1 q& |2 a* S5 O: K
129.         Dim theUI As UI = UI.GetUI
     ; @0 R; v8 A# S+ v- I
130.         Dim title As String = "Select a Point"
     * U8 H  g1 ]2 @) Z9 y4 @- d/ Y
131.         Dim includeFeatures As Boolean = False
     
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     # @4 F2 v7 I- {% ~2 i
137. 
     
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     , j) [9 [$ \0 A0 b: C2 P4 {
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     : D3 a: d& |0 K3 W6 {
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     ' a; x* D* r" u* T, E4 H- ^9 M
144.          title, scope, selAction, _
     3 m' d$ ], B8 I; s8 ?: r  D
145.          includeFeatures, keepHighlighted, selectionMask_array, _
       Z4 O, M, T  B! ^& c: @: H# K, Y2 V
146.          selobj, cursor)
     ( w& q1 G  s/ y' w: y3 Z1 g
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     & H" O. T1 k* ~/ |
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     ( L, O- H+ n; L' Y# s
150.         Else
     
151.             Return Selection.Response.Cancel
     . M" |9 ]3 c0 q  S! |0 U  w
152.         End If
     # N( A) q  [: l5 x2 d
153. 
     , ?) u: [/ m, ^3 ]8 V
154.     End Function
     + [+ @& o7 B$ K4 r
155. 
     9 N! n0 f$ }& H: x0 |
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     9 ?0 j* b2 B5 X  W9 r
159. 
     / A- g- S! [6 q7 @; s; o: K
160.         Try
     $ V' E' ~1 o) |. y6 J* n
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     ' _2 |' k* j8 [2 N3 O
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     6 [/ y4 @# ~- c
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     - P6 [9 s+ P/ _7 n9 _& C( r
175.             result = measureDistance1.Value
     / G8 {4 ~7 V1 [1 s$ T. V  E% l
176. 
     
177.             'measureDistance1.Information()
     ) A6 @4 K4 ~) j- m+ c
178. 
     1 b% K$ r% b: E% u2 v, T2 t. k" a
179.             measureDistance1.Dispose()
     
180. 
     ) ^9 p% i$ h6 g( _- L
181.         Catch ex As NXException
     / m! V: B" _# q. d9 M- e
182.             MsgBox(ex.Message)
     0 a5 W' s# `! K: r
183.             Return Nothing
     
184. 
     
185.         End Try
     
186. 
     # r. x9 Z/ o3 p9 _
187. 
     - O* |9 f# N" c6 X$ Q
188.         Return result
     
189. 
     % y2 _4 y( U3 y5 k' [
190.     End Function
     ! x" i  I7 o( @. V& }$ {
191. 
     
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     3 e. o( ~5 E' }5 r2 Z
194. 
     
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     5 h' Z1 a! O* g  v1 A# k, g: ?
198.     End Function
     
199. 
     5 h$ J) ~% q# t5 E/ N! |( E: \" h
200. End Module
     * @3 s. r! P: t% _" A3 X
201. </P>

复制代码

admin

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