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

admin

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

1. 
   " K/ z- L2 Z  \% E7 U7 v! z
2. <P>Option Strict Off
   
3. Imports System
   5 r: q3 {. D! y% R
4. Imports NXOpen
   ( [1 E" Y1 Y9 M# w  b. p* M
5. Imports NXOpen.UF
   1 ~! B! w: F0 k3 u
6. 
   
7. Module Module1
   ( {6 e# Y; x3 W: l4 {3 Y0 u- d
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   $ A( @0 z4 G! @
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    $ J0 M) L4 ~7 B9 l
13.     Dim pickedPoint As Point
    $ k2 j0 D/ ^! V" [" g$ D+ s9 i6 l
14.     Dim myModelingTolerance As Double
    
15. 
    ! ^3 J$ E# g! L
16.     Sub Main()
    
17. 
    ' ?2 |% t2 ]3 p5 }& f
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    ; G( e6 u6 E3 `
19. 
    . b: l. f8 F" h4 ~. r" d1 r$ T
20.         Dim workPart As Part = theSession.Parts.Work
    . p' m) ^9 F) _- K+ c2 A& a
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    ) w6 l2 j$ k% [! w4 s- s
26.             Exit Sub
    
27.         End If
    
28. 
    : `9 ^0 J# K! Z& U
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    
31.         AskParents(myPointTag)
    
32. 
    
33.     End Sub
    
34. 
    
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
37.         Dim n_parents As Integer
    : b/ _; |% H2 l8 y" F, N  f5 z+ Z
38.         Dim parentTags As Tag()
    9 L- I0 z4 _" ]  s
39.         Dim myPoint As Point
    0 X0 f/ ^- W, C% d- R
40.         Dim myEdge As Edge
    1 s6 E! ~) u4 s4 o, R0 o
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    # ^7 V4 B, u: _
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    : G0 a) u+ o* k3 ~
44. 
    & r7 J! ]& v9 J( k9 {& [# X
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    
46.             myPoint = myTaggedObject
    : o* v1 A, y& K9 [
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    6 Z* b' l! ^& a2 ?' J
50.             Try
    
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)
    . w, m  d+ K' ~  K6 d0 ^; l
55. 
    
56.                     AskParents(parent_object.Tag)
    
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    5 L; x4 g+ j, s7 Q; G! h
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. 
    4 p; L5 T2 j: c$ H& g3 `
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    + p: O+ \3 ]$ u6 `4 O8 R, K
66.                         Dim occTags() As Tag
    
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    ( U3 f4 B. S; S
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    2 N3 K& b8 E$ H5 Y
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    0 i, ?) g. c3 W" ^/ ?
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. 
    9 E% R! y1 F9 b: D, |4 M1 R
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    0 S$ G1 D  ~: }0 k
82.                                 lw.WriteLine("** This is the component that was picked **")
    " P* ]' D5 [6 J, `: l
83.                             End If
    
84. 
    
85.                             lw.WriteLine("")
    
86.                         Next
    
87. 
    
88.                         lw.WriteLine("")
    8 r$ b1 m, @2 z/ P0 k. T/ G
89.                     End If
    
90.                 Next
    
91. 
    
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    9 ~; Y9 |0 h& s1 ?* A; i$ o
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    * B  t; a2 n1 q% B
96.             End Try
    ' g5 X9 r' C  q: E6 F2 {* [7 S( D. {
97. 
    
98. 
    1 D' Q; B0 s, b
99.         End If
    
100. 
     # p- s& A3 |, v; v/ {
101. 
     - B, z6 o1 ^- T! b$ `* V) W& @
102.     End Sub
     : a: B5 Y4 h2 Y% b- `, i" j' g
103. 
     ! g% ~6 x0 n2 o1 |
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     . Q7 y# q6 k+ A
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     ; p- T" G7 ^9 O7 \* n
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     5 P9 V5 u& i! b
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
       ~2 I1 |  |8 Q. R! X: |
114. 
     # y( o2 t; e4 K( {
115.         Dim pointLocation As Point3d
     ) [4 m1 \" H" G+ D
116.         pointLocation.X = base_pt(0)
     / o  G5 R$ B7 |. h) b. P8 `
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     $ L# U8 f. `9 }8 k4 J$ g3 m
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     ! \, N# W3 @, v3 a, Q/ U* F
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     ' v4 A2 q( r* j4 ?5 Y5 k7 c
121. 
     
122.         Return response
     
123. 
     
124.     End Function
     ) h* y; @& _( |& P
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     
128.         Dim selObj As TaggedObject
     4 g- ~3 `6 f" y4 z
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     5 |/ q2 q' l# c1 R0 B( D/ s
131.         Dim includeFeatures As Boolean = False
     8 m: f+ A- I, M3 W. `9 v: n
132.         Dim keepHighlighted As Boolean = False
     / ~* J1 O- N8 P3 A$ f
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     ; A8 i; Y9 U1 g, y% h
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     ( s/ s! M- w$ W# z5 w  V
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     
138.         With selectionMask_array(0)
     6 F& @0 c' _% m) e
139.             .Type = UFConstants.UF_point_type
     % d  K: x, M: S& O# g
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     # u( M* G7 B* d7 _
144.          title, scope, selAction, _
     6 n, w/ l' u  B+ i. p$ }
145.          includeFeatures, keepHighlighted, selectionMask_array, _
       ^) o& D! g. T
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     7 Y) t. x/ S' }8 E" P& z
149.             Return Selection.Response.Ok
     ; A) @; H) ^- m& p# g4 O  |
150.         Else
     ; W& m7 M% A! i. w( i9 @
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     
154.     End Function
     5 j: v9 v- m1 J% |' @8 F4 \
155. 
     * t2 {  v6 N2 P4 |
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     4 p9 a/ G1 J3 F, D
157. 
     
158.         Dim result As Double
     
159. 
     5 k) R/ g* z* J6 b
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     7 Z; h% b$ N. o
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     6 Y/ g6 F* u# B( |- A( o  _
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     ) D  Q' v9 O$ z4 c' L; }
166.             measureDistanceBuilder1.InfoWindow = False
     ( |/ p. @* {7 y  Q6 K7 f6 j
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     4 k: z2 S) `% G9 L
172.             Dim measureDistance1 As MeasureDistance
     8 a+ A0 v# k% a: G' L; }% y3 a% S
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     
175.             result = measureDistance1.Value
     - {. r  ~- R  I& D1 K  @2 p
176. 
     , H9 D1 U7 f- O- y" K
177.             'measureDistance1.Information()
     4 F* c7 b; R: @
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     0 ^& N) ~  U' T  S8 b0 l8 s5 }
181.         Catch ex As NXException
     " g" L) K; x  x1 I9 L
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     
185.         End Try
     
186. 
     
187. 
     
188.         Return result
     , w9 A7 p& f1 E" z  b8 v
189. 
     
190.     End Function
     
191. 
     
192. 
     & I0 R. H" V% U% C8 Q
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
     + x7 X' p; c3 ?$ t3 x0 D' z
197. 
     
198.     End Function
     
199. 
     # S( K+ o* O: ?. s. D. G
200. End Module
     
201. </P>

复制代码

. G. u7 v, {! ^( Y' D: U6 w

admin

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