这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
5 q+ `, |% p6 ?; g; w( n/ ]1 T是不是还要声明什么变量呀。
Private Sub Command1_Click()

PowerMILL31.Connect

PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")
- p3 t) }7 S( S1 \: Z/ B
  H! G0 r+ I: V( _' RPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
( V; E+ Q' ]% L, [% u4 x
3 S1 u9 h/ V* _7 J0 |5 X4 }+ XPowerMILL31.Disconnect
+ `0 i- ^$ G( n1 f
; u& _1 l4 Y1 S- d' ?7 B! XEnd Sub
0 y5 @; @! q; {( u% d9 f, o& f" y
& a% T0 l! @7 \. KPrivate Sub Form_Load()
5 H: W4 T9 s. |! M1 t& Z6 U' a. `" [: }
; H; C! D+ `3 U0 i9 z* l1 OPowerMILL31.Connect psStartPowerMILL
: |' c# a: J% q9 S% S
, J- s8 c5 ?" C0 P  rEnd Sub
4 N) o, ]# W( m6 y5 w9 ~   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
Private Sub Command1_Click()
2 r" U' V3 Q1 u6 [' b5 v4 W7 d- P! X* }
PowerMILL31.Connect

  d5 C; _5 L: Y1 y8 I
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
. O5 q- D+ D1 t* P, d
PowerMILL31.Disconnect
9 G- |4 G! V, D4 w$ q0 X3 r% [' b
- C+ k' \4 g; B3 iEnd Sub

5 l! c- M) n! `5 F5 YPrivate Sub Form_Load()

, T0 W3 z  ?% p- PPowerMILL31.Connect psStartPowerMILL

End Sub
3 A% A3 L2 d6 w( U% Z6 c$ t/ M
* P3 Z; e+ d- @- w/ z# P这样就可以了

dazhi518

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