查看: 41437|回复: 125

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

 火... [复制链接]

320

主题

226

回帖

9784

积分

管理员

PLM之家NX|TC专家

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

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

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

×
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能; }; ]6 ]  Q2 @/ P  s0 Z/ Q) Y
内容:: S# U$ k2 g/ O  a
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改# z# z2 }' ~; `4 r, E5 P$ Z: Z# D
目的:
! z5 B2 s, S" z* T- ?使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。
- \9 s6 c: S+ c; a
; C* R, h! [2 ?& h" |

20 完善JA的选择功能

20 完善JA的选择功能

  `; U& p, v: w, c9 k6 j, M
3 b0 r9 n1 h; `. j. A
高清教程见楼下:; {2 ~# a1 `4 {, F
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
    # v9 ^$ K7 O( @$ l1 s
  2. Dim  ui  As  UI  =  ui.GetUI, L5 N, g1 D/ g* K2 `
  3. Dim  message  As  String  =  "Select  face"
    , C  ?  }- d% P/ v
  4. Dim  title  As  String  =  "Selection". n' F" b" ~# e& D
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _: E# L+ a0 y( [, L
  6. SelectionScope.WorkPart& ^6 q' J# W/ b  D% j
  7. Dim  keepHighlighted  As  Boolean  =  True
    5 g2 L. h* c9 ~
  8. Dim  includeFeatures  As  Boolean  =  True: @+ Q, L5 G4 |8 x: U
  9. Dim  response  As  Selection.Response
    * \6 B( W+ \  u. f) B' p) X  c3 G* M
  10. Dim  selectionAction  As  Selection.SelectionAction  =
    - [( G0 o/ q4 [. g$ n9 r4 _
  11. Selection.SelectionAction.ClearAndEnableSpecific4 U8 X) o& n- X& o. d
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    / \8 `9 M3 Q' r/ }; A# R$ y
  13. With  selectionMask_array(0)
    " P- w# [; D4 _" P4 |' L3 ?
  14. .Type  =  UFConstants.UF_face_type
    # b7 M; B6 W+ S4 s5 `, [
  15. .Subtype  =  03 S7 M6 n0 D$ f9 h) D# \
  16. .SolidBodySubtype  =  07 \7 [, s' r$ m  w; h+ W: w
  17. End  With
    : k1 W4 \; d1 {5 r. @: E) _
  18. Dim  cursor  As  Point3d
    , u6 I# ?8 E' t$ z+ Q
  19. response  =  ui.SelectionManager.SelectObject(message,  _9 ~  {, C8 h# t
  20. title,  scope,  selectionAction,  _
    ! u3 A( L  {+ P) ~
  21. includeFeatures,  keepHighlighted,  _+ O9 h7 H/ h. q+ w! T0 B! v) X
  22. selectionMask_array,  selectedObject,  cursor)
    ! z4 D# y2 }4 @" T) c0 ^* m
  23. If  response  =  Selection.Response.Cancel  Or  response  _5 h# `# }2 G* l6 P1 }; }/ m
  24. =  Selection.Response.Back  Then( }% k: `- d" @$ F! i/ `
  25. Return  Nothing
    5 R+ E9 J9 u! I- i/ H1 m
  26. End  If
    3 X3 h. R6 ^  P: X, o
  27. End  Function
    + ]# ?' X) v8 v3 {; Q6 U/ O* s, b
复制代码

  R4 M) W) y! L- K2 |$ R
' p6 w% [9 H1 h+ k, C! ]: b
  e( K6 f; b; v9 s5 H' N
该会员没有填写今日想说内容.
回复

使用道具 举报

320

主题

226

回帖

9784

积分

管理员

PLM之家NX|TC专家

积分
9784
 楼主| 发表于 2013-12-2 20:33:57 | 显示全部楼层
. `8 ]5 \* L: c+ D) p b& u. h) [ 5 ]0 N1 S* ` q+ G% s8 Y7 n- _, g PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能0 g7 K5 O* ~" f! w; m / I X5 F4 S6 J* T[flash] + y" `: V; i2 _7 C3 j, w [/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 | 显示全部楼层

- Y) i. s: e  B8 Z9 _* J0 S楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接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
回复 支持 反对

使用道具 举报

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

本版积分规则

在本版发帖
关注公众号
QQ客服返回顶部