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

admin

* ~/ K( l$ C" {! k# U- Z4 h! Y, \6 yNX二次开发源码： 装配中选点，并报告父对象
4 g4 F( ]3 |8 o

1. 
   ; G8 o% R, @- T- s# f7 b
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   + R5 r  i4 ]/ a2 x6 D- ]
7. Module Module1
   7 R3 e5 @0 [1 L1 ]3 @7 }9 D" D
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    1 k2 y# }, ^  _0 y4 a/ [7 X- q5 ?
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    . ?: g) f: z( C; A" {; A
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    
15. 
    , K: v6 w- L* H: G; o% u/ I# n
16.     Sub Main()
      {* s2 `; ^/ g& c2 T
17. 
    1 x, u1 ~& O8 {, S/ H, G
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    , K3 k8 B+ w% x
19. 
    , K4 l, N) Q7 O' i
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    
22. 
    / y' U/ n0 L4 g7 A1 e
23.         Dim myPointTag As Tag
    : V& T7 U& p% f  N
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    % s. v' J& I" m5 c
26.             Exit Sub
    . C: m  A% a( @# [  `
27.         End If
    . T: V, j( {9 B, O) ~
28. 
    , [; l+ U: Y5 Y2 h
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    3 O0 t* {) q, f5 r
31.         AskParents(myPointTag)
    ! n6 D9 D/ M& W7 M
32. 
    + U( ~: I" i. i" ^4 A9 d  L
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    0 |3 K: K: p7 y
36. 
    " x5 l) A" }; @7 y( U5 s% v
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    ( O- X$ P5 m6 {/ R  [
39.         Dim myPoint As Point
      d+ w9 \) z5 \' @" d1 i2 q
40.         Dim myEdge As Edge
    4 m6 c* q0 Q" u" j. i
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    % F( N" k" P" f# `- A! [. f. v
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    & U3 _# i; _6 p# Q. b
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    7 X; t# Z7 T: i% R- b
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)
    0 }& H% e- y4 C: N5 J) o& c
53.                 For Each parentTag As Tag In parentTags
    + ?7 c# |! E3 |& e7 Q
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    6 L5 u" y+ }7 u
55. 
    9 J8 Q$ J6 d5 o
56.                     AskParents(parent_object.Tag)
    " a0 d# t2 C) {8 `
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    3 t1 J! N! V, U) n' a  R( P9 _% B& E
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    : f8 h' p' e2 a7 L2 @- R; M: ~8 a
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    , S% Z; z7 E: C. \- v
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    9 r  D! N3 n, ^5 `
66.                         Dim occTags() As Tag
    ) e7 C/ F* B, n: O
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
      B- T3 ]3 X6 ], }
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    6 T. d  t+ l$ k1 U/ Q
69.                         For Each temp As Tag In occTags
    5 A: S# {4 R$ G6 D8 ^6 ~6 s
70.                             Dim myComp As Assemblies.Component
    # o7 @$ Z! v0 Z
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    ; Z+ J$ z# `. P0 r, `. T
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    ( f1 _) `! B( N5 @' T
76.                             lw.WriteLine("")
    6 a0 R, V* S. E
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    ) [$ T" m8 M! x5 @: I' P2 }! K0 @8 ^, ~
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    : z8 }& d! j7 h4 `
80. 
    ! ~# ^/ ]0 e( @! _- ~* z+ @: S4 G
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    & i6 h5 f' T$ d$ z5 ]
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    
84. 
    + X: P, a- v9 C" w
85.                             lw.WriteLine("")
    6 x& y. R9 l( i+ O- p! X8 u
86.                         Next
    6 D0 S% p9 C6 q/ q
87. 
    
88.                         lw.WriteLine("")
    
89.                     End If
    
90.                 Next
    
91. 
    ) I& u: v" G* j) j
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    6 v1 J1 w9 d/ n1 y
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    $ T1 N( B* h$ W/ h
96.             End Try
    1 g% c" g- e' d5 k
97. 
    6 R9 o' |, Y3 f
98. 
    
99.         End If
    ( a4 e8 M( \$ R! l
100. 
     ( @! Z) o4 M+ h" }8 a( X! |
101. 
     : `! X2 ^! I- w, F  s5 o3 V
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     / ]' q+ M, ?$ O% i+ m& N8 g
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     : q& G% ~; [8 b/ j
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)
     
114. 
     2 g7 Z6 e: {& i: T; v! L
115.         Dim pointLocation As Point3d
     2 Q+ b2 h" }2 q& U3 o& F: {: z
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     1 O6 w! w; W+ T! R  j4 I2 V* g
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     + W3 U3 [; |- |1 x
121. 
     
122.         Return response
     7 E2 I* Y6 m4 [6 d
123. 
     " g# I$ }0 Y* \6 o* }
124.     End Function
     , V! y) I- f5 }/ O' H
125. 
     3 ]6 `: r; C- c; i3 s1 E" A7 H
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     5 z: y5 y) B* H* ]5 T) U
127. 
     
128.         Dim selObj As TaggedObject
     1 w! [- D8 z8 F. z0 C
129.         Dim theUI As UI = UI.GetUI
     " y& Y/ l% K5 l* D
130.         Dim title As String = "Select a Point"
     ; s# k7 f# m0 r- _
131.         Dim includeFeatures As Boolean = False
     ; Q, v: g+ q4 n* S& U8 C9 F2 [
132.         Dim keepHighlighted As Boolean = False
       H6 l2 \7 t' ]+ i: h+ Z
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
     
137. 
     ( a' s0 F; w; W- w& D
138.         With selectionMask_array(0)
     5 \+ ~0 d& ?" Z7 b- C& W* M; G
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     / |" `6 l2 L% X# O; x+ X; r% W) `% o
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     7 f' [" A2 T# e8 b
144.          title, scope, selAction, _
     2 ^5 O! R& X$ g8 H7 ?4 Y9 w6 O
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     " l/ q; C) Z0 W( E3 ]: n* p
149.             Return Selection.Response.Ok
     
150.         Else
     4 ?% z" [$ L, c* h- a; H8 V
151.             Return Selection.Response.Cancel
     
152.         End If
     # h! B2 W) a3 l) ^
153. 
     
154.     End Function
     
155. 
     # z1 q' Q) o; t4 E
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     
159. 
     
160.         Try
     2 ]8 O  c3 K3 P7 f  Y, W# H( |
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     5 f# S+ O' d$ `& b5 Y
165. 
     5 p2 d* E  f2 A# G9 G
166.             measureDistanceBuilder1.InfoWindow = False
     * E5 R$ m6 d, Z7 O
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     % H* m( M1 ^- U9 m6 @) ~: S6 a
169. 
     
170.             Dim nullUnit As Unit = Nothing
     5 y; P7 i3 j; ]6 X- x9 S. h! T
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     8 v7 A. n; Y- n# ~2 l+ K% F& E
174. 
     
175.             result = measureDistance1.Value
     
176. 
     
177.             'measureDistance1.Information()
     
178. 
     9 }  t  l. i. x1 ]- w9 H5 C4 J
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     
185.         End Try
     
186. 
     0 a0 K! O. s' u1 n4 ?% l5 D
187. 
     6 Z5 J9 y' ]2 n, z9 d/ h( a9 Q. P0 J" h. G
188.         Return result
     9 M, X. o% a6 y0 T
189. 
     
190.     End Function
     6 B3 N( B# V! I$ V  H9 U( Y
191. 
     
192. 
     # i+ \7 w! G: ~2 V' r  g( q0 k& |  Y
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     3 T2 G, V- \- k, ]( {4 s# D
197. 
     
198.     End Function
     * `' W; ^, I  ~6 F2 `! D/ E
199. 
     
200. End Module
     6 T7 K" H; j- \+ l4 i6 {
201. </P>

复制代码

admin

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