PLM之家-上海点团信息科技有限公司工业4.0数字化软件官方知识管理平台

查看: 15163|回复: 125

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

  [复制链接]

302

主题

524

帖子

7321

积分

管理员

PLM之家NX|TC专家

Rank: 9Rank: 9Rank: 9

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

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
内容:
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改
目的:
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。

20 完善JA的选择功能

20 完善JA的选择功能


高清教程见楼下:
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
  2. Dim  ui  As  UI  =  ui.GetUI
  3. Dim  message  As  String  =  "Select  face"
  4. Dim  title  As  String  =  "Selection"
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
  6. SelectionScope.WorkPart
  7. Dim  keepHighlighted  As  Boolean  =  True
  8. Dim  includeFeatures  As  Boolean  =  True
  9. Dim  response  As  Selection.Response
  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
  16. .SolidBodySubtype  =  0
  17. End  With
  18. Dim  cursor  As  Point3d
  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  _
  24. =  Selection.Response.Back  Then
  25. Return  Nothing
  26. End  If
  27. End  Function
复制代码



该会员没有填写今日想说内容.
回复

使用道具 举报

302

主题

524

帖子

7321

积分

管理员

PLM之家NX|TC专家

Rank: 9Rank: 9Rank: 9

积分
7321
 楼主| 发表于 2013-12-2 20:33:57 | 显示全部楼层
PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 [flash] [/flash]
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

0

主题

61

帖子

275

积分

中级会员

Rank: 3Rank: 3

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

使用道具 举报

0

主题

7

帖子

18

积分

新手上路

Rank: 1

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

使用道具 举报

0

主题

30

帖子

72

积分

注册会员

Rank: 2

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

使用道具 举报

0

主题

18

帖子

56

积分

注册会员

Rank: 2

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

使用道具 举报

0

主题

28

帖子

94

积分

注册会员

Rank: 2

积分
94
发表于 2014-1-12 09:02:25 | 显示全部楼层

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

使用道具 举报

0

主题

196

帖子

1714

积分

PLM之家NX VIP

Rank: 7Rank: 7Rank: 7

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

使用道具 举报

1

主题

16

帖子

87

积分

注册会员

Rank: 2

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

使用道具 举报

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

本版积分规则


<

QQ|小黑屋|手机版|Archiver|PLM之家-工业软件数字化驱动之家-国产自主软件推进者 ( 沪ICP备13003373-3

GMT+8, 2018-7-17 13:50 , Processed in 0.147606 second(s), 33 queries .

快速回复 返回顶部 返回列表