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

admin

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

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   
7. Module Module1
   
8. 
   ( t1 @# {/ z0 T" p1 S
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
    9 D9 H) U7 L  f% v' [! T" R8 T! l
14.     Dim myModelingTolerance As Double
    
15. 
    
16.     Sub Main()
    3 s! x) ^. v. d5 M: D
17. 
    % \% h4 B6 F2 R% N/ {  {
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    0 M$ {- t) ]4 ?* `" K) x
20.         Dim workPart As Part = theSession.Parts.Work
    & I4 n& E' W  w& m, r
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    ( k. u# T. R6 P8 u6 \. c
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    6 i; u- L0 w! A4 A- `; T1 s; S
27.         End If
    8 R1 V! b# y5 V" Q! s! k$ G
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    & e8 a+ D. Z; X" a
30. 
    & C4 P8 \8 R/ A# {( @: e9 w
31.         AskParents(myPointTag)
    & c! ^) z! c5 t0 O# {4 H+ [
32. 
    9 z7 P  T) c) k6 T- _- `9 N, e
33.     End Sub
    
34. 
    4 h6 b1 v0 T" o2 T0 {) g/ q
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    # w& X. K4 ~7 M8 i) c: Q
39.         Dim myPoint As Point
    " c; x2 K& R0 s4 }+ O
40.         Dim myEdge As Edge
    0 Z6 X  ?- V; s) I
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    5 _' p2 p3 i( \2 w
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    ; X7 ~5 t9 H* d: s% l+ {
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    9 h! X) s/ X4 C) Z7 |8 o$ ~# ?
46.             myPoint = myTaggedObject
    ; ~' \' l! s8 \. [
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    ' H  f; h0 O  @# v; U
48.             lw.WriteLine("")
    
49. 
    
50.             Try
    1 }: e8 q- q' m" K
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)
    0 ^& U- n9 ^, C3 B% t2 R
55. 
    2 s7 `7 I" e8 D
56.                     AskParents(parent_object.Tag)
    
57. 
    $ O; {, l9 A# e% `
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    ' Q& P' D) ?: e$ h
59.                         myEdge = parent_object
    0 D9 q1 [4 M$ x# G/ `. ~" q
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    ! u( j& U1 P. i
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    ) B9 [6 g3 ^3 ~
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    , A9 z0 Z1 f8 e6 ]
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    6 g2 p+ _1 }1 z9 K
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    - q5 b. H: L3 O, 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)
    2 u' y$ F/ i$ m9 M  V
80. 
    4 z8 I9 I& r+ G# _* C! e' I( t, Y
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    - i0 K( A. w* l  t" K: o+ s
83.                             End If
    , F+ G- A5 U) M" f  L6 Q- y6 o
84. 
    - v8 W# ]8 c# k  }0 r" O+ x
85.                             lw.WriteLine("")
    2 S6 V9 ]0 a- {% e: f0 Z% v* w, F4 W
86.                         Next
    5 ~( O  R+ ?  o" E" Q
87. 
    6 r! |, x1 r( I- j, a& D: Z2 O
88.                         lw.WriteLine("")
    4 Z9 A. M/ d0 l2 n
89.                     End If
    
90.                 Next
    
91. 
    8 s4 H* Z& l/ w1 U
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    5 W* Y4 o2 S6 K: \6 Y: v3 B- ?# ?
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    
98. 
    7 @) b+ i6 P) T( B8 q: W
99.         End If
    
100. 
       O, ^# q( U' C  E6 V$ A" V6 @3 {
101. 
     
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     ( y6 S. m, |7 C* b% t; J6 H
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     ( A3 d9 W; @2 A( b3 l4 B7 F
108.         Dim response As Integer = 0
     / q( g. }; t  A" w" T
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     ' b% A0 P5 E0 P# g; ]0 V
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     " t; P& v" l2 s
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
114. 
     ( I# b$ t' c0 |/ Z1 @9 K
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     " Q0 |! b: C9 j
117.         pointLocation.Y = base_pt(1)
     5 J" k. B' M# N0 p* v0 A
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     . b* |- z& i) \! C( I* B4 i* b
122.         Return response
     $ _9 N" ~6 F* Q! x) ?, y1 n) E& q
123. 
     
124.     End Function
     - L1 J# y+ o4 K
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     - ]) g, }- K3 X
127. 
     
128.         Dim selObj As TaggedObject
     ; Y- _( d- E4 }0 p! g
129.         Dim theUI As UI = UI.GetUI
     ! G) _4 B; g2 n, `8 a6 ^! ?6 d+ [2 r
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
     $ F8 j. _/ W% \
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     , P. m9 j8 O' d9 Z2 L
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     + O$ v$ U! W% W, \* k% u' K* |4 O
140.             .Subtype = UFConstants.UF_all_subtype
     5 Q/ a- T) @% I- t
141.         End With
     
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     ) Y+ X8 y0 k, W$ w0 {$ a4 l
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     8 c* ^" H( b! `, Y
146.          selobj, cursor)
     6 b2 n2 m' y$ l( @- m7 N# U
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     % G. I" S$ V0 o  r+ E2 y$ x. S/ o4 k
149.             Return Selection.Response.Ok
     : }8 f5 h5 I. D* g8 j$ w  r
150.         Else
     # p, i7 c* a3 K# R. D2 a8 c5 ~
151.             Return Selection.Response.Cancel
     6 T+ z  Y( z7 [2 r# b
152.         End If
     
153. 
     
154.     End Function
     " `$ T+ D5 Q$ G) T: K# ?+ j' V
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     5 T/ ~; W5 {* X- E
159. 
     
160.         Try
     . }' p  C4 V- }
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     / ^$ ]/ b: O0 ]& v$ {2 F8 J
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     8 n6 z! I- u; l* B+ i
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     " D$ N' O; S0 h3 `
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     6 H! g+ R* V0 K
174. 
     
175.             result = measureDistance1.Value
     
176. 
     
177.             'measureDistance1.Information()
     
178. 
     % y3 a- C( i$ Z: D# `
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     # l. s) j- N, x; y$ e
185.         End Try
     ( K& r! q( |2 ?# i" l
186. 
     ) A/ V; l  J$ ^: X6 U
187. 
     4 {. {) }- M# ]8 _& X. U
188.         Return result
     
189. 
     
190.     End Function
     6 s; h& x1 a2 P8 j  C
191. 
     % k. v6 a6 {; \' m. l. p, b2 e+ [
192. 
     3 K/ i' S0 n; g
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     $ b( E3 Y2 z. d+ @" k- E' n
195.         'Unloads the image when the NX session terminates
     ; o3 g$ G$ T; N9 q* B% C: V
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     ( t5 ?8 {6 j% ]9 p- D2 t  x+ L
197. 
     
198.     End Function
     * S( }) ]: I% D5 O
199. 
     
200. End Module
     : A# Y% e7 e" K3 G& N: }% k
201. </P>

复制代码

admin

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