这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
  E! f' m- \* y$ W0 C' f- [# A# z是不是还要声明什么变量呀。
Private Sub Command1_Click()
  O8 T. O, d7 @  K
PowerMILL31.Connect

# s4 l9 c, ]/ V3 T& ZPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")
) c" V2 b1 r& g" ~
PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
8 L4 {7 P  J) R- `. p1 Q9 p, f$ d; x
PowerMILL31.Disconnect
7 `7 f0 C- m2 D( w
End Sub

9 a' F9 |3 z) o% n" bPrivate Sub Form_Load()

9 S+ @; n  M4 cPowerMILL31.Connect psStartPowerMILL
3 P2 M, q5 P' V4 V% j1 _3 j  R& N
End Sub
9 ]) V+ Y+ |( z. ?4 O+ U6 x& ~   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
Private Sub Command1_Click()
( ?' D5 G% M) ~' z: E0 V* I8 R8 G
PowerMILL31.Connect


PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
0 v6 ]8 I2 O& C% o& d
PowerMILL31.Disconnect

3 |3 m' E* L! B1 }End Sub
, i; K7 d$ i* c& l! s
) X& d  c4 Z  `/ G# oPrivate Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL

  x* R  r' ]7 O, z0 Z1 y; \End Sub
$ S6 |7 u3 N5 i. b" D5 E5 }& [
这样就可以了

dazhi518

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