建立刀具VB外挂

fhqiwmc

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

zhq5360

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

hh749

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

yishabing

; k: v8 R& u* f3 j7 h# Q; ?9 ]1# fhqiwmc
看你图片 是你的第一句 语法错误。
  pm_star:  (0)
! G3 o2 V% a$ q) @- j2 R这句

fhqiwmc

按确定之后出现的提示

single!

做个宏应该比这好吧

hh749

贴出代码来

fhqiwmc

pm_start (0)
If Combo1.Text = "平底刀" Then
' y+ F3 n5 g5 o" x/ d6 Xpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
. `/ K4 u1 Z% L$ l2 ?pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
0 L% |% g. t4 j$ npm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
3 r' G5 J1 V* O6 ]  n9 D( ipm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "波头刀" Then
: N2 E* W# w- b7 g# b2 A' J- v. Cpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
. `% Y/ P7 s3 |pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
pm_send "TOOL ACCEPT"
. ~) o9 ^+ d5 @' `  ]  q3 d+ k( v1 dElseIf Combo1.Text = "R角刀" Then
. `! g) E: d  P' l' Wpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
. X5 k! ?& R: Y5 f1 D4 s9 @pm_send "TOOL ACCEPT"
# T' e6 ^/ z7 w" N" `ElseIf Combo1.Text = "钻孔刀" Then
+ r, R+ A1 p8 W/ ?6 y' tpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
: V7 s% c+ T$ rpm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
" q/ ]7 Z+ Q0 I" S. O& I+ v4 m0 Qpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
/ Q/ z* h7 ]  q1 L1 ^pm_send "TOOL ACCEPT"
  q1 Y' H2 _- i# z* TEnd If
% F4 v3 `* n( w, ]
这是代码。只是还没有做具体的修改。但IF语语法应该是对的。但不知道为什么。就是出现上面的提示。请版主帮忙解决下。
0 W7 u# ~& N3 N下面是附件：

hh749

+ g7 ], P& u! ~& I; f: z% x
第1句话
! u% c6 a+ q! }4 epm_start (0)
; Y  c" D5 l/ O改成
7 `: g' p- E* ?3 Rpml_start (False)            pm还是pml这个要看你类里面是怎么写的,你没把类发上来,我不知道你那里是怎么搞的,0到底改不改成FALSE那也要看你的类是怎么写的,类里面有这样一句话
5 C1 i! X: _& i+ N# w6 CPublic Function pml_start1( _
0 J( B, ^1 F/ }* ^- d  start_new As Boolean _
/ u3 @% F7 s- a2 Z) As Boolean
2 G# r8 L6 o% V# t  
8 O( o3 @# Q( v9 J9 H0 {1 w  On Error Resume Next
  Err.Clear
& o& S3 e  {7 u7 V* `  pml_cancel_errors
; n2 `4 o6 C4 C  pml_start1 = False
" {2 H' H- O8 j7 }+ @, A  If Not start_new Then
; a* {4 z5 B4 M4 {    Set pml_server = GetObject(, "Pmill.Document")
    If Err.Number Then
8 c# O: L3 ~0 E' b* W4 K      pml_debug_mess "pml_start:- Failed to connect to a running PowerMILL" _
8 J) q6 ]' W' E! e                     & Chr(13) & "will try to create one"
2 J& b3 i9 W; [      Err.Clear
7 i$ u# j: F9 z4 s" ~      pmtemp = False
      
1 J" F3 `) P0 F    Else
      pml_start1 = True
+ I* t! c4 l1 d5 |9 u1 A      pmtemp = True
    End If
# o5 @6 s; R) K& M. f. J. G" W End If
6 x" K. [0 z- c: k7 C        
End Function

$ O( W+ Q: n' u+ W& w; _
$ S9 B8 _. M- m7 z, F这里的返回值是Boolean,所以只能用FALSE或TRUE