QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
相信这个是大多数人想要的东西,  刀具路径干涉检查源代码.) L5 {* @* V2 i) D1 {
上次传了*.EXE,这个把源代码 晒出来.
/ @, N$ G) ]# y0 dhttp://www.3dportal.cn/discuz/viewthread.php?tid=847426&extra=page%3D1
: p3 R( C6 y' Z1 A* k8 d. x, X% {+ C$ T0 p3 {! r( n, R
这几天找工作,到处碰壁.嘿嘿,觉得就算会PM的二才开发,也挺没什么意思的.
+ T! Q6 D- B3 r" t3 [
3 h. A- v; Z7 G1 P7 K/ V6 F! l  {干脆,把大家都遮遮掩掩的东西亮出来.
; b1 I' k* i" t' g! Q' x 这个是我自己研究出来的,也不是从三维网学来的.
4 y6 {- q; K7 l8 T- l
( n. W5 t. L, C! J我用的PM9.0开发的.
; r' z6 t  C7 p+ K7 n6 v1 z/ `, x
& B; B* g- a7 r9 b+ l% v+ B1 v, T* K  d5 F
Private Sub Command7_Click()
3 c+ Q0 _7 V0 {" g) o9 a$ t, _5 s. `3 p4 n' S4 }
pm.ExecuteEx ("DIALOGS MESSAGE OFF ")
1 |# a3 Y, c8 E+ ]4 r0 e, spm.ExecuteEx ("DIALOGS ERROR OFF")7 p1 x8 q, Y& w: r; X( B' i( s
pm.Execute ("EDIT PREFERENCE SELRAISEFORM NO")+ h1 J5 z. H- a$ D7 j# n
Dim Ntl As Integer
- s; f1 }/ s( aDim Ntool As Integer
: R; W0 m% x1 u1 z# Y0 vDim NameTool As String
  W/ a% k5 F8 C0 Y" _1 w  L) \: ?# i1 j0 b! \& R0 O& H. G' t/ a
Ntl = GetToolpaths.Count  '获取刀具路径的数目GetToolpaths 要利用function函数功能,
: s) j2 `& C# c) }: v0 P                                          '只能说这么多了,说多了,前辈们会对我有意见.可能是他们说的行业的潜规则$ `, B  q  v  e  s5 a7 {
                                          '其实,用VB进行开发PM 挺简单的,象要获取刀具路径(名称,所用的刀具,参数),1 ^6 w1 [$ _: n  c" n$ Q- o5 G
                                          ' 模型(名称, 大小),刀具(参数,名称)程式,参考线,边界等等,
$ {2 P$ m1 c) `/ x& l  z. R                                          '都不外乎三种方式(我只发现三种方式),
! a8 m' m5 t2 w! l- b+ X                                          '一通百通.要说难的话,就是怎样去实现你自己想要的结果出来,也就是逻辑.看9 J5 C3 i& L$ e. \- N5 }( h
                                          '你的逻辑跟VB的规则冲突不.我没学过什么VB  就看了两天书.2 M) e5 k3 o* r0 ^6 `
Nto,ol = 0
3 G% S, a/ G( b; t) _% F# y
1 ?7 l# T- b; ~4 U' o$ ^. H* v, HIf Ntl = 0 Then
' ^9 s8 o8 c0 b8 Q, u    MsgBox "无刀具路径,不能进行干涉检查"
+ a$ v' Z: A3 G; ~End If
: A% o' c- n( c7 b# t7 |6 _While Ntl <> Ntool, ~% R8 N( S  |6 Y4 b2 M9 T4 x* s
    Ntool = Ntool + 12 n7 U! @$ z+ {5 M* U  e' E
           '执行程序  批次路径干涉检查
5 J7 m. i  T4 k0 k+ [! P8 G    NameTool = GetToolpaths.Item(Ntool)$ K" T+ a: ?7 ~
    3 b: ~% g2 }, t: T. C* e# a# }
    pm.ExecuteEx "ACTIVATE TOOLPATH " & NameTool5 [7 B3 K* g* {: Y! c; H9 I& B1 i
    pm.ExecuteEx ("EDIT COLLISION TYPE COLLISION")
  c" ?, m! @, e( v0 A& P7 n    pm.ExecuteEx ("EDIT COLLISION STOCKMODEL_CHECK N"). U0 e( U- Z% `7 N
    pm.ExecuteEx ("EDIT COLLISION SCOPE ALL"); J# e+ R4 z% k- X+ q" W3 G/ B' d
    pm.ExecuteEx ("EDIT COLLISION APPLY")
+ H8 u0 W0 ~$ w5 w& A  p# ^$ d! u8 F   
6 o. b. I0 T  c           . q, W9 X4 i5 ?8 t1 _/ ]1 ]% A
           
! S1 K. E/ `! P           '两个信息框间用这个命令关闭窗口,这两个很重要,也就是能解决上次我说的,那两个报警,不管是这两个对话框6 K( M# R- T/ w0 [' o. K5 W
            '好象POWERMILL中所有的报警或信息类的对话框都可以.
' H0 |* U1 U  X  D2 }; N8 k    pm.ExecuteEx ("DIALOGS MESSAGE off ")
/ [( K+ o9 ~# ?    pm.ExecuteEx ("DIALOGS ERROR OFF ")
* P  r' P4 s/ A5 ^; \; Q    ! b) ^: V1 k# Z5 [* q8 I
    pm.ExecuteEx ("EDIT COLLISION TYPE GOUGE")- V/ Q$ \3 O5 {( a
    pm.ExecuteEx ("EDIT COLLISION APPLY")7 b4 H5 U. w- s9 k( j
   6 m) p; F4 \; Y8 r  r0 q; h
Wend
% X4 i9 p! {) A/ g: \    pm.Execute ("EDIT PREFERENCE SELRAISEFORM YES")' W2 ?* h4 A/ T+ T! t, ^+ v% \* \
    pm.Execute ("DIALOGS MESSAGE On")
9 ?" R- d8 `7 [3 [" x  |1 Z4 @    pm.ExecuteEx ("DIALOGS ERROR on")
0 R. Q/ t$ W# L
0 E- B% }+ E) H: B& v  J( O    * e' p4 ?1 x% c4 R! X& }# k. C
End Sub, \$ v9 [# b% C6 [  `  b5 N4 y% H

" |" c; [8 J" Q2 e3 h; M, c& z! ^- z8 l2 }8 `
Private Sub Form_Load()
0 h! B% B4 p. h' L0 ]: gpm.Connect
" ?2 @2 }# H# K* q" o
! k( A" T- X/ P, QEnd Sub% k% u/ e2 K% g

: ]8 z, c% r, q/ l5 o7 n* A& }* @, _8 G  y- ^$ I; x& p
我记得以前我在三维网上看到过,有个说PM类的贴子,现在找去没看到了
8 a% g+ L  A' a& a0 N- R0 I有哪位兄弟找到了,能不能留个言.万分感谢

评分

参与人数 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
0 v- p; F+ P2 R% c/ ^楼主是做二次开发的吗?

. E2 `, x2 Z" m" w8 o! [9 q5 ?& ~# _
- z, v7 ]0 c+ U$ f! [
算是吧,但不是专业的弄这个的
发表于 2009-12-27 20:23:31 | 显示全部楼层 来自: 中国四川成都

你也是个好人!~

你也是个好人!~9 m. X! N0 I# S1 E( \- ~0 s7 [
天下还是好人多!~
发表于 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 )

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