QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3841|回复: 10
收起左侧

[原创] 这个是大多数人想要的东西, 刀具路径干涉检查源代码

[复制链接]
发表于 2009-12-26 11:05:10 | 显示全部楼层 |阅读模式 来自: 中国广东深圳

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
相信这个是大多数人想要的东西,  刀具路径干涉检查源代码.
2 ~. k2 I: I" C% W! ]& [上次传了*.EXE,这个把源代码 晒出来.
4 w, R/ z& D/ f7 Y! thttp://www.3dportal.cn/discuz/viewthread.php?tid=847426&extra=page%3D1, E; r# C4 W% a; V
7 }7 w8 m: ?  ?
这几天找工作,到处碰壁.嘿嘿,觉得就算会PM的二才开发,也挺没什么意思的.& E/ a9 w8 B1 A0 x1 b* _  e
, q1 x2 r: h2 r3 d
干脆,把大家都遮遮掩掩的东西亮出来.
2 \6 F  v* l. i8 K. ]: O 这个是我自己研究出来的,也不是从三维网学来的.
' @8 m8 u" l) N4 x2 s8 w* N) ~" O! A% ^1 q: D
我用的PM9.0开发的.
0 T: A) e" i1 S% }( T* r/ C) ^2 z* r4 Z3 k! W$ m0 Z* Q2 J% \
# M" g7 c. j; w& \0 N
Private Sub Command7_Click()
9 A7 y$ A& Y* v( J& {( L* Z" `" d9 q( x' T) N& L4 i$ _! R% B
pm.ExecuteEx ("DIALOGS MESSAGE OFF ")
7 |9 R) {: v1 j- O. U0 ]pm.ExecuteEx ("DIALOGS ERROR OFF")1 k5 b- L, V) [3 `5 Y9 o! K
pm.Execute ("EDIT PREFERENCE SELRAISEFORM NO")
2 F! f4 E0 Y" r. b, @) IDim Ntl As Integer' H$ @# E& G3 Y/ L
Dim Ntool As Integer
: _1 c7 h6 I$ \# W. Z  rDim NameTool As String
' T) Z  U- r: U3 F6 o6 `# C: V! h0 v; E& n, `/ ?& ^
Ntl = GetToolpaths.Count  '获取刀具路径的数目GetToolpaths 要利用function函数功能,2 f# {" \4 @5 ?* Z
                                          '只能说这么多了,说多了,前辈们会对我有意见.可能是他们说的行业的潜规则
# ?% l" z8 [$ i; q+ {% l8 w                                          '其实,用VB进行开发PM 挺简单的,象要获取刀具路径(名称,所用的刀具,参数),
5 Y2 G/ ~, q" s9 S; W  _$ y                                          ' 模型(名称, 大小),刀具(参数,名称)程式,参考线,边界等等,( l6 K) P4 O# B- e1 E& ~4 r
                                          '都不外乎三种方式(我只发现三种方式),
* G8 @+ ~/ B  q- m                                          '一通百通.要说难的话,就是怎样去实现你自己想要的结果出来,也就是逻辑.看8 C$ D# r/ C* {5 Q- c4 e( ?
                                          '你的逻辑跟VB的规则冲突不.我没学过什么VB  就看了两天书.0 I4 R( z1 Z$ ^! |4 n: E# f4 z4 o
Nto,ol = 0
$ U/ w6 F. X4 f, }; @  ~
7 c7 @8 @, L# |) G7 b+ G5 F, E! z9 ^If Ntl = 0 Then/ n- U0 D% `9 m6 C
    MsgBox "无刀具路径,不能进行干涉检查"
: j' a# l5 k4 u) E) {1 W7 \( U3 j+ _End If
$ {1 i3 W$ j, h5 F% T$ PWhile Ntl <> Ntool
. a7 B* D# [) [7 a    Ntool = Ntool + 1
! U9 ~( r: ^. ^; o  ~' u5 b: _           '执行程序  批次路径干涉检查
; R" W1 f1 ^: o6 N' r    NameTool = GetToolpaths.Item(Ntool)  W9 o" g$ T2 U/ l
   
, }& P% v6 T$ U0 e6 u2 J    pm.ExecuteEx "ACTIVATE TOOLPATH " & NameTool
8 y. l0 B$ q4 q- H2 A    pm.ExecuteEx ("EDIT COLLISION TYPE COLLISION")
. E. \- N' Y0 u. ^' n    pm.ExecuteEx ("EDIT COLLISION STOCKMODEL_CHECK N")8 d- b; Z$ Q' p8 _
    pm.ExecuteEx ("EDIT COLLISION SCOPE ALL")
$ d6 n. x, H7 u+ V' w    pm.ExecuteEx ("EDIT COLLISION APPLY")
+ h, ~& Z6 |, M3 a    ) `! N+ D: X6 o3 e- {' w+ K0 ]
           : z' T5 @' s: \) Y# D" A+ ^
           
2 \/ j5 o2 u; O" S1 K           '两个信息框间用这个命令关闭窗口,这两个很重要,也就是能解决上次我说的,那两个报警,不管是这两个对话框
- n% o2 c2 j; n: H: W8 @            '好象POWERMILL中所有的报警或信息类的对话框都可以.
+ H  v  g2 `) L' }  X    pm.ExecuteEx ("DIALOGS MESSAGE off ")
2 Q6 b0 F: U3 ?5 a7 |$ O& [; K* i    pm.ExecuteEx ("DIALOGS ERROR OFF ")
  F6 Q8 R5 }7 q' j) f; c% g. `    0 w* q, Y! q( F8 J/ d8 v( Y" e
    pm.ExecuteEx ("EDIT COLLISION TYPE GOUGE")
2 j3 H& h  f0 v& v0 y) o! }5 A    pm.ExecuteEx ("EDIT COLLISION APPLY")& g! r/ j& _4 X* D/ v% e
   
! ]( E6 E0 K5 N3 L, c; f$ sWend
, L9 a$ w6 Q4 x0 ~/ v    pm.Execute ("EDIT PREFERENCE SELRAISEFORM YES")
% s* l" N4 k  V1 L" ?    pm.Execute ("DIALOGS MESSAGE On")
/ }% |+ u- l9 I* X2 _    pm.ExecuteEx ("DIALOGS ERROR on")
$ Y6 F  o* a" p2 f  n( t2 q2 G( G, k, \( v9 W" O3 T
   
& V% G- ~, @* V0 A5 \, u" QEnd Sub
- V2 b& Q0 u, H2 S
0 N. }6 y* y% i; C, F/ f) i# R: |4 A6 U! z# D
Private Sub Form_Load()8 i1 C- {$ H6 \5 T# F
pm.Connect& z+ D- I" _3 P3 ^- [5 V

8 Z0 r0 z& M0 P7 [End Sub
6 L. a( x! g8 I) e& J  w& a1 r8 ^) _7 S& ?5 a2 F* n
0 S) u! C0 Y: g" z$ x( Y
我记得以前我在三维网上看到过,有个说PM类的贴子,现在找去没看到了
' q$ ?) u  z; U$ g; H有哪位兄弟找到了,能不能留个言.万分感谢

评分

参与人数 1三维币 +10 收起 理由
jimmycnc + 10 好资料,感谢您对论坛的支持!

查看全部评分

发表于 2009-12-26 12:27:08 | 显示全部楼层 来自: 中国浙江杭州
特别的顶一下!好东西!谢谢分享!
发表于 2009-12-27 17:07:33 | 显示全部楼层 来自: 中国广东惠州
谢谢楼主提供源码分享!
发表于 2009-12-27 18:58:55 | 显示全部楼层 来自: 中国重庆
楼主是做二次开发的吗?
 楼主| 发表于 2009-12-27 19:24:27 | 显示全部楼层 来自: 中国广东深圳
原帖由 YZHZTL 于 2009-12-27 18:58 发表 http://www.3dportal.cn/discuz/images/common/back.gif
, K* X; M0 X( r2 c' R) I楼主是做二次开发的吗?
- @  O  M8 c' [5 y0 I

3 Z: |$ h- v% c; A8 r, q  z/ E4 f8 }- U2 R& ~
算是吧,但不是专业的弄这个的
发表于 2009-12-27 20:23:31 | 显示全部楼层 来自: 中国四川成都

你也是个好人!~

你也是个好人!~
4 l3 @  O7 O* I$ j" A天下还是好人多!~
发表于 2010-6-27 18:58:29 | 显示全部楼层 来自: 中国河南鹤壁
向你致敬!
发表于 2010-6-27 19:12:04 | 显示全部楼层 来自: 中国河南鹤壁
向你致敬!
发表于 2010-6-27 22:21:01 | 显示全部楼层 来自: 中国广东深圳
呵呵,会二次开发跟写刀路没多大关系吧,人家只看程序写的怎么样,还有你要求的待遇有关.
发表于 2010-7-8 15:58:35 | 显示全部楼层 来自: 中国吉林长春
现在工作好找,但是好单位不多
发表于 2010-7-24 09:06:07 | 显示全部楼层 来自: 中国广东汕尾
好东西,学习了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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