建立刀具VB外挂

fhqiwmc

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

zhq5360

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

hh749

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

yishabing

! o* z% C2 o% D( ?3 D
' j; Y* m6 j4 h1# fhqiwmc
看你图片 是你的第一句 语法错误。
" U$ o  D; k! W! L  pm_star:  (0)
这句

fhqiwmc

按确定之后出现的提示

single!

做个宏应该比这好吧

hh749

贴出代码来

fhqiwmc

pm_start (0)
2 G7 N, _  n# F/ i7 aIf Combo1.Text = "平底刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
' L# u/ z' x* A1 K9 Mpm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
  P$ A$ h& Q5 d2 s9 `0 {/ k# Fpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
- E1 I& \" Z( Z1 k: E! |pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
* |1 ~- h4 w( I  M( h4 p0 j4 h: r- `: Lpm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "波头刀" Then
+ Y3 p; E( z, d, ~! u/ n* |pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
" N1 z; M; o! u5 h1 i" upm_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 & "'"
pm_send "TOOL ACCEPT"
, \" J2 t% Q9 `1 jElseIf Combo1.Text = "R角刀" Then
! A5 M# h4 {+ V# opm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
3 _# t6 R, Q$ v9 w3 ipm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
6 x0 m2 u6 t7 x- i; Opm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "钻孔刀" Then
1 D0 w6 k/ [$ C$ ?2 gpm_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 & "'"
pm_send "TOOL ACCEPT"
End If
6 x6 Z8 j5 z% G( |/ r+ u# m( W
这是代码。只是还没有做具体的修改。但IF语语法应该是对的。但不知道为什么。就是出现上面的提示。请版主帮忙解决下。
下面是附件：

hh749

! |/ a: {: P& B/ V3 ~4 C
第1句话
/ K! b6 f0 P4 O3 Wpm_start (0)
改成
) |! e' P# ]7 |0 h8 d" Q' jpml_start (False)            pm还是pml这个要看你类里面是怎么写的,你没把类发上来,我不知道你那里是怎么搞的,0到底改不改成FALSE那也要看你的类是怎么写的,类里面有这样一句话
Public Function pml_start1( _
  start_new As Boolean _
9 G; W% p5 Z6 K$ |* _; W' F4 q) As Boolean
, ^( I9 F$ V+ {  
  On Error Resume Next
( h; `( u5 E3 Y7 _1 C) G  Err.Clear
! N+ M9 K3 b0 ]  pml_cancel_errors
; _- e6 \1 V5 W* t# ?. o  }5 E6 d  pml_start1 = False
6 h1 n* S* \0 f' |+ }. S+ I+ E" y  If Not start_new Then
    Set pml_server = GetObject(, "Pmill.Document")
    If Err.Number Then
      pml_debug_mess "pml_start:- Failed to connect to a running PowerMILL" _
                     & Chr(13) & "will try to create one"
" O7 t2 [/ C. ]+ X      Err.Clear
      pmtemp = False
      
    Else
      pml_start1 = True
3 \/ M& u1 Y4 V- ^& r, O      pmtemp = True
- @; w* V0 V( f+ A9 k  `0 }% o    End If
4 B. J7 `# c& A" C9 a; | End If
& ~5 V  e' w8 w: T) H        
! M4 O3 f7 X+ r) |End Function

. r( s! L; o! C" O! K
' t+ E' q  O8 p4 o这里的返回值是Boolean,所以只能用FALSE或TRUE