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

admin

; O7 H9 s8 i, c) l- X2 gNX二次开发源码： 装配中选点，并报告父对象
& t" L- G  T- G9 l: P0 M( }

1. 
   4 {. l( k/ @+ ~  f
2. <P>Option Strict Off
   & I" n  y; ~5 D) ?, x4 Z
3. Imports System
   / b+ u* R: P/ x' ~% e
4. Imports NXOpen
   
5. Imports NXOpen.UF
   ; J; ]. v. Z- K% @, y
6. 
   
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()
    ! b$ Q9 R9 C" }2 y
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
      @; f6 M, l* Q; N* X' z
14.     Dim myModelingTolerance As Double
    8 L, S8 W4 }1 V4 i$ h
15. 
    
16.     Sub Main()
    8 a+ ^, W" `( [3 z% d5 |: b
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    - g5 h  z# {8 ]5 }4 |
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    ) H& I/ U* S' D0 n0 ^
22. 
    / J' N! O: V8 D3 X
23.         Dim myPointTag As Tag
    $ [4 `( P. Q. P9 J: Z* t
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    
27.         End If
    # g3 Q. [6 e( I6 a/ z
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    % _2 \6 ~- S) }& A; q
30. 
      v, j7 s6 ^9 E, ]  {3 l; }
31.         AskParents(myPointTag)
    
32. 
    
33.     End Sub
    ( B- K% X; e4 e& a6 {
34. 
    1 p9 |3 H5 c& ~0 u
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    ( R2 Y) U! |/ e) {
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    , o/ D4 V; V! p8 E
41.         Dim myXform As Xform
    . F7 y- I- p6 d- d- s
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    ( F9 P, v/ H$ h( u
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    : c  f7 _* Z# F5 l2 k: R
48.             lw.WriteLine("")
    7 @1 k+ [5 k$ A# b5 y9 Q
49. 
    # y/ q% D+ A' X; b3 _
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    ' G0 y: n. l/ ~% F
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. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    1 R5 ~. Y3 v: v& K3 h8 I- l7 |$ ?
60.                         lw.WriteLine("")
    % B% c" [! E4 B: M
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)
    
64. 
    / B( o2 Z* ]; s3 C4 t2 ^
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    ; y( H' u0 k6 E8 _
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    / [9 \; [: B+ w3 g7 `
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    ( M: K, D$ y2 r
75. 
    
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)
    . [# u; g" u( I5 p
80. 
    8 s. ^! W+ i, ~
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    9 S; |3 ]! d3 H" F
82.                                 lw.WriteLine("** This is the component that was picked **")
    " i! [& W' g- B
83.                             End If
    
84. 
    0 P. ~5 W: v4 N. \& l; a; l2 y
85.                             lw.WriteLine("")
    
86.                         Next
    
87. 
    ! T% d8 E/ m: X& E' }8 V) h
88.                         lw.WriteLine("")
    * i& ~2 u2 n) ]/ ^0 ~% \
89.                     End If
    
90.                 Next
    
91. 
    
92.             CaTCh ex As Exception
    0 J! O) l4 v7 |, z
93.                 ' NXOpen.NXException: Current object is not smart
      n+ X/ u+ C- h# I
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    0 X: h% [6 c+ U; v! w3 h" `% n
97. 
    : j5 T2 q3 f6 L5 d
98. 
    
99.         End If
    . T8 K  H/ X8 B' D
100. 
     : t% v( u- \, |# v  V+ _. r7 c
101. 
     ' r, t' K7 E4 m
102.     End Sub
     
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     + S+ o) _+ j5 i: W
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     ! ?5 X; a. r. K' J! ^+ `! @
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     2 }3 l2 u/ A2 T% D' r& D0 Q3 l
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     4 N- M/ N6 t" F& g" G
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     9 L7 u; J0 K3 D) W
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     ! |, T3 \: ^5 e: o! D
114. 
     0 K; S0 M/ w: {
115.         Dim pointLocation As Point3d
     9 j4 O+ q6 a& C( r- @& c7 ~
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     ) Y5 j( P8 u% h" M6 \; C
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     * J6 ~2 u  [% G
121. 
     
122.         Return response
     
123. 
     ' Q. A$ ~/ I9 j
124.     End Function
     
125. 
     ; e. x8 {5 R9 q2 g6 [7 M1 W0 l3 l
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     5 }0 ^' W! B+ q& a% D
127. 
     
128.         Dim selObj As TaggedObject
     
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     : z! ]  h+ p/ ~# ?2 X7 c2 U; b9 X3 J
131.         Dim includeFeatures As Boolean = False
     % v3 B. g& O" r( T" l
132.         Dim keepHighlighted As Boolean = False
     # B! P: L$ g" Q. r5 B) G% C8 {  a
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     7 |/ @& d- Y8 k4 |/ ^
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     ! N+ |3 K6 G8 ~' @; v
138.         With selectionMask_array(0)
     9 \( Q. f2 e% I, P0 a- Q* j
139.             .Type = UFConstants.UF_point_type
     9 V' M3 R6 @: q4 c0 M
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     , C( s! s; z* V" R
146.          selobj, cursor)
     
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
     # `2 W7 A9 k% X$ K, X& X9 Y
152.         End If
     ) p' e" T. e, i# c. p
153. 
     
154.     End Function
     , S: B, _% B; \- Y% A5 `
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     9 F9 b) J6 ?. ]& i& E9 ~: y3 {! h
157. 
     
158.         Dim result As Double
     0 r% q* u" i9 i' s$ K1 n( ~. z
159. 
     
160.         Try
     9 G1 c. C% O- p9 g% z" j
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     8 p8 o' K4 o# g* `7 Q
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     - G0 S0 `% A5 r$ P9 J) }! B
169. 
     4 _* z! ]' v% v7 h; ^" o& r
170.             Dim nullUnit As Unit = Nothing
     6 b8 s, w  i7 }& @% u- }' }2 O! ?+ `
171. 
     
172.             Dim measureDistance1 As MeasureDistance
     ( x- r8 b& X. O/ Q# e, y
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     5 T/ P5 S7 g' i' \) x0 |$ `
174. 
     
175.             result = measureDistance1.Value
     : a. g# }4 l  a6 l, B. Z* P' z
176. 
     ( E" b8 K/ b3 I8 }& }3 W
177.             'measureDistance1.Information()
     
178. 
     , e8 M6 i9 F7 G* R
179.             measureDistance1.Dispose()
     + Y4 V: s% @/ e" {$ A
180. 
       u5 d1 d, r, N: w0 P9 A3 E1 i
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     1 p' ~; p9 ~2 J( i9 H% S# I. Z" U( Q
184. 
     " Q( A" m1 p( P2 w- N' m) @
185.         End Try
       e* v' c+ h  C0 u5 g
186. 
     $ ~4 v1 E8 J' F3 i
187. 
       V: `, E3 S$ q) m
188.         Return result
     
189. 
     ! R1 |7 x0 Q) I, M) F! ^/ O
190.     End Function
     
191. 
     % j. l3 s9 V1 u4 m8 m* i6 j
192. 
     : p7 r( d0 H3 k, ~- S! N
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
       F+ t. I- S6 P: V+ l& g
194. 
     
195.         'Unloads the image when the NX session terminates
     ) {- R6 Q5 i; G. w- y! x  l
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     
198.     End Function
     
199. 
       w1 I2 f/ o1 }% b7 e# P3 [8 a7 f
200. End Module
     1 R% Y2 Y: f$ v% f3 h' k
201. </P>

复制代码

admin

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