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

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

  [复制链接]

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

320

主题

226

回帖

9784

积分

管理员

PLM之家NX|TC专家

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

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
% v: U% r; r8 c* ]; P" h9 d内容:
7 V/ R/ T( R$ O* N9 y+ t默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改" d2 Q4 K1 {% }, e" R
目的:8 {. U$ ~! @/ H0 E
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。
4 Q: ~- T: s) H( A- w9 j
6 q) }7 p- o& Q' K) `% t: Q

20 完善JA的选择功能

20 完善JA的选择功能
. b" L& a$ x: s8 A1 N8 ~; B; S. n9 V
$ S2 d% _# B- B
高清教程见楼下:6 z; [9 p1 z9 g! l5 K
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject+ c2 |" n4 a" U" \  X; W
  2. Dim  ui  As  UI  =  ui.GetUI
    ' @! H8 [4 o2 _. ]' c* U/ s" B& X
  3. Dim  message  As  String  =  "Select  face"
    3 B9 a8 b; h5 U3 S0 b; m! V
  4. Dim  title  As  String  =  "Selection"# X: H- j1 c* S! n, o# C
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _% S5 c5 ]1 T3 G; v* e+ E# l( _- |- u
  6. SelectionScope.WorkPart
    : b: m7 |! ]3 T9 W/ v" O# g+ Z+ }" G
  7. Dim  keepHighlighted  As  Boolean  =  True
    4 J& Z3 b5 i% N! w
  8. Dim  includeFeatures  As  Boolean  =  True
    : y4 s2 I. R0 v! a0 j6 Q
  9. Dim  response  As  Selection.Response* e+ L* M; W! z+ ^. K% ~3 J
  10. Dim  selectionAction  As  Selection.SelectionAction  =
    0 P3 h0 r/ a- n( n
  11. Selection.SelectionAction.ClearAndEnableSpecific
      i9 u$ E- y  G# }
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    6 o8 l6 R1 V0 b! S& {
  13. With  selectionMask_array(0)
    & [1 M$ L1 [; L! E" I4 Q* P2 a
  14. .Type  =  UFConstants.UF_face_type
    # a( J* L5 H3 Q0 {1 N
  15. .Subtype  =  0
    : U6 m; j/ o2 R& C. ~2 J
  16. .SolidBodySubtype  =  0
    + Q1 w9 _, ~+ |/ C2 [
  17. End  With8 w- }9 y0 y  Z! n+ _' b2 Y) g, v$ k
  18. Dim  cursor  As  Point3d! T1 }7 W7 A( n! f! X. s
  19. response  =  ui.SelectionManager.SelectObject(message,  _3 f. n9 [# a8 ^. A/ b- Z9 J
  20. title,  scope,  selectionAction,  _) k% }4 d; j3 |+ `( R7 }
  21. includeFeatures,  keepHighlighted,  _& ~( I$ l- X: d/ I$ M) g
  22. selectionMask_array,  selectedObject,  cursor)% D; @3 e- u% w" J6 s9 P
  23. If  response  =  Selection.Response.Cancel  Or  response  _5 U+ [, }1 T; M9 u
  24. =  Selection.Response.Back  Then
    * k. g5 ?3 I; H$ g6 g! \
  25. Return  Nothing
    6 s! @0 F: f' L, \4 C
  26. End  If
    . z7 [; F* W- q2 A8 ^# K7 F
  27. End  Function9 ~1 z$ r" m2 p: F' z/ [0 d
复制代码

- U7 n# D! `2 q& S7 H1 v  \; Q6 L' w! s. V& e' Z2 X4 l1 b' j2 R: H7 I
! U! n1 k3 M8 C6 h/ v
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

320

主题

226

回帖

9784

积分

管理员

PLM之家NX|TC专家

积分
9784
 楼主| 发表于 2013-12-2 20:33:57 | 显示全部楼层
; |! P* y4 O3 Y7 q9 ^4 w4 N 3 i3 K: A5 U2 m7 ~6 l PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能: J: r8 S& P+ ? ( d: s3 ~7 |& ]3 M [flash] " S- u" Z* ?/ G Z [/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 | 显示全部楼层
" M6 |+ P7 q$ T4 L2 x4 v) |6 ^6 t
楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了