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

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

  [复制链接]

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

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

mildcat 楼主

2013-12-2 20:33:45

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能, p4 E4 F2 v$ m! e; M
内容:8 X. K9 O  }, U8 A
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改, f, Y# }; k0 M2 D5 |& f6 P
目的:) v( j0 A# O% s8 k) E) x# u9 E, m
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。7 E/ {, E: ^0 K

  H$ s1 D& p. q9 k

20 完善JA的选择功能

20 完善JA的选择功能

: a! l, L2 {' Q
- B7 b6 x1 C' U) r8 t) v) v
高清教程见楼下:0 F" ^) @7 M! o0 P' H
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
    8 j* R; V) d+ |6 x7 h3 N3 G
  2. Dim  ui  As  UI  =  ui.GetUI
    7 M2 i' N2 Q1 F1 H
  3. Dim  message  As  String  =  "Select  face"  M& k$ h. \' a6 A% _
  4. Dim  title  As  String  =  "Selection"+ {- _- G( Q7 s& G% U
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
    8 E% \5 R! Z, a5 g/ D+ e
  6. SelectionScope.WorkPart
    9 P  [) Z8 V, c' B' t  |
  7. Dim  keepHighlighted  As  Boolean  =  True
    9 R1 W2 z# K) [3 W
  8. Dim  includeFeatures  As  Boolean  =  True% n5 d6 s) @- q7 A' a
  9. Dim  response  As  Selection.Response* p. s# c2 d  r% h2 M9 h
  10. Dim  selectionAction  As  Selection.SelectionAction  =
    , I; B% b0 K; {8 @1 G
  11. Selection.SelectionAction.ClearAndEnableSpecific
    : b& t% Z2 ~- s( q- T8 R8 v5 A
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple" D- R' @3 _1 h
  13. With  selectionMask_array(0)
    4 C' D) H3 I8 y- U: i- c
  14. .Type  =  UFConstants.UF_face_type
    6 t6 Z+ J# x* U% w  N1 t7 F
  15. .Subtype  =  0
    , T* b! M: v8 l. g9 W
  16. .SolidBodySubtype  =  0
    ( ?% I/ \' n2 |+ p/ m$ G
  17. End  With9 \4 l# m! W3 |4 X8 n6 o
  18. Dim  cursor  As  Point3d& q, m. u) T; T! o7 x0 A) i4 y
  19. response  =  ui.SelectionManager.SelectObject(message,  _* w6 R  f4 o+ B0 V
  20. title,  scope,  selectionAction,  _
      G! [. J4 M6 Y5 q- h
  21. includeFeatures,  keepHighlighted,  _
    7 b& c* Q+ M2 S0 a! _
  22. selectionMask_array,  selectedObject,  cursor)& F& O' U; E2 ~$ N1 s" R
  23. If  response  =  Selection.Response.Cancel  Or  response  _' ^2 V1 w  J) R0 L( n5 D9 U6 r
  24. =  Selection.Response.Back  Then
    " D' d2 r/ T+ l# |5 F  \
  25. Return  Nothing
    . z* @8 d3 x+ z2 I% H
  26. End  If
    4 L8 u+ W& i$ @! n/ u
  27. End  Function
    & K5 \8 k: i) K& W9 \
复制代码
' q4 E& }4 R+ W3 S; k3 K6 p

% E; H2 z/ i) [/ Y4 ^( M
9 o1 O( E2 S: K
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

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

mildcat 沙发

2013-12-2 20:33:57

% u h8 M- E! Q9 a. T+ I9 E, {- s3 D7 e3 x PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能! ]; i Q$ M" Q& N8 o; z5 ~ % x5 p# _. L% u[flash] - `& e9 S% y( T [/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

, L% L, r- K/ {' A  a
楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了