建立刀具VB外挂

fhqiwmc

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

zhq5360

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

hh749

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

yishabing

0 K2 o! t5 Q* |! E, I4 ^
3 ~# _* G  L9 y8 k1# fhqiwmc
看你图片 是你的第一句 语法错误。
& V  F' }; z/ K# _/ A# R% Z; }  pm_star:  (0)
这句

fhqiwmc

按确定之后出现的提示

single!

做个宏应该比这好吧

hh749

贴出代码来

fhqiwmc

pm_start (0)
1 G- _% E. I6 W, E- F- BIf Combo1.Text = "平底刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
4 P' Z+ D9 k5 u6 d+ a& Kpm_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 & "'"
% `! `* A. X* Z4 H" o# K& epm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "波头刀" Then
- M! m9 G8 B' q( Z7 ?# k& spm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
) [, K& U( [! npm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
; x: |4 o/ A5 epm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
pm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "R角刀" Then
$ [0 l% G- ]# Q! r0 Opm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
2 I8 @4 _% N/ ?8 O6 {pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
: k; E- q8 o7 e. X; _6 o# h+ j( }% upm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
  N, q+ {4 @) Tpm_send "TOOL ACCEPT"
! D; _" s& m; a! H3 D* WElseIf 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 & "'"
, ?7 Q1 s2 {) \2 cpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
# z; w! K, ^$ z; {1 c) P8 }pm_send "TOOL ACCEPT"
* j' K1 _4 X5 c1 a! LEnd If
9 s1 E6 D0 U, Q" J: a
) J1 c, k/ q. E8 R/ Y2 }3 I5 M6 i这是代码。只是还没有做具体的修改。但IF语语法应该是对的。但不知道为什么。就是出现上面的提示。请版主帮忙解决下。
下面是附件：

hh749

0 l4 @4 B% {* I: c5 }第1句话
! N4 l2 p$ N3 ?; O; l- ^- k8 \pm_start (0)
改成
pml_start (False)            pm还是pml这个要看你类里面是怎么写的,你没把类发上来,我不知道你那里是怎么搞的,0到底改不改成FALSE那也要看你的类是怎么写的,类里面有这样一句话
  U/ ^  W6 [) CPublic Function pml_start1( _
3 m0 [7 \9 `$ b% ^4 n  start_new As Boolean _
4 l- A0 S! q# A! G0 W  S) Z+ z) As Boolean
  
  On Error Resume Next
7 J3 ^6 V% J/ ?* M3 u  Err.Clear
  pml_cancel_errors
  pml_start1 = False
; g8 {& Z5 `+ A  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"
      Err.Clear
6 q, i* [/ N3 N" P7 P4 {7 ]6 V9 m      pmtemp = False
' |. \2 H  W  P! a      
: I" V1 O4 ~2 W; g  @* {    Else
      pml_start1 = True
) ?" b/ U3 n+ B      pmtemp = True
    End If
; \; L. {( m, O- i1 g# s End If
        
/ _9 j- ?: R7 G/ p  lEnd Function
  i- v  A9 J) b& I& ]

这里的返回值是Boolean,所以只能用FALSE或TRUE