这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
是不是还要声明什么变量呀。
Private Sub Command1_Click()
$ w& K/ B8 Y" P2 k
' D+ T6 I0 |( D+ C, Z; mPowerMILL31.Connect

: N9 o0 _3 h3 G) h5 \3 |, w% KPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

& n# _3 u: a6 ], N) c) aPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

% g' {1 a/ @$ c8 s  cPowerMILL31.Disconnect

" I$ r: J* _% k  H0 ?End Sub

0 W# I8 K! e. R2 ^. B" zPrivate Sub Form_Load()
7 I& `3 h: W$ l( r+ C: I/ d8 Z
PowerMILL31.Connect psStartPowerMILL
+ U4 z4 @# L0 x7 C# D
End Sub
  我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

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

4 f3 ]9 j. f! C8 xPowerMILL31.Connect
* e' Q2 j3 U% M
; y3 V$ O% ?, \+ W- R# o0 S/ X( {. e
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect
5 `* q, S8 Y$ \# Q, z" \2 V
  A. M! n% j: ?& G, c6 QEnd Sub

Private Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL

End Sub
& S' ?) C$ \  w+ F+ N/ K# d
5 A  \/ }- _# M8 `8 t这样就可以了

dazhi518

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