这样写编VB还是不行呀。

dazhi518

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

PowerMILL31.Connect
" {" d$ i3 t  @0 ^3 ^! R+ j+ ~
, r7 w$ I% I) z$ }; hPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
& b  t$ g; F# h! t3 b
+ z: |. }" L) B" A& [, s* NPowerMILL31.Disconnect

( S9 H( u0 \) t* {* aEnd Sub

8 X, A) P. C# o  }+ tPrivate Sub Form_Load()
: I) z. J( {, ]5 V
PowerMILL31.Connect psStartPowerMILL

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

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
Private Sub Command1_Click()
* _& q: x9 k8 |7 w, U# R
PowerMILL31.Connect
+ d- \# I& P) ^4 k; t8 g0 I$ S  [# Y
  O1 l5 H; e5 T* @+ v9 P
" y! H2 u3 T% Q% s7 W, F0 p4 n( oPowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

* W$ ?7 H/ D/ h* E# nPowerMILL31.Disconnect
3 f8 w' T0 T/ s: `7 f+ b$ [1 g
End Sub
+ u: \$ J  v! X) s" Z. \3 i
) R$ v; V/ U. T. I* B  Z( D6 `5 SPrivate Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL
. }4 M- Y$ W+ b$ \  x' `8 j' A/ Q
End Sub
8 v. \" k: U4 I* z1 ^& u# D
: q' [) I# i5 n; I5 C这样就可以了

dazhi518

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