PLM之家PLMHome-工业软件践行者

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

  [复制链接]

2014-1-19 08:44:16 38327 125

320

主题

226

回帖

9784

积分

管理员

PLM之家NX|TC专家

积分
9784
发表于 2013-12-2 20:33:45 | 显示全部楼层 |阅读模式

请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!

您需要 登录 才可以下载或查看,没有账号?注册

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
6 N# _4 H7 @: I; n7 w/ K; [# U内容:
' m9 O6 l, f2 X/ ^8 D默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改0 h5 Z7 y; n; M6 t2 f2 J% l, z
目的:  ~% H$ y7 S' X* L& V6 \
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。, ]. d7 N3 }1 P# N4 q/ G* ~

6 [: M$ l' N( C  j

20 完善JA的选择功能

20 完善JA的选择功能

4 ]) J+ W$ m. |8 \) L

3 L. J% o4 s( x高清教程见楼下:
' d2 v5 r% y$ S4 ?9 t4 ?8 E
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject4 t1 s- h3 O/ d) J6 F1 y0 W
  2. Dim  ui  As  UI  =  ui.GetUI
    3 D" ^5 n" F4 k* f& \9 z; s
  3. Dim  message  As  String  =  "Select  face": l2 c5 L9 P9 z) _2 N+ @) a& ]6 z3 R
  4. Dim  title  As  String  =  "Selection"
    ! V; y2 f4 S0 m# r% e
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _3 V7 N7 y9 {" M& A0 s0 a8 w
  6. SelectionScope.WorkPart
    ! e6 ?& D& r5 q( l8 b  p$ A
  7. Dim  keepHighlighted  As  Boolean  =  True
    ' A# \- C5 P8 V/ C+ K7 F! a# }
  8. Dim  includeFeatures  As  Boolean  =  True
    ) l5 K0 @, q2 w. q
  9. Dim  response  As  Selection.Response2 |( t( B4 c2 l9 q5 H0 K2 a
  10. Dim  selectionAction  As  Selection.SelectionAction  =
    4 _+ k) ~; x1 K/ K
  11. Selection.SelectionAction.ClearAndEnableSpecific7 P- f. g- q' L5 ^3 _: ^% g' T
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple" v) S9 w) S2 Z0 z$ k2 P# M; N6 A* x
  13. With  selectionMask_array(0)
    4 y/ j; S6 u  E
  14. .Type  =  UFConstants.UF_face_type; G+ n, ^" O* L7 r- g
  15. .Subtype  =  0
    ! ?& W7 y0 G5 J- w; e9 {; N2 e- J
  16. .SolidBodySubtype  =  0
    . |! M8 L7 |* c0 T8 H; [  [
  17. End  With* s% s; l! |4 a$ S6 n' e
  18. Dim  cursor  As  Point3d+ m5 s7 ~! p# K  B  x& W: c
  19. response  =  ui.SelectionManager.SelectObject(message,  _
    ( ?7 v. h9 w  a4 {. [' U
  20. title,  scope,  selectionAction,  _" f- w' G2 s0 Q! M$ o/ E
  21. includeFeatures,  keepHighlighted,  _& S2 X- j; @: h3 N4 ?* Y
  22. selectionMask_array,  selectedObject,  cursor)$ d( s9 A  H  Q; F
  23. If  response  =  Selection.Response.Cancel  Or  response  _! p! p- I. V( g' L
  24. =  Selection.Response.Back  Then# g* V: X2 n- U! B
  25. Return  Nothing) a8 O4 m( J5 [' x% X' @9 l- h
  26. End  If- ~/ Q- ?: n" J; Z
  27. End  Function
    6 X5 j# l5 E" z4 z" k. h5 c2 \
复制代码
) l* W$ K  s8 X* Z: M0 K5 M  {

7 v5 P" w, E3 {( Q. x4 Y& [

3 g' {: x# q- T5 B# ?
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

320

主题

226

回帖

9784

积分

管理员

PLM之家NX|TC专家

积分
9784
 楼主| 发表于 2013-12-2 20:33:57 | 显示全部楼层
2 N9 I' ` F z, e2 ~6 e, p' z3 w0 B/ C& L7 } PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能* e& w! m+ k0 `- E / M+ A9 }: M9 ?. }! Q[flash] : ~. O A a+ M [/flash]
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

0

主题

64

回帖

358

积分

中级会员

积分
358
发表于 2013-12-7 22:41:11 | 显示全部楼层
赠人玫瑰,手有余香
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

0

主题

7

回帖

18

积分

新手上路

积分
18
发表于 2013-12-23 00:41:30 | 显示全部楼层
一定要看看
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

0

主题

30

回帖

72

积分

注册会员

积分
72
发表于 2014-1-5 16:33:09 | 显示全部楼层
谢谢螺柱分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

0

主题

18

回帖

56

积分

注册会员

积分
56
发表于 2014-1-12 01:05:45 | 显示全部楼层
之持支持~~~來挖寶
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

0

主题

28

回帖

93

积分

注册会员

积分
93
发表于 2014-1-12 09:02:25 | 显示全部楼层
& e4 a- d- z4 R# K, e6 C. D
楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

2

主题

204

回帖

2322

积分

PLM之家NX VIP

积分
2322
发表于 2014-1-18 12:43:57 | 显示全部楼层
楼主辛苦了,谢谢分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

1

主题

15

回帖

82

积分

注册会员

积分
82
发表于 2014-1-19 08:44:16 | 显示全部楼层
谢谢高手的分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 注册

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

    本网站(plmhome.com)为PLM之家工业软件学习官网站

    展示的视频材料全部免费,需要高清和特殊技术支持请联系 QQ: 939801026

    PLM之家NX CAM二次开发专题模块培训报名开始啦

    我知道了