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

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

  [复制链接]

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

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

mildcat 楼主

2013-12-2 20:33:45

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能+ y; W2 r. g. b/ C; G& [
内容:
/ {6 ]# c2 u( N4 C8 V默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改6 m. g% v* [4 U) u
目的:) ], Q# U' D/ Y( }; w2 d1 U( T( P
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。
' T% w4 A: F- F( B& F( u6 R! Z5 a$ [

20 完善JA的选择功能

20 完善JA的选择功能

- P& Z- g" a0 T1 f. r

' \5 u. r# Y, S7 `& o5 ?5 e: c高清教程见楼下:
( j' C& A; j# f
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
    8 S3 W/ n& e) B9 E% m" Q/ N
  2. Dim  ui  As  UI  =  ui.GetUI
    % t' v# C9 O  a5 L- ~# E
  3. Dim  message  As  String  =  "Select  face"1 L! \2 m3 ]5 g7 ?1 n3 e- U
  4. Dim  title  As  String  =  "Selection"& r2 e) V+ i. |7 ?3 t6 i
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
    ' G1 Y, P2 ?: ]+ c! ~
  6. SelectionScope.WorkPart
    : `: f. P" l( u: `9 e. C# Y
  7. Dim  keepHighlighted  As  Boolean  =  True
    ! V3 @, Z( _2 m' L8 ?9 U8 ]
  8. Dim  includeFeatures  As  Boolean  =  True5 }( A+ X  |6 c# L2 @5 P9 G5 u: O, E
  9. Dim  response  As  Selection.Response
    1 @, R" U+ h' h7 b! m
  10. Dim  selectionAction  As  Selection.SelectionAction  =
    7 m/ A  o2 ]. ~* U  H: h
  11. Selection.SelectionAction.ClearAndEnableSpecific
    9 X3 K) J! s: ?/ U/ F
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    0 I5 ?9 [9 T' h  m& z& Y5 K3 X
  13. With  selectionMask_array(0)
    $ r3 D, V6 F& s5 h) t( S3 C
  14. .Type  =  UFConstants.UF_face_type" K- _" {- u; p+ m7 q
  15. .Subtype  =  0
    3 Z% y+ [0 L& ^+ d
  16. .SolidBodySubtype  =  0
    2 o6 }7 C7 s! ^( P* m
  17. End  With1 F! s- Y$ r3 e3 a0 _, P: Y& u
  18. Dim  cursor  As  Point3d+ |# {. n* k) Q0 d' D
  19. response  =  ui.SelectionManager.SelectObject(message,  _  K) i9 {, X: z5 P" f! s8 ~
  20. title,  scope,  selectionAction,  _6 Z; Z  h6 `+ Z5 E% v
  21. includeFeatures,  keepHighlighted,  _& v- `, n: M0 g0 v9 {: l
  22. selectionMask_array,  selectedObject,  cursor)
    9 B" ^: c8 S" T) z
  23. If  response  =  Selection.Response.Cancel  Or  response  _& x* ^6 @: Y  a2 J1 r' U+ i# Q" ~- m7 }
  24. =  Selection.Response.Back  Then  B) \. u& F$ u" Y9 M+ `$ ]: P
  25. Return  Nothing
    7 u. h! p$ q: K2 {1 k
  26. End  If. F2 y9 ?. j' h( i, M- c% {" p
  27. End  Function
    & ?* [! ~( g* r0 {) n3 [
复制代码

' H! ~+ k! c5 d* `6 R- E, t  M+ K" K  b( W& o1 D
2 X* R* f, X7 R$ L% s5 M6 U) e
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

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

mildcat 沙发

2013-12-2 20:33:57

4 g, v( x" Q/ g% \/ Y+ {7 \ 5 T( n8 a* P# y: s n PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 + F3 ?/ c1 N& d w# [0 r! p7 d+ q: b" _$ a; D- ~4 t" P5 Z! c4 } [flash] . r% k. J7 n7 X) r [/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

' @" J3 S3 O& z" |
楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了