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

admin

NX二次开发源码： 装配中选点，并报告父对象
  z8 g$ B4 f; F/ \! i( ]

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
6. 
   ) {8 |) v5 k) x) j$ \; Q
7. Module Module1
   
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   , I  ^: P6 B( ^- q
10.     Dim theUI As UI = UI.GetUI()
    , I" A' f6 B; X8 T- }( d
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    3 R3 C1 R8 B! f7 ~$ ~* l& g" |
14.     Dim myModelingTolerance As Double
    
15. 
    & W& V) @4 ^0 ]2 e/ d) M/ u6 _; G2 Z" y
16.     Sub Main()
    
17. 
    ( H; |5 g7 Z. K) C- `
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    7 z) W/ c7 s& b+ d6 z( T! ^
22. 
    6 i; v8 p0 c, r7 @& G
23.         Dim myPointTag As Tag
    * {0 v. s, R. z% _! X2 q, Q
24. 
    3 M8 I* @7 @) v7 @# \8 @) R
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    
27.         End If
    0 j- C" F1 V' E! S
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    + j6 E% N+ {% X+ e: _+ ]
30. 
    
31.         AskParents(myPointTag)
    $ j) X# S4 q+ j% ?3 ^
32. 
    
33.     End Sub
    ' z/ c0 s1 l" {! P9 G2 _
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    ) j- }% P- r$ ]4 t% G
37.         Dim n_parents As Integer
      L3 ~: a$ G0 c* w1 P$ H6 l2 }
38.         Dim parentTags As Tag()
    - ]; [/ n9 C$ {! n1 ~
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    + [: U3 R6 R. i) b! X& @
41.         Dim myXform As Xform
    7 `* ]: g6 m3 p( H1 w
42.         Dim myTaggedObject As TaggedObject
    2 K6 x# A. y' J2 m& v( h
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    / d( ~4 m% y0 m
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    1 R: }4 i- G6 _% q
46.             myPoint = myTaggedObject
    . L# f' U9 c$ H; G( i
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    / u  u5 y8 `5 z  F* h" R
50.             Try
    1 H, U( [+ k; ?0 k! X& R' J' S
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    ' w/ t" |% A* Y% v7 ?" S8 x0 K
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    " M& W. V4 G  p/ f9 Q
53.                 For Each parentTag As Tag In parentTags
      i' Y1 P  H! G# ]. n$ I; r
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    " O# F; N# y8 i# N+ H: a
55. 
    ; l9 j! R3 B, s2 V. N
56.                     AskParents(parent_object.Tag)
    
57. 
    9 t# M8 f6 K: r6 c" O( |
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    + I- ]+ E' D  C% o1 w. Q
59.                         myEdge = parent_object
    2 Q! y7 U$ l1 l8 [
60.                         lw.WriteLine("")
    : R: b; w5 {& `5 O/ s
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
      j9 c1 O& _) k- j# W9 I2 ^
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    2 f, s# [( E: G/ }
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    ; e7 p1 E$ m) o. ?2 z2 \# b
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    , r! B6 W2 Y$ S- v' [7 E/ B: V7 }
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    ) {' [( y  v( H$ ?) |* M; v+ D
72.                             Dim myCompPos As Point3d
    3 t9 F( G1 G" T- A+ m3 ], |
73.                             Dim myCompOrientation As Matrix3x3
    ; O: P* V5 o+ W' p  G* y
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    5 A$ r5 ?3 d( H# s* n
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    + v& Y/ u; s# c0 g$ Q
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    * n/ ^  d3 Q$ Y2 {/ ~$ Q/ q0 U6 f
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    ; D/ y+ W# Z8 Q3 |; F
82.                                 lw.WriteLine("** This is the component that was picked **")
    / [4 U  r8 x0 s
83.                             End If
    * L% J; U) s- p0 d
84. 
    
85.                             lw.WriteLine("")
    8 T6 x8 i5 x& N3 _
86.                         Next
    5 \& n" }& ?0 p
87. 
    2 R6 B" o  {) P1 _4 s; S
88.                         lw.WriteLine("")
    
89.                     End If
    2 u: S1 r- ~2 w4 X# e
90.                 Next
    2 G$ {! _! y% W' }! L' ?! d- Q! l9 C
91. 
    $ ~0 U4 A3 l; @8 r' ?, z& m4 O! H
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    , Q+ V5 L2 |/ L, _, c
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    & Y" ~. L% W6 ?( P% ^0 h1 _7 x2 o
96.             End Try
    
97. 
    
98. 
    + m# ?  y; N  a  t$ d+ B
99.         End If
    
100. 
     . ^8 \- V' J9 ?  c$ a+ i7 E
101. 
     
102.     End Sub
     8 Y: a8 y( N1 d9 g8 R' L( U- Z  P" e, T
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     / A0 u+ `* `8 x; ?$ R/ `* v
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     6 n' M& g2 J& d% g- q- M
108.         Dim response As Integer = 0
     4 v! }3 R+ `5 H8 o- D4 ~; C
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     % o% S! D! T; ~0 F, @
110. 
     , l7 P) y% Y5 A6 T9 U
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     9 \" I' S) K9 K- Y" I# ~
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     8 f2 @7 I4 v* n. \2 R7 O* Y1 L7 \$ {
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)
     . D. H5 q3 B" B
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     7 r/ w4 ]6 ]$ l9 b* S7 T9 V
121. 
     
122.         Return response
     
123. 
     8 f! U3 e( [+ _
124.     End Function
     / I3 A0 k( s9 U  r0 T: H' _
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     2 {& p' }, N/ B& U* p
127. 
     
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
     + }! t, [* P1 g
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     # i8 @% Z# V2 r1 V7 F6 J, O$ o6 X
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     6 B2 |0 T4 d, b4 o
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     4 C& H4 K' N) x- n4 E0 v
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     1 `. u" S" P; ^- E
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     ' P' ^: K( [# _, h5 n5 a' i4 R
146.          selobj, cursor)
     % k$ i% ~: @: X' Z0 Q! N& G
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     " |. I& v) f2 Q5 Z* O5 X) F( g- Y
152.         End If
     ! Z$ s+ w3 q2 K$ {) |
153. 
     4 _$ P! L% B$ R
154.     End Function
     
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     5 _6 z. z/ @5 _# n
157. 
     8 |/ u. @9 c- b1 R- `9 I$ ?
158.         Dim result As Double
     - Z9 h5 Y+ r. r" A% Y! f9 I9 Z3 A
159. 
     
160.         Try
     8 T0 b7 z6 l1 a9 ^
161.             Dim nullNXObject As NXObject = Nothing
     1 w( r' T# t+ A: H$ v  i4 @9 X7 H
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     5 h% |$ a( R  N
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     ! R; O5 i2 X( P5 \/ v9 N  R
167. 
     / L7 S+ R: d+ k- t/ X
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     5 t) e0 H2 Y8 Y4 Y0 h( l  u# n
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     * C8 X$ [  j' A3 g  {
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     ' _, U0 R% T# g4 D& H- ]
174. 
     
175.             result = measureDistance1.Value
     
176. 
     
177.             'measureDistance1.Information()
     
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     4 Q" {- Q* |0 Y, d- H% T
182.             MsgBox(ex.Message)
     ) W! j2 b- `& ]% M: l5 a
183.             Return Nothing
     ' {; x! o* e1 w3 V0 U
184. 
     , G7 r$ U; B( @* J6 u0 G# W
185.         End Try
     
186. 
     
187. 
     8 l: h# c& s: x: I0 P
188.         Return result
     5 f5 f: d5 m( Q/ X8 E
189. 
     5 O' @: A2 W6 Z' S# N3 n$ x
190.     End Function
     # y6 i% `+ q- q
191. 
     
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     * p' b$ O7 X" m/ C
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
       ]; G& A8 O1 h+ D6 Q: b6 j+ b
198.     End Function
     2 |2 L. V8 |! x- I
199. 
     " s- b9 s2 o/ |1 R7 L. I+ a
200. End Module
     2 c: U- a; v. {- T$ b- ]; p# F* j
201. </P>

复制代码

admin

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