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

mildcat

PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
内容：
- D' p5 W  ]! n8 o0 V默认录制的JA文件，在选择对象的时候，通过内部的标识去选取，如果改变其他的对象的时候，很可能程序执行失败，这个时候需要手动的进行代码的修改
2 I! M! M$ {% P% ^% _目的：
使用添加选择功能，让用户交互式的进行选取对象，避免这种录制产生的缺陷。

% O3 E7 ?7 z  C' X

20 完善JA的选择功能

( R7 P0 d* d( a/ U$ W+ c9 o
高清教程见楼下：

1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
   - @, |' b% g7 p+ P
2. Dim  ui  As  UI  =  ui.GetUI
   6 i  q& m' a3 [; Q) Q
3. Dim  message  As  String  =  "Select  face"
   
4. Dim  title  As  String  =  "Selection"
   " M. x! m: h* l6 E8 \
5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
   
6. SelectionScope.WorkPart
   
7. Dim  keepHighlighted  As  Boolean  =  True
   * Q+ K/ }& }1 ?* |
8. Dim  includeFeatures  As  Boolean  =  True
   
9. Dim  response  As  Selection.Response
   3 c/ S' d" A  m) F
10. Dim  selectionAction  As  Selection.SelectionAction  =
    
11. Selection.SelectionAction.ClearAndEnableSpecific
    
12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    
13. With  selectionMask_array(0)
    
14. .Type  =  UFConstants.UF_face_type
    
15. .Subtype  =  0
    1 Y! U+ B' N$ I
16. .SolidBodySubtype  =  0
    6 h( d: n) e; r2 I$ y0 V8 w" \
17. End  With
    ( K' b+ ~2 z% v/ p* E2 G
18. Dim  cursor  As  Point3d
    
19. response  =  ui.SelectionManager.SelectObject(message,  _
    ; y4 R" h7 r) O+ L7 q: w2 }
20. title,  scope,  selectionAction,  _
    
21. includeFeatures,  keepHighlighted,  _
    
22. selectionMask_array,  selectedObject,  cursor)
    4 {( l' B5 [2 U7 q8 r6 Z' {
23. If  response  =  Selection.Response.Cancel  Or  response  _
    
24. =  Selection.Response.Back  Then
    
25. Return  Nothing
    
26. End  If
    
27. End  Function
    

复制代码

5 R) }" s" k  Q6 s0 K7 A2 V

mildcat

PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 - y6 E' s1 k0 a( ^; f% J7 d 0 r3 F- M8 W5 A0 h D6 K[flash] [/flash]

东沟恋君

赠人玫瑰,手有余香

江东

一定要看看

C_X_J

学习学习。。

逐日

谢谢螺柱分享

student

之持支持~~~來挖寶

ONE

- L5 k0 K& U: V. t! g& O0 L楼主辛苦啦.谢谢楼主

C_X_J

楼主辛苦了，谢谢分享

不是哥干的

谢谢高手的分享