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

admin

NX二次开发源码： 装配中选点，并报告父对象
+ f/ I3 c! V8 a9 p) \0 I

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   4 M  a+ N$ c* G' L/ A1 L
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()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    
15. 
    
16.     Sub Main()
    - u5 h9 ?' f: b2 B
17. 
    " |* r$ E, _- i- y  M# P
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    8 I" z  p7 ^6 P) l3 E: C$ {; M
19. 
    $ g' c. g) q$ t$ j- T, Y* O; H
20.         Dim workPart As Part = theSession.Parts.Work
    7 J/ D/ d6 x+ S& C; T: |' a$ h7 M
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    ' s/ @, V- v& P% ~+ P1 v. c
24. 
    + W% j3 H4 O' N
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    
27.         End If
    / w; x8 J; Z3 l# j
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
      S9 }8 }5 T  M1 G5 I' y
30. 
    6 p7 o' W- u+ H' c2 v: D: L+ C
31.         AskParents(myPointTag)
    ' Y6 q6 V0 ^9 I( l
32. 
    
33.     End Sub
    ( q8 I6 B& h0 D8 p
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    9 B6 d* ^+ S5 I$ P# m5 N: p6 T
36. 
    / @8 T+ g2 w, e/ Y* {
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    % d. P3 s+ \& p4 F- ~# \
40.         Dim myEdge As Edge
    * x1 q  L2 R3 h0 L7 D
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    3 p* a8 Q" _$ h  L
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    + q+ [) S' S6 I) d( W& \5 h
44. 
    " b+ d$ H& I+ n, d
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    / j& ]' F. A+ u% m8 O+ J9 _" U! F6 q
48.             lw.WriteLine("")
    . m$ P! V, Q# l, E% L, J: a
49. 
    / S. k4 ]8 S' W. j, L) d
50.             Try
    : D) [% t' }8 I* P
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)
    
55. 
    
56.                     AskParents(parent_object.Tag)
    $ v+ P( S3 }9 m- @& s
57. 
    / J+ B' ~6 U6 N( a( p0 C
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    - \0 S- v' M& Z% m- p! |- x
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    $ D& S! V7 a( b& }7 t; y( X. n, Z6 T
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    & V# C0 D8 Z6 P& ?9 i$ `6 p# ^0 e# d
66.                         Dim occTags() As Tag
    , E# u* d  A# ^' o
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    % C* e' m  O. g0 c% ^
69.                         For Each temp As Tag In occTags
    ) ^; n+ ]+ D" |' j: Z: M  y0 J
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    # e5 }6 f% @* F
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    9 }% ~4 r6 U9 J% k1 s
75. 
    
76.                             lw.WriteLine("")
    $ k3 O  e8 @' h; k. \
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)
    1 _4 G: Y7 }4 b9 `/ k- z
80. 
    6 W2 i( W4 D/ W( O, D3 S+ J
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    . Y: T4 m2 r( o( W# j
83.                             End If
    + h3 C5 {0 B8 \
84. 
    
85.                             lw.WriteLine("")
    1 r7 B5 s- U5 v3 c- h% Q) w
86.                         Next
    # W' @6 M! m1 _2 ^; U8 t% d
87. 
    " u: t5 u% G6 c
88.                         lw.WriteLine("")
    
89.                     End If
    / B2 \! A. ^  K2 a+ O3 ~) F7 {
90.                 Next
    
91. 
    
92.             CaTCh ex As Exception
    , _3 I% G; b. Q; Y$ Y. i
93.                 ' NXOpen.NXException: Current object is not smart
    & A; b, I# v6 ]! y6 e
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    6 ^2 u- S. l; q
97. 
    + x! `$ T0 N" {( f! q5 \! n
98. 
    
99.         End If
    , [6 a0 v' N# h# N3 _2 R) w1 |
100. 
     
101. 
     
102.     End Sub
     & i" V/ x) T8 X/ P6 Y
103. 
     $ G, q( W9 i- }: m3 [0 E
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     ; m+ T7 L4 |! k; V& l1 R
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     9 w( N, g  e3 T" y  @; @
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. 
     + @& x. s5 W( `" I
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)
     
114. 
     
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     4 f9 `: _. \6 ?
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     + H0 c) T( n1 z+ R  i
121. 
     " }9 i# q  j) ^: C* r
122.         Return response
     * \/ @9 }5 a9 a5 J
123. 
     
124.     End Function
     # p- {) ^# n! ]0 s+ H
125. 
     9 E/ N5 D0 F3 p. c- {) S
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     9 t/ l- x8 M: _+ w4 D7 S: e
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
     
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     0 x; n. ]8 [4 H* x% W7 x6 o2 k
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     4 `9 G1 i" t/ b7 a; ^; q5 k: s
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     ' a, @' Y1 \& U, u4 z$ s
137. 
     
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     ( `3 h) u' X8 G' T: P
140.             .Subtype = UFConstants.UF_all_subtype
     $ Q9 X, _7 e, P" o1 R; P4 h8 C/ d, B( w+ E
141.         End With
     " g) X2 E& C4 e7 R0 y
142. 
     / v: ~# G+ p/ ?& H* K1 l
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     . l( J+ z6 j- w- p, e4 i7 i
144.          title, scope, selAction, _
     9 p* f5 g7 y: [: x' A4 g2 }
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     4 E& e/ W: y  s/ Y4 ^- |
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     " u& Y" Q/ b" H4 `9 B; S8 g
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     
150.         Else
     & k9 J) z( O+ z1 h+ {+ X
151.             Return Selection.Response.Cancel
     * R4 w8 h7 [5 \# {* P
152.         End If
     
153. 
     
154.     End Function
     
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     ; H6 a; N* G9 f6 H
158.         Dim result As Double
     
159. 
     
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
       R, f4 r- I/ Q* I0 |
162. 
     2 q  f3 u; N  v4 n/ W# L, e
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     * e$ w( S( l# r3 e; C- e' V4 i
166.             measureDistanceBuilder1.InfoWindow = False
     2 w2 I  h, h' ?# ]
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     3 H& i; r& p% t8 o! [3 z( }
169. 
     $ h$ ]& ~, D9 y
170.             Dim nullUnit As Unit = Nothing
     ! q. N3 r" J$ ?! P# S2 N" g
171. 
     ! l) G9 [0 ?5 A
172.             Dim measureDistance1 As MeasureDistance
     # f! H7 N7 J0 M& X
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     
175.             result = measureDistance1.Value
     
176. 
     $ f3 R% Q# H! f9 C6 }; }3 K' Z
177.             'measureDistance1.Information()
     , z5 Q( a3 o; W$ }3 G& Q
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     
185.         End Try
     ) A9 Z# |0 a; x3 `" S. r6 @: U
186. 
     
187. 
     
188.         Return result
     - \  f% c2 a' [: q0 {- ?- O, B
189. 
     1 C+ [2 ~+ J( a$ ?
190.     End Function
     
191. 
     
192. 
     5 \4 P9 U: @" x6 @1 h/ Y( \  U
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     2 e* w* G0 B& t* S9 H& {
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     ' U$ u5 p+ e) S5 s. ?: Q- K0 i0 H8 A
197. 
     $ [  y/ s4 d" ~& }
198.     End Function
     
199. 
     
200. End Module
     9 Q4 H4 J) M9 E" }+ _$ f
201. </P>

复制代码

( g8 u# }+ k* l+ V5 D6 p

admin

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