这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
2 t8 u3 t# y  I8 x  r2 A1 W是不是还要声明什么变量呀。
1 |/ k9 u( h$ k/ U$ WPrivate Sub Command1_Click()
* D2 s- a9 ]1 v0 ]5 R5 B/ M
7 G0 }  L( F6 y* fPowerMILL31.Connect

PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

7 `, T9 G* W& O) q( O8 ]0 ?PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

6 ~! S/ h; P/ E+ K$ [  BPowerMILL31.Disconnect

End Sub

- l; R/ v; H& S6 U" Z2 O; sPrivate Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL

End Sub
. e5 I4 x# f+ M5 p$ K0 s+ W& y   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
7 _, t8 ~+ d( D! f3 B# R1 ZPrivate Sub Command1_Click()
4 P5 V$ T9 v) n4 D0 S+ N9 Y
' T9 i4 a, f8 q  UPowerMILL31.Connect


! ~* k+ J/ X5 s; lPowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
/ ]- r3 o9 S9 X5 }
PowerMILL31.Disconnect
/ M6 [0 b6 C# v: u6 ]5 H
End Sub
, B, |5 ~8 P. G) o
4 I; O, j  y: I. {$ Q8 ^' [Private Sub Form_Load()
& p# z& {# O" H* o% i$ h- I
4 e2 f- i4 Z; l9 I( EPowerMILL31.Connect psStartPowerMILL
2 u4 h* V$ E/ t' J# k0 ?2 E/ H
End Sub
- B8 y- P" A$ m+ g
, v, G# Y% H& E' F这样就可以了

dazhi518

谢谢老大，哈哈。。。。 真是鬼迷心窍了，再也想不通了。