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

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

  [复制链接]

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

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

mildcat 楼主

2013-12-2 20:33:45

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能! g* c! u$ i. G, g. W
内容:+ |# K( t7 @4 ^
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改* y# R5 u* h! W( k
目的:
2 e$ b8 ?3 C1 }6 [* T使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。
( G( D/ @+ ~, R0 z4 N! w& u0 x* |, a6 ~6 ^- M/ w

20 完善JA的选择功能

20 完善JA的选择功能

+ r. @  M! B5 ~  h6 h" k! F
( o4 J7 H# k& f0 e& X( i
高清教程见楼下:
( M  Q& V0 h; m- W* y
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject8 e3 T; C9 `: [0 _, u" x
  2. Dim  ui  As  UI  =  ui.GetUI
    5 T* i+ S0 v8 |% o
  3. Dim  message  As  String  =  "Select  face"
    7 o7 Z/ w1 e3 f+ |: y
  4. Dim  title  As  String  =  "Selection"
    , ?" |. i6 T* f. w- {. G
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _2 q0 D  b2 [9 i8 ]5 G
  6. SelectionScope.WorkPart
    - `) w% U9 Z8 `. j8 s: D; C( e  n
  7. Dim  keepHighlighted  As  Boolean  =  True) M6 K0 f' I0 W6 c3 \, T% A
  8. Dim  includeFeatures  As  Boolean  =  True
    ' X/ D7 g  q, `* u! p. r( b5 L
  9. Dim  response  As  Selection.Response
    9 T# A8 _8 z' Y9 a* u2 @3 q& d
  10. Dim  selectionAction  As  Selection.SelectionAction  =
    , [) m% a: d2 W; E, ]( y
  11. Selection.SelectionAction.ClearAndEnableSpecific5 t$ J1 P9 j4 Z1 Q+ \
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple8 S1 Y/ C2 {3 M# _/ k6 {
  13. With  selectionMask_array(0)
    ! x5 a  k7 a1 N! ^: a
  14. .Type  =  UFConstants.UF_face_type
    + F" q6 m$ v7 F! ?( ^+ H
  15. .Subtype  =  0
    ) F+ ?9 W# G& u; |. m# F
  16. .SolidBodySubtype  =  0+ @( L8 f9 M- {8 I
  17. End  With
    - X  a! Q5 V2 O0 [% s9 B; a9 e
  18. Dim  cursor  As  Point3d
    2 ?/ c2 i& b" N
  19. response  =  ui.SelectionManager.SelectObject(message,  _
    1 F$ W# {4 V) T* O
  20. title,  scope,  selectionAction,  _
    ! r& w6 I! X: T  b9 H3 s5 i3 N) m0 \
  21. includeFeatures,  keepHighlighted,  _- p0 \1 S8 W& g
  22. selectionMask_array,  selectedObject,  cursor)
    6 B' ?" W8 f9 s3 |" _; g
  23. If  response  =  Selection.Response.Cancel  Or  response  _
    4 |2 W  o% t1 {; O9 Y" \
  24. =  Selection.Response.Back  Then
    , N. J% k. t( b6 [) M9 W' s
  25. Return  Nothing
    & \% ^- A) ^7 b' ^. R. n
  26. End  If
    1 l6 d& K4 [3 L4 f! `( J) `
  27. End  Function( g- Z; [) S* u6 U( d# I7 Z; G2 f
复制代码
8 K8 A2 P+ W. @1 ?
% [, P3 D& d9 a
0 W% k7 d: V+ s  H7 K
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

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

mildcat 沙发

2013-12-2 20:33:57

. ~! H' V- X. m& e% F & P! z$ A/ y2 i# s8 ]. L' F PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 , L1 W6 V( R5 \- m: b# u7 D8 L5 B6 B* }( \# b" S/ S4 ?8 m( f [flash] . u8 b# a! G7 ?* s [/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

6 B& ?" t  r/ y) 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二次开发专题模块培训报名开始啦

    我知道了