这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
是不是还要声明什么变量呀。
Private Sub Command1_Click()
+ D5 q& h' ^. f1 a* L) M
PowerMILL31.Connect

7 O" P- ~* X; l3 n1 M* gPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")
; d& C; ?7 J6 b' w, B. o/ k
" Y; q/ s7 ]5 @$ H" ]* JPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

* [0 S  p9 F' h0 V0 G0 s8 rPowerMILL31.Disconnect

) k; P( A" c7 T8 D9 eEnd Sub
" \9 m6 l. W  R6 a' F+ x' N4 W
Private Sub Form_Load()
) w2 ?8 p, _7 A: Z# O- c: j
* O& ^5 h, r6 |2 g8 YPowerMILL31.Connect psStartPowerMILL

3 A: ~% c' O: E. ~/ W. YEnd Sub
* h% }6 B: P+ H9 }6 R2 u# O   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
) I8 ~/ m) B+ I7 rPrivate Sub Command1_Click()
! s9 R* k$ C; H3 y( W
5 w4 h5 y' ?- t' r! t2 v3 @PowerMILL31.Connect
0 B- ?2 l( O$ h+ X$ I2 z" N3 Y
! H- K! k: h# m$ C" j2 |( Y
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
* Q  ?9 y8 q  m* r. m, @1 W5 E; [
PowerMILL31.Disconnect
/ A5 y8 [) N. h5 j" M
End Sub

Private Sub Form_Load()
# ^4 R- `5 H- ]9 t5 V
( u! B+ h' o8 P. N4 ZPowerMILL31.Connect psStartPowerMILL
/ I; l, g4 z1 d4 m; Y! v# ]& h
End Sub
- f7 c+ E# |( |2 {7 Z9 s
这样就可以了

dazhi518

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