建立刀具VB外挂

fhqiwmc

我在写用VB写建立刀具外挂出现问题。提示找不到方法或数据成员。请论坛高手帮忙解决。谢谢了。

zhq5360

你的代码中，NUMBER COMMANDFROMUI 是什么意思？里面还个一个是NUMDER的。平刀和球刀是没有刀尖圆角参数的，你的设置中全部用了统一的参数是不行的。

hh749

把黄色的提示部分帖出来,以及所属事件的代码贴出来

yishabing

$ h. t1 r5 o* H# c: P7 n
5 Z. B7 q% d$ `* c& ~7 |. ]5 ^1# fhqiwmc
看你图片 是你的第一句 语法错误。
$ O) U: {, [* G6 J, d  S1 @3 g- _  pm_star:  (0)
; i2 W# y7 ^! w/ a: G: E5 n; G这句

fhqiwmc

按确定之后出现的提示

single!

做个宏应该比这好吧

hh749

贴出代码来

fhqiwmc

pm_start (0)
If Combo1.Text = "平底刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
3 p. {" a  j6 I2 g6 Epm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
# R2 |( T, G. @' C$ Rpm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "波头刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
: [: h3 j) B/ K8 k: \& E+ M5 npm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
0 J7 r* v: L- V8 ppm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
6 C9 C( O6 ]( n- f' v( g% ]pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
2 r7 g. Y9 y4 Tpm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "R角刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
% s+ O2 E- p; A8 {pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
% R$ [7 d+ a  @/ E! ?pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
% i0 x1 v' b# X5 o9 X7 wpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
% J/ D. k, Z$ Bpm_send "TOOL ACCEPT"
, s- t1 w) q. \5 H- [$ qElseIf Combo1.Text = "钻孔刀" Then
1 ~+ \8 s  n+ a9 Zpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
' Y9 Z* b1 _# Hpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
4 n+ P) P6 b6 \" |# Kpm_send "TOOL ACCEPT"
5 T& E& C; p2 l) ~$ Y, r$ J" OEnd If
& @  U3 y' Y, L- J: i3 I2 V
0 L- l9 A: S6 B* U这是代码。只是还没有做具体的修改。但IF语语法应该是对的。但不知道为什么。就是出现上面的提示。请版主帮忙解决下。
8 O, B4 L. c$ A* E6 [5 m下面是附件：

hh749

3 [: f  B' T$ T+ Z: w! _' o
7 F; k8 e' I  o& |+ E  r第1句话
pm_start (0)
改成
pml_start (False)            pm还是pml这个要看你类里面是怎么写的,你没把类发上来,我不知道你那里是怎么搞的,0到底改不改成FALSE那也要看你的类是怎么写的,类里面有这样一句话
: ^9 n& P8 U7 p  j/ GPublic Function pml_start1( _
: _- V$ j, {$ [# r  start_new As Boolean _
5 m8 f2 S8 Z2 }) As Boolean
  
  On Error Resume Next
3 Q  x) {! n* e+ o0 A- W) W6 v  Err.Clear
% E) B6 d. o6 ]2 I* ^  pml_cancel_errors
* k6 v; d; o/ y# w/ E! d, m) ~% u  pml_start1 = False
1 k( v, C2 N: u% j" z& k, u' c  If Not start_new Then
7 O: m$ f8 j3 y! v( K' x9 k    Set pml_server = GetObject(, "Pmill.Document")
    If Err.Number Then
5 {0 Q9 z% R- a) A4 d4 v      pml_debug_mess "pml_start:- Failed to connect to a running PowerMILL" _
* u# @. V* \2 M" x; V                     & Chr(13) & "will try to create one"
      Err.Clear
      pmtemp = False
      
+ H! K# Q. J, m4 m( {- T2 J    Else
      pml_start1 = True
+ b& z6 R& X. w8 {      pmtemp = True
0 K: K+ l8 D0 w# X* `$ z    End If
End If
( S7 n! E5 b- d+ ]. o* M# z        
( I4 J! T$ i  E" M# g6 `End Function

8 F# G- B* G9 [9 N9 V# [4 D. R
这里的返回值是Boolean,所以只能用FALSE或TRUE