这样写编VB还是不行呀。

dazhi518

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

PowerMILL31.Connect

PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")
( m, l8 _  \1 M1 {
PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect
) @; K3 u) R# j4 P+ |
6 s/ z3 h" g# \% N0 C* IEnd Sub

Private Sub Form_Load()
( G+ A; x2 o, S& ^( D% j
PowerMILL31.Connect psStartPowerMILL
( F9 @$ `5 u& f! i
End Sub
0 E4 Q  t" V5 z, ]4 x$ Y   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

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

PowerMILL31.Connect

, [+ G: A7 Z7 k5 |3 V2 \$ Y7 A  ^% w( [
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
1 M# s9 D* y7 U
PowerMILL31.Disconnect

' X: L. x5 _( ?' }End Sub

Private Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL

End Sub
2 e! t& V% n( E4 b% E2 f- p. B, P
这样就可以了

dazhi518

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