QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3639|回复: 8
收起左侧

[求助] 建立刀具VB外挂

[复制链接]
发表于 2010-11-3 10:19:57 | 显示全部楼层 |阅读模式 来自: 中国河北廊坊

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

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

x
我在写用VB写建立刀具外挂出现问题。提示找不到方法或数据成员。请论坛高手帮忙解决。谢谢了。
EI.jpg
KM.jpg
B22.jpg
发表于 2010-11-14 21:08:39 | 显示全部楼层 来自: 中国广东广州
你的代码中,NUMBER COMMANDFROMUI 是什么意思?里面还个一个是NUMDER的。平刀和球刀是没有刀尖圆角参数的,你的设置中全部用了统一的参数是不行的。
发表于 2010-11-16 18:53:07 | 显示全部楼层 来自: 中国浙江杭州
把黄色的提示部分帖出来,以及所属事件的代码贴出来
发表于 2010-11-16 20:09:16 | 显示全部楼层 来自: 中国湖南长沙
本帖最后由 yishabing 于 2010-11-16 20:11 编辑 1 k  e5 y3 q- n" u$ S6 _' I
. n# t. I: a) x: z7 g9 Y
1# fhqiwmc & T* i0 P$ a* V: K, f2 b
看你图片 是你的第一句 语法错误。
. W$ e$ l$ i( j, |2 N  pm_star:  (0)
- |. @, r! T6 `/ ]; Y9 W& R9 Z这句
 楼主| 发表于 2010-11-19 10:30:12 | 显示全部楼层 来自: 中国河北廊坊
按确定之后出现的提示
按确定之后出现画面.jpg
发表于 2010-11-19 10:49:37 | 显示全部楼层 来自: 中国广东江门
做个宏应该比这好吧
发表于 2010-12-2 20:04:55 | 显示全部楼层 来自: 中国浙江杭州
贴出代码来
 楼主| 发表于 2010-12-6 21:52:37 | 显示全部楼层 来自: 中国河北廊坊
pm_start (0)9 e* L$ Z: T7 F* v. n: y# U3 H% j6 i
If Combo1.Text = "平底刀" Then0 T, r7 `. G6 H& A! t6 ?
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "( r: x. C3 F& {
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"2 c% p0 l) {& r* e0 P3 }+ s+ v$ g; k
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"8 [% W  m; ?3 S! U5 j8 i5 P% S7 _
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"( l5 i0 L- d/ I; \# U6 I2 w
pm_send "TOOL ACCEPT"
& v8 j# `; [/ l, M2 N5 ?( ~1 }ElseIf Combo1.Text = "波头刀" Then
  t" \2 |, j  K& g% c( o1 l; Jpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "! y: i0 R7 e* ~
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
- U- j7 D3 a! y) Npm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
, p2 m" s  R1 H. V! O% {+ L, Upm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"5 }  @% R3 I3 U# M8 V! e
pm_send "TOOL ACCEPT", E+ x" ]3 g5 a$ c, O
ElseIf Combo1.Text = "R角刀" Then
% A, [1 _. t- x5 _$ upm_send "CREATE TOOL ; ENDMILL  FORM TOOL "7 O# Z. @7 B# ~& i+ s
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"0 Z% ^- U/ o4 w
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
5 Q$ s: L3 q! S: e6 |( i4 D( hpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
: Q% i. X$ p$ ]5 a- e& |" `: Qpm_send "TOOL ACCEPT"
; j! i  P5 A/ Q0 OElseIf Combo1.Text = "钻孔刀" Then
; I) d2 x5 _7 c: D# V7 o- wpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
( K+ R1 \( L( j/ O% zpm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
  ~7 |/ q  Z# jpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"6 _& U$ ?: M. v( r: N3 a+ T
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"# z1 b' U1 u% W/ I# X- d
pm_send "TOOL ACCEPT"
2 o: o4 _( e% R% AEnd If, x2 w, L* o) R* Z1 H. M& |
2 k, z7 H# q/ K! V" ]5 H
这是代码。只是还没有做具体的修改。但IF语语法应该是对的。但不知道为什么。就是出现上面的提示。请版主帮忙解决下。; S; z9 k  H# N0 @/ r3 [4 I6 \
下面是附件:

刀具.rar

2.35 KB, 下载次数: 15

发表于 2010-12-12 21:47:36 | 显示全部楼层 来自: 中国浙江杭州
本帖最后由 hh749 于 2010-12-12 21:52 编辑
- N# i) D" Q8 ~2 f3 s7 a
  g. B) {. ]4 [2 P* M第1句话
. {0 ^* w2 T& B/ y6 bpm_start (0)
3 y7 @% R( B' B  F6 A# z改成
5 g6 C* r4 X& y8 Ipml_start (False)            pm还是pml这个要看你类里面是怎么写的,你没把类发上来,我不知道你那里是怎么搞的,0到底改不改成FALSE那也要看你的类是怎么写的,类里面有这样一句话9 ~7 f/ {7 p: ~8 P! i; z
Public Function pml_start1( _
$ V% X$ m$ _+ l# r0 ]: d* J  start_new As Boolean _. U  H6 K, @4 {) i2 y4 F/ ^
) As Boolean
, I7 |! ~* T$ S1 v" Z7 L# r9 I6 m  - Z- K) b: X: Z+ k
  On Error Resume Next$ \* Z0 U( L1 k2 v
  Err.Clear
8 K* Y; d: b( n3 D9 x' Q: T  pml_cancel_errors3 H! x' Q4 Y5 g( T
  pml_start1 = False
7 v3 e+ F9 z9 _  If Not start_new Then! m9 v- O9 K0 @
    Set pml_server = GetObject(, "Pmill.Document")( C1 B+ a7 d4 q: X5 B7 s
    If Err.Number Then# T  y1 ?( E' K5 H9 {' ~7 H% A
      pml_debug_mess "pml_start:- Failed to connect to a running PowerMILL" _
% w" K" A1 ?1 E: G                     & Chr(13) & "will try to create one"
" j0 U- \+ R: ]! _- ?8 d* C. J4 U' W      Err.Clear
# P) m  U9 ?" S$ f. L      pmtemp = False  t0 s! ^  U/ w7 p$ k5 S
      4 _' P! l3 r8 }6 c$ X
    Else$ h7 {- ~" @0 c
      pml_start1 = True5 `5 A2 s5 w! [  \9 S
      pmtemp = True
  x$ M' U9 m: O8 r8 ?  r    End If7 J7 A, s1 i5 S. x$ l1 G+ S0 O
End If
$ @* ]8 C# Y1 P0 R" M        . y! _6 P& b& O+ S
End Function
( s+ A/ K# `( z6 V) h( y3 x, L# O5 N. p

  w# H" h1 Y6 _4 F- s( E这里的返回值是Boolean,所以只能用FALSE或TRUE
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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