建立刀具VB外挂

fhqiwmc

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

zhq5360

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

hh749

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

yishabing

1# fhqiwmc
3 t: O2 A& x( e* p% H看你图片 是你的第一句 语法错误。
  pm_star:  (0)
5 \+ u, m0 e+ k这句

fhqiwmc

按确定之后出现的提示

single!

做个宏应该比这好吧

hh749

贴出代码来

fhqiwmc

pm_start (0)
6 @5 q0 q. o- S# X  j; I/ @If Combo1.Text = "平底刀" Then
/ k6 [$ A! }+ t* n5 [9 spm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
- s& b- {$ e, F4 Y1 L$ jpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
$ E$ M3 X$ R6 \+ fpm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "波头刀" Then
6 p' C% O2 t4 a8 z- D8 R+ P6 upm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
- u3 h* ^3 j& i& ypm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
: S, y5 P5 i" v* H7 C  o# Bpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
6 w& m( Y) I2 |pm_send "TOOL ACCEPT"
# [- L& _+ ~1 i! j+ f6 h0 wElseIf Combo1.Text = "R角刀" Then
) T. Z- ~# b( apm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
, T" h* q. I& W+ t/ @4 Apm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
pm_send "TOOL ACCEPT"
6 [5 d7 P0 S9 f$ X( o* DElseIf Combo1.Text = "钻孔刀" Then
# [* z8 u3 l6 Q  X; y6 z5 \pm_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
- V7 x) N! k. `2 x9 M
( s, k( p% _) C! Y这是代码。只是还没有做具体的修改。但IF语语法应该是对的。但不知道为什么。就是出现上面的提示。请版主帮忙解决下。
# E* q/ q4 Z& g9 g: p下面是附件：

hh749

, X0 I$ L# ?: d8 l
# p+ P4 o0 b  H7 \6 T, `' [: w4 f( u第1句话
$ e) T0 h/ |  s0 S6 y2 Xpm_start (0)
- G/ j: y5 ]5 _改成
pml_start (False)            pm还是pml这个要看你类里面是怎么写的,你没把类发上来,我不知道你那里是怎么搞的,0到底改不改成FALSE那也要看你的类是怎么写的,类里面有这样一句话
2 H; H0 `$ q0 i( xPublic Function pml_start1( _
) _8 z; _' T: p. Q8 r  start_new As Boolean _
; x4 n% g8 x+ r! P) g9 j/ o) As Boolean
  
2 }) j% D7 y3 A, m. L  On Error Resume Next
4 h3 t4 v' P! a; f& t: @3 k/ C  Err.Clear
  pml_cancel_errors
  pml_start1 = False
; j. o" e( l# T" @( |- D9 s  If Not start_new Then
- ^% |" D. K! z$ z; d. J8 E    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"
& n' N2 w  X: O+ w2 V4 k6 A      Err.Clear
      pmtemp = False
      
    Else
      pml_start1 = True
      pmtemp = True
6 Y& f  |: w% N  K    End If
End If
' p8 g/ S7 g( [- o        
9 G/ L1 ~+ M9 I) K7 s6 X7 oEnd Function

. l; V+ ?/ i* _( R$ G: x
这里的返回值是Boolean,所以只能用FALSE或TRUE