这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
是不是还要声明什么变量呀。
Private Sub Command1_Click()

PowerMILL31.Connect

  N0 ~: Y5 v# q* q5 s* H; h' D( Y! LPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
- k9 R7 F% s$ I
8 j# h8 k, o2 EPowerMILL31.Disconnect
/ Y% ~, _0 j5 |/ q& p$ W
3 W. S; p4 \8 k1 |End Sub
7 @+ P1 ~3 N+ D) S% A/ ^7 V$ t
Private Sub Form_Load()
0 K+ z8 y5 e& R
PowerMILL31.Connect psStartPowerMILL

End Sub
/ B* z& E. c5 J. i7 N   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
: k% ~0 a* e6 M7 \3 r. E, S* aPrivate Sub Command1_Click()

PowerMILL31.Connect
8 n9 ?' j6 G4 |% X
+ |' L3 E, {$ W0 F! J3 r
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

; B4 ?) Y7 r9 }- s: x: u% zPowerMILL31.Disconnect
' `& k7 s, K: G; s
1 D9 p# g6 J  \End Sub
' `* T: C. T  \0 q0 J5 ]1 N! v
Private Sub Form_Load()

2 [' O. _) G, qPowerMILL31.Connect psStartPowerMILL
, k! g$ {9 I( i8 n" T0 w3 M
) \, h( g9 C4 J4 L+ U' mEnd Sub
4 j2 p+ \  Z* k8 t1 E
$ d- r* M. E0 N5 C这样就可以了

dazhi518

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