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

admin

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

1. 
   8 P% [. C9 B& T" u; h. z0 \7 p" r
2. <P>Option Strict Off
   
3. Imports System
   
4. Imports NXOpen
   
5. Imports NXOpen.UF
   
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()
    ' B6 s  Y& w1 ~' w0 D' V6 {' b, ^
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    * D6 s2 ?' y' U' p, w8 f
14.     Dim myModelingTolerance As Double
    
15. 
    
16.     Sub Main()
    
17. 
    % R5 q/ @8 t* p$ y  {* B
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    1 Y/ U) V/ t2 B; x8 e
21.         lw.Open()
    1 o, Z* h4 V! V6 u- O
22. 
    
23.         Dim myPointTag As Tag
    
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    ( [" p1 ~& q& i  ]* H" t9 i
26.             Exit Sub
    
27.         End If
    ! V; h: c" r: l& h
28. 
    " }$ \  N- e; C. u
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    7 Z9 k6 w! Y9 P, C' K
30. 
    
31.         AskParents(myPointTag)
    2 V7 n- D2 o4 R% G- l
32. 
    % G) a2 Z* W* K& }
33.     End Sub
    ; O, t- Q( R# ]! c. G/ Z0 n9 {" k
34. 
    2 c; S) |# l% ]+ o) K
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
    
39.         Dim myPoint As Point
    4 P& P4 N+ T; l2 ^# ^
40.         Dim myEdge As Edge
    2 P7 `* X! n) p4 y4 {
41.         Dim myXform As Xform
    6 m5 t0 z0 |) a4 K$ r4 I
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    ! S  G1 S; @/ S
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    % |  \# F; Q! [$ \  D  J
48.             lw.WriteLine("")
    # B' u* V& y) A2 y& M
49. 
    
50.             Try
      A+ k$ g- c9 h7 B9 D
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    5 k  m' k* h# w0 Y9 Z+ O
53.                 For Each parentTag As Tag In parentTags
    ' ^& w8 a1 o  e3 E4 l& o6 X
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
    8 r5 w6 t2 L! V$ `$ E
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    # n$ y, `; Y! @
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    + c/ `4 U) f( v
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    " V2 s/ ~- g  X* Q5 E. A
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    4 n3 ~" m# I2 G( a
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
    6 |: `: j& h5 G8 c; |
70.                             Dim myComp As Assemblies.Component
      o( y3 M0 j9 W
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    $ d$ I& P' k6 o) R
72.                             Dim myCompPos As Point3d
    9 k( ?& G$ z: t# u, }. ^/ J
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    % a' V3 a3 ]1 ~1 I" C9 q
75. 
    
76.                             lw.WriteLine("")
    5 k; g: O5 y5 t* x
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    ( r! Z( s5 C# P4 I
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    9 H7 Y+ d! y5 d$ ~
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    4 ?3 p; G1 p( \* F
83.                             End If
    9 p- @9 v# ?* r: L/ y
84. 
    
85.                             lw.WriteLine("")
    9 l' G7 U( W# A# w
86.                         Next
    ( U# E3 Y" i4 ^! `8 ]4 ]$ s) f
87. 
    
88.                         lw.WriteLine("")
    : M( h" r  [8 H; O
89.                     End If
    7 F+ P% y$ x% Q' N, B+ G. N
90.                 Next
    
91. 
    ; X7 D- e  ?9 C6 b8 M
92.             CaTCh ex As Exception
    % B5 k! v4 Q. b: s9 N
93.                 ' NXOpen.NXException: Current object is not smart
    # N4 T9 z' {  F! b7 @' w
94.                 lw.WriteLine(" Error: " + ex.Message)
    3 q3 F) `! v2 m0 C6 V/ r) T
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    # E! \/ ]4 p! M' {2 Z
97. 
    
98. 
    4 h" b( g. f* K  b4 e/ _, ?
99.         End If
    ) J- |% e# d5 [- h' w# L; U- c( f4 Y
100. 
     # S" Y6 A+ Q/ ~# w5 }2 r
101. 
     5 T# z" ?( Y( f, C3 b( c
102.     End Sub
     . ], G4 l  z4 d: S4 b) w  B: }
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     2 r# |% S! G8 c0 {7 E
105. 
     $ T' G! a! X  ]
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     ! u4 V  {. T9 y' z
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)
     2 l; x. I+ _  j
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     ; N" v" t; H: q
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     7 |/ H; W, v! r8 @8 V/ o4 ?% M
114. 
     
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     0 I: k& F5 G$ R8 ~
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     9 h8 K1 i5 O, G7 U- v+ j7 c7 K
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     1 W" M$ k+ t; |0 p' l/ J7 Q
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     % O7 S" ?7 x0 p8 b# Y
122.         Return response
     * F, P$ z7 i3 T1 K; o, p& ^1 C
123. 
     
124.     End Function
     
125. 
     4 n9 r' Y) X5 H
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     / B% ]) V5 a6 g6 J# N
127. 
     4 y# L0 i2 c. [6 {0 B* T3 g! c
128.         Dim selObj As TaggedObject
     ( ]6 R/ R$ W+ \# h
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     - l" b0 }" Q% I' j) Z, `
131.         Dim includeFeatures As Boolean = False
     2 R1 l! k% w3 Y' w% I$ O
132.         Dim keepHighlighted As Boolean = False
     ! S# c- `% Z# v/ ~! {1 {
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     ' b4 e2 [. M6 O! \
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     1 w' ~6 c8 ^8 t* m+ Q
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     % ~) {- y- Z' H% T8 r( F  `
138.         With selectionMask_array(0)
     : ^- `3 X. u/ p6 Y& S3 S
139.             .Type = UFConstants.UF_point_type
     ; |$ D3 d9 G3 N+ f
140.             .Subtype = UFConstants.UF_all_subtype
     4 Z0 ]7 x% N& m6 O+ a7 o
141.         End With
     
142. 
     5 n: w$ a/ A/ X* {. B$ N0 l* M
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     : m" A  p$ g) B- H8 b9 ?
148.             selPoint = selObj
     ! ~9 h" q! |6 H; y# A! Y" i: ]# H, x
149.             Return Selection.Response.Ok
     2 E) [+ [! J- C! q$ x; ]
150.         Else
     
151.             Return Selection.Response.Cancel
     
152.         End If
     " u* }+ U: U+ S+ \6 D: R- b
153. 
     
154.     End Function
     8 s, R/ [# v1 G6 e* H9 E* |
155. 
     9 k' T8 M4 }- h% F6 g2 e; H
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     ' V- r2 ~; |* X; I
157. 
     $ H$ I$ }- G  i3 W
158.         Dim result As Double
     
159. 
     
160.         Try
     
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
     
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     / N; s2 N( ]/ W2 f: d
169. 
     
170.             Dim nullUnit As Unit = Nothing
     
171. 
     * D& ~: ~' [* \5 _
172.             Dim measureDistance1 As MeasureDistance
     7 w$ x$ o$ F& T# }6 x
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     ' Y% I+ N) k* q3 X
174. 
     : {, l% [; o8 y$ b7 L
175.             result = measureDistance1.Value
     ) y! O, g0 J$ X3 o6 n, c
176. 
     % V+ ~& \# \0 c  E# @0 A/ S: n
177.             'measureDistance1.Information()
     2 r1 P% R- [  r9 M
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     + x6 ~5 K, o, y, x
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     4 h3 V& F+ n. F. k5 N; z" w3 H& O
183.             Return Nothing
     * _8 ?3 h& A5 a/ [3 r
184. 
     0 r' R4 N, R7 U; H2 h
185.         End Try
     
186. 
     
187. 
     
188.         Return result
     3 A5 N$ i+ i- q1 ^' M; m* Q
189. 
     , G# E5 P: [% \# g: ?  U# S9 W6 j2 c
190.     End Function
     
191. 
     7 o1 ?; L( ]; L! p0 `' U2 Z
192. 
     ) c- S- f9 m+ r- z; w" e
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     , @2 D" {8 w: x. A
195.         'Unloads the image when the NX session terminates
     , D5 e6 M3 P2 c. S  r
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     
198.     End Function
     
199. 
     ) v  G: W) B5 q/ f% I4 U4 u9 y
200. End Module
     ; }1 u! G/ }4 ~/ G/ p+ q
201. </P>

复制代码

admin

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