PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能

mildcat

PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
( z6 ]; E! n- e' ?0 g4 s& z内容：
% ]* u$ e: ]4 _& |4 Y! F默认录制的JA文件，在选择对象的时候，通过内部的标识去选取，如果改变其他的对象的时候，很可能程序执行失败，这个时候需要手动的进行代码的修改
目的：
使用添加选择功能，让用户交互式的进行选取对象，避免这种录制产生的缺陷。

20 完善JA的选择功能

9 [5 I1 X( O, x0 b+ r) `8 {2 w' t7 w
高清教程见楼下：
# `! B3 r8 z. B) x3 i1 V

1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
   
2. Dim  ui  As  UI  =  ui.GetUI
   - k& ~0 D  |" ]
3. Dim  message  As  String  =  "Select  face"
   3 q# f" j4 S/ I5 h( Z- }) x+ d* M
4. Dim  title  As  String  =  "Selection"
   0 F, y: E  f; ~. W! g
5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
   
6. SelectionScope.WorkPart
   
7. Dim  keepHighlighted  As  Boolean  =  True
   
8. Dim  includeFeatures  As  Boolean  =  True
   
9. Dim  response  As  Selection.Response
   
10. Dim  selectionAction  As  Selection.SelectionAction  =
    % C2 b/ P/ Z5 f! L7 `2 B* c4 d
11. Selection.SelectionAction.ClearAndEnableSpecific
    6 D9 z0 P1 u1 Q8 ?9 B
12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    * H2 v( a- w& s7 X
13. With  selectionMask_array(0)
    . N6 t/ v* u& Z" \7 d  V
14. .Type  =  UFConstants.UF_face_type
    
15. .Subtype  =  0
    
16. .SolidBodySubtype  =  0
    
17. End  With
    
18. Dim  cursor  As  Point3d
    % I" p9 V! t$ |3 K6 b! D! f
19. response  =  ui.SelectionManager.SelectObject(message,  _
    3 Y, X9 m0 j# G/ p, O7 ~
20. title,  scope,  selectionAction,  _
    
21. includeFeatures,  keepHighlighted,  _
    ; i, H8 K0 }( J# A" L7 Q# l2 |
22. selectionMask_array,  selectedObject,  cursor)
    6 q3 u/ {  p' u$ H0 d3 t- y
23. If  response  =  Selection.Response.Cancel  Or  response  _
    - r& z9 }6 c/ z2 F1 q+ }
24. =  Selection.Response.Back  Then
    1 E5 q& x) S$ |( W4 D* T
25. Return  Nothing
    4 R, U- E0 M7 R6 ?! p. M
26. End  If
    
27. End  Function
    

复制代码

* E6 ^6 h7 M. ^5 P! q
, b/ Y# f4 I/ k$ D% z) t! u4 M

mildcat

) k1 a) Z' {* N, ^ 5 x4 d& s) S+ G' o7 y PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 6 d/ T0 L, m6 V2 w! K [flash] [/flash]

东沟恋君

赠人玫瑰,手有余香

江东

一定要看看

C_X_J

学习学习。。

逐日

谢谢螺柱分享

student

之持支持~~~來挖寶

ONE

楼主辛苦啦.谢谢楼主

C_X_J

楼主辛苦了，谢谢分享

不是哥干的

谢谢高手的分享