PLM之家PLMHome-国产软件践行者

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

  [复制链接]

2014-1-19 08:44:16 36304 129

mildcat 发表于 2013-12-2 20:33:45 |阅读模式

mildcat 楼主

2013-12-2 20:33:45

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能3 R  `  m0 s' C; C( [
内容:$ K4 j! ]4 G: G9 x
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改
# E; V* w  N% ?0 @/ y2 U目的:2 |6 Z5 X6 \3 J
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。
9 q: M3 E$ |4 Q! `3 A+ i: y+ P
: C& n, j) W3 n# K

20 完善JA的选择功能

20 完善JA的选择功能
$ D- f' q$ |" w
6 A4 g, s$ _/ g  Z
高清教程见楼下:
1 p$ n/ l0 |% Y% w% q2 _7 [* S
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject% O6 O( h' g* m2 q. s
  2. Dim  ui  As  UI  =  ui.GetUI
    ' s6 X% o0 J+ P" j" Q& e
  3. Dim  message  As  String  =  "Select  face"
    / h+ t3 m# r( c: c
  4. Dim  title  As  String  =  "Selection"
    # Y5 a  O& |) u+ q/ j& l
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _7 l) V% \& t$ I7 F' O( E
  6. SelectionScope.WorkPart
    ( i4 h5 a: J% \3 e2 G* s
  7. Dim  keepHighlighted  As  Boolean  =  True
    8 j  X6 S8 A3 |" h4 n: _
  8. Dim  includeFeatures  As  Boolean  =  True( }0 ^: `9 w% L+ ~+ F0 P" T
  9. Dim  response  As  Selection.Response+ |) }  C, X1 @! ^
  10. Dim  selectionAction  As  Selection.SelectionAction  = ) Y# u9 l! `9 {! |
  11. Selection.SelectionAction.ClearAndEnableSpecific
    " f) {" ?0 K0 e2 {! {' g
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    " _$ E+ J3 P* b7 u7 q6 A
  13. With  selectionMask_array(0)
    " [6 R6 z/ i, {% T" Y; A# ]
  14. .Type  =  UFConstants.UF_face_type- W1 [* ]. G& ]2 ~/ \
  15. .Subtype  =  0
    / \6 _( ]5 r7 z
  16. .SolidBodySubtype  =  0
    / e! p; R* J! h1 P
  17. End  With
    ' ^9 F# [6 Z$ O: y
  18. Dim  cursor  As  Point3d
    ; z, y0 w' i& x# T% r
  19. response  =  ui.SelectionManager.SelectObject(message,  _
    2 D, w/ H1 Q* g- U
  20. title,  scope,  selectionAction,  _; B& P+ E! w: i+ S2 q, C
  21. includeFeatures,  keepHighlighted,  _
    : {+ ^' }" b$ b  }# O
  22. selectionMask_array,  selectedObject,  cursor)9 ?$ F+ a" X7 m0 [
  23. If  response  =  Selection.Response.Cancel  Or  response  _
    # L4 G1 |( @9 U; u2 p  q9 P
  24. =  Selection.Response.Back  Then+ d8 T& x' z* d& P4 v; v
  25. Return  Nothing4 I" o1 J( O3 m, H
  26. End  If4 g- v) O, N& ^+ |1 \1 W, C
  27. End  Function! O3 {6 X8 h, w, @) n  q& |
复制代码
8 Y8 v5 h' G1 P; X
+ X  ?/ d9 s' ~) i5 b- H" f
: ?/ Z) I& ~1 _. e" s$ w3 K
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

mildcat 发表于 2013-12-2 20:33:57

mildcat 沙发

2013-12-2 20:33:57

9 q% R, B0 [6 |; C- | 4 N9 `' ?, J$ _! H q PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能% N; {) c$ u) W5 Q + t& K1 q9 E7 X[flash] 8 E' G8 X' ?& L9 a0 R7 d [/flash]
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

东沟恋君 发表于 2013-12-7 22:41:11

东沟恋君 板凳

2013-12-7 22:41:11

赠人玫瑰,手有余香
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

江东 发表于 2013-12-23 00:41:30

江东 地板

2013-12-23 00:41:30

一定要看看
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

逐日 发表于 2014-1-5 16:33:09

逐日 6#

2014-1-5 16:33:09

谢谢螺柱分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

student 发表于 2014-1-12 01:05:45

student 7#

2014-1-12 01:05:45

之持支持~~~來挖寶
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

ONE 发表于 2014-1-12 09:02:25

ONE 8#

2014-1-12 09:02:25

! j/ {9 n3 R$ q* C; B0 g" Y  F
楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

C_X_J 发表于 2014-1-18 12:43:57

C_X_J 9#

2014-1-18 12:43:57

楼主辛苦了,谢谢分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

不是哥干的 发表于 2014-1-19 08:44:16

不是哥干的 10#

2014-1-19 08:44:16

谢谢高手的分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

发表回复

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

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

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

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

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

    我知道了