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

mildcat

PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
, u8 L. M$ d1 ]$ Q: ?" V/ R* M内容：
/ _8 [3 e) ^5 N+ R默认录制的JA文件，在选择对象的时候，通过内部的标识去选取，如果改变其他的对象的时候，很可能程序执行失败，这个时候需要手动的进行代码的修改
目的：
使用添加选择功能，让用户交互式的进行选取对象，避免这种录制产生的缺陷。

* y9 ~% z0 K# ~2 T' X- f: B

20 完善JA的选择功能

7 `+ ]0 @) Y/ r- j& b
# P2 g% [4 a. _' `' P3 ~& J3 x高清教程见楼下：
" X* m( f) C1 m9 E

1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
   
2. Dim  ui  As  UI  =  ui.GetUI
     h& o0 x- V) N/ u6 L
3. Dim  message  As  String  =  "Select  face"
   * ]$ e1 q0 g  S! l6 S8 y
4. Dim  title  As  String  =  "Selection"
   , F% \3 K! F  ~3 X5 l/ y+ ]
5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
   $ d# f7 K+ s! E: v$ h
6. SelectionScope.WorkPart
   
7. Dim  keepHighlighted  As  Boolean  =  True
   
8. Dim  includeFeatures  As  Boolean  =  True
   ) U; v9 t: S& w
9. Dim  response  As  Selection.Response
   5 ]+ h/ o  e0 y% P/ P# x, M
10. Dim  selectionAction  As  Selection.SelectionAction  =
    0 h9 S, s: B" [' e# S, y# ]: P
11. Selection.SelectionAction.ClearAndEnableSpecific
    - {, L- a  s5 x& A
12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    7 z8 Q# o" a4 n/ K* ~6 }. G
13. With  selectionMask_array(0)
    * R/ t, v) y$ E8 z. l5 i! n
14. .Type  =  UFConstants.UF_face_type
    2 l% J* c1 |4 j$ q$ j! p
15. .Subtype  =  0
    + {$ S( ?$ y' d+ R9 K0 E6 F* _4 J
16. .SolidBodySubtype  =  0
    
17. End  With
    
18. Dim  cursor  As  Point3d
    2 w; N" a5 }3 Q# c1 m
19. response  =  ui.SelectionManager.SelectObject(message,  _
    
20. title,  scope,  selectionAction,  _
    
21. includeFeatures,  keepHighlighted,  _
    
22. selectionMask_array,  selectedObject,  cursor)
    
23. If  response  =  Selection.Response.Cancel  Or  response  _
    ' |5 y1 \' k' Z9 l' Z7 s
24. =  Selection.Response.Back  Then
    , v$ b4 j8 w6 G4 X& j
25. Return  Nothing
    
26. End  If
    ! p: E- d% ]* m$ ]& j
27. End  Function
    5 M% K' _8 X# t  H% E* Z3 p

复制代码

- ^; ~* p/ N& }/ [
' i4 o2 W, k0 n

mildcat

' W* `% M7 z1 u9 R $ i8 O: {- G( b3 ]& R PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 $ b& ~1 B' b. d: W0 h5 O# o[flash]

如果无法播放，请点击此处在新窗口打开

[/flash]

东沟恋君

赠人玫瑰,手有余香

江东

一定要看看

C_X_J

学习学习。。

逐日

谢谢螺柱分享

student

之持支持~~~來挖寶

ONE

% |2 ?8 r' p' @/ ?1 o, j( E楼主辛苦啦.谢谢楼主

C_X_J

楼主辛苦了，谢谢分享

不是哥干的

谢谢高手的分享