这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
是不是还要声明什么变量呀。
Private Sub Command1_Click()
- x! W0 j5 ]* O0 x; X$ `) K
PowerMILL31.Connect

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

: I9 w- ^. Z0 X/ TPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

+ ~6 v) F4 x7 H8 J0 a8 _" Q! ]0 jPowerMILL31.Disconnect

End Sub
: y: ?3 n- n4 I& {, h' P" V
$ w$ W  n2 U% w1 j* ~3 yPrivate Sub Form_Load()

% U  Q! `$ O5 w" R1 Y0 fPowerMILL31.Connect psStartPowerMILL

% ~# p& r. l: l" s# P0 nEnd Sub
  我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
Private Sub Command1_Click()

* N: j" f0 k3 w% uPowerMILL31.Connect

5 n3 `$ y2 z% G0 P4 W
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect
6 L2 ^/ e+ L' }
$ Z0 M8 g  q/ D# N- UEnd Sub
3 v4 a; F* o' J
Private Sub Form_Load()
) n+ d2 ]7 c" V; r- Q
PowerMILL31.Connect psStartPowerMILL

7 f5 R/ D' ?8 jEnd Sub
) Q# G- f; a' b" Q6 g6 ?
! M* E: `# x' W- [& v; f这样就可以了

dazhi518

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