请大家帮忙看下看下VB代码

sihanvsyinuo

Private Sub Command1_Click()
7 h4 I: w( t: ?/ f, @' d2 EDim name As String
name = PowerMILL31.ExecuteEx("PRINT VALUE PROJECTNAME")
. `; j% f" r2 T+ i: d, O1 a'   获取项目名称，赋给变量name
PowerMILL31.Execute "RENAME NCPROGRAM 1 " & name & "-1" & " "
6 U1 I- }$ `! U: E' e‘   对NC程序1进行重命名，名称为name-1(如果项目名称为COU1，那么将NC程序1命名为COU1-1)
End Sub
& b. o+ V. c6 ?1 k. q
8 a6 R7 r! C# c+ Z: ?# y# `' u
) ?5 X5 S4 K3 R5 J% D可是为什么不行呢？这条语句有什么问题吗？请大侠指点一下

hh749

PowerMILL31.ExecuteEx("PRINT VALUE PROJECTNAME",name)

3 K% z1 X  A7 Q1 u' T这样才能变量赋值

fangjiupeng

用VB发命令，产生程式时就给出程式名啊！激活一条路径，判别刀具与上一条的刀具是否一样，不一样就产生一个程式，同时给出名称！这是我写外挂的一个思路！还可以用！