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

admin

- b6 n9 ?. `* ?* A) j8 JNX二次开发源码： 装配中选点，并报告父对象

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   $ b: l+ I- E3 y+ Y2 F
6. 
   * j+ v( y) Y. \: R* A4 E7 E
7. Module Module1
   , D2 L. X! e( d6 I; O
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   % [1 Q! [) C' c: F4 L  E5 o5 e
10.     Dim theUI As UI = UI.GetUI()
      n( i$ O0 P' k- t1 C9 @
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()
    $ J4 G5 U+ Q) J" c: ]$ l
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    $ R9 w" T  B! H2 D0 W/ l
22. 
    $ c! v& s& L  {
23.         Dim myPointTag As Tag
    
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    , D2 o# u8 i% y  |0 y6 x
26.             Exit Sub
    
27.         End If
    
28. 
      }4 e4 p- e- n2 v
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    ) Q: o; A6 B! J$ l% {
30. 
    
31.         AskParents(myPointTag)
    
32. 
    9 M$ C" d6 g9 ?
33.     End Sub
    6 X/ e( x0 S' v, r$ [1 E
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
37.         Dim n_parents As Integer
    9 k" N# N1 I( p( W$ Y( e6 F
38.         Dim parentTags As Tag()
    & e' t/ e4 N7 V! r1 ?
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    6 W) E6 P5 @# n& F0 ~* m* z
42.         Dim myTaggedObject As TaggedObject
    : J+ L) r; D) s1 P4 G+ Z3 _
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    5 q+ P8 a- M" M
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    8 G" ?  w7 E' Y( E) n/ |( |
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    
50.             Try
    , I, L) L& x+ p, i, j. k
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    ! [% D% V1 Q2 o
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    5 G6 M0 U/ X% p1 q1 ]! c1 W! J
53.                 For Each parentTag As Tag In parentTags
    
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    
55. 
    
56.                     AskParents(parent_object.Tag)
    
57. 
    , m6 i; Z  b3 A
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    , @" [( t8 x" Q9 S* ^
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    & L6 }2 x( V0 H: a, O+ V- y8 {
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    7 V' y! _* T9 V  v" f  l3 e) K! H
66.                         Dim occTags() As Tag
    - O! y- \0 D# o; E
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    ' n9 L  Z" b! L
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    " L/ h( ]  W' f/ {$ b, O+ w1 b
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    ; f, t3 z& \4 J$ p# D
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    / p; `, \/ Q0 D" _5 v
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. 
    & k) ~) ]- ^: w4 F
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    + l: `/ x7 I/ S- z& Z, |& D
82.                                 lw.WriteLine("** This is the component that was picked **")
    
83.                             End If
    4 W/ @2 u4 U" `5 Z8 c. X* ]
84. 
    # g3 s: ~6 h/ v3 Z
85.                             lw.WriteLine("")
    / g) W3 B! @- S7 Z; ^! _1 v
86.                         Next
    
87. 
    
88.                         lw.WriteLine("")
    
89.                     End If
    ! V  T+ q4 A8 P) @2 I4 [$ q
90.                 Next
    6 c- R9 i" R2 N4 E
91. 
    : f* J' v6 Y" U, a+ v% ^
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    6 ]7 B  o% l9 k/ d( u% [4 J7 C- i
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    , k0 Z, h0 h8 x% e$ d1 Y
97. 
    
98. 
    
99.         End If
    
100. 
     ; p8 v  ?3 [, @7 t, I: `* D
101. 
     8 U: ?* \4 v, }' }" ]. x
102.     End Sub
     ! J. B9 `9 Q+ J" q2 x# I, k- J+ |
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) {}
     " C+ T. c- S/ p
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     ' u2 E' V+ |$ e* i# G, t/ c0 r
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)
     . }$ _. T. F# c$ j; c/ U5 Q1 y
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     $ I2 @+ @% [' R: {  V# @2 j
114. 
     * n0 A* ~  D; U
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     $ b- g4 h4 X2 ~) ?! e8 i
117.         pointLocation.Y = base_pt(1)
     " y$ X# g" Q0 |$ G' t: X3 f
118.         pointLocation.Z = base_pt(2)
     7 K1 Y# l! D. N% C
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     1 y6 l& q7 k3 u& _; {
121. 
     
122.         Return response
     & P" i" [: ~5 j. q0 |
123. 
     + z: p3 x; q8 D. t, a/ p# O; f
124.     End Function
     
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     6 s- u9 v0 E# U  H
127. 
     
128.         Dim selObj As TaggedObject
     
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     ) t, e, O8 x6 M3 o# M6 [6 m
131.         Dim includeFeatures As Boolean = False
     5 O- l& b0 ~  ~* Q- M7 O6 n
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     ! R3 m, [" x; E
134.         Dim cursor As Point3d
     & I$ x4 w; ^, v/ H& [$ h
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     $ @3 I3 w, O! N3 @
138.         With selectionMask_array(0)
     ) J5 U1 y* m9 y# X) q* [
139.             .Type = UFConstants.UF_point_type
     % d- u( `( u8 j- |7 n
140.             .Subtype = UFConstants.UF_all_subtype
     3 z4 X5 ?+ M: z0 m
141.         End With
     0 M1 b  R2 E" E, h  F6 E. w  B2 E
142. 
     4 ?. v) z- s! a- s5 O
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     ' _& j: }9 U! V8 M$ P
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     9 ]* }4 T+ w7 a. L& @2 u; C
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     
154.     End Function
     ' n& ~8 o& F3 ^, ~2 ], {$ `  }( e
155. 
     1 P# \1 r; i  y3 L8 Q# m' y2 N1 b
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     $ W; [" _. R" a& `/ X% Z
157. 
     
158.         Dim result As Double
     
159. 
     
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     " z: x, q/ F8 ~; \* g7 n
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     3 q. O* M5 Q0 V+ M& P  F4 i
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     9 V( ]+ ?8 a" e! ?, h1 [: C9 J! \
169. 
     + K; X; d7 h) t" l! Q: v; s' @( o
170.             Dim nullUnit As Unit = Nothing
     
171. 
     # P8 c9 N4 _' n9 Y
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     * c" T4 J; }2 H7 u1 M
174. 
     , |( x+ T; Q1 m- n0 a
175.             result = measureDistance1.Value
     
176. 
       c7 I, ~9 p5 y5 N( }/ J( e
177.             'measureDistance1.Information()
     : ~1 }$ G% n: Y
178. 
     
179.             measureDistance1.Dispose()
     " m# M5 T( D1 n9 ]1 _7 _
180. 
       H" [1 v  H; ^+ g/ i& e. V
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     9 s. e7 q1 }/ _" n/ M6 z+ J& B
183.             Return Nothing
     ( p# g' R# D' N6 Y$ {
184. 
     ) W2 ~$ e, @: q7 O- X7 v
185.         End Try
     ! t! y1 j6 N# p: b& {9 `: `5 c$ M
186. 
     
187. 
     # C1 D. d& I/ U# b
188.         Return result
     2 M" p8 o8 Q" _7 M/ `
189. 
     
190.     End Function
     $ _( b9 r: p# D! b4 ?0 |# P
191. 
     
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     7 C' f' w& {4 F/ @9 B( K: M
194. 
     
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     7 r  j4 O7 N% b0 r5 h
197. 
     
198.     End Function
     ! n! Q7 X5 k8 M
199. 
     
200. End Module
     / t$ q2 v' W5 }+ ]
201. </P>

复制代码

admin

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