这样写编VB还是不行呀。

dazhi518

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

. Y; |8 ~( ~' k" L; QPowerMILL31.Connect
, l( L& V( ^2 Y5 y
PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

. Y# ?/ l( D6 s. i" ^PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect

End Sub

Private Sub Form_Load()
+ V. y$ a2 S1 c! \* G4 D  J6 F
PowerMILL31.Connect psStartPowerMILL
. a# e9 p  f+ a9 f& v6 G0 [, ^
End Sub
/ R' D- q6 h- I) c9 o) b* z% y   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

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

PowerMILL31.Connect
5 p, E' X% e& }8 X2 l9 L( L
, z' W7 G  \) R8 L# d
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
2 ^6 D* k# o" I4 D+ e( ^  k
PowerMILL31.Disconnect

2 `9 N; ^( F  j$ E* iEnd Sub

Private Sub Form_Load()
8 [. ?4 Z; s; k& T) a. r. g! j+ J
PowerMILL31.Connect psStartPowerMILL
7 y! M. {# Q% ?8 p/ N& L
6 M2 b) c6 X7 ^+ QEnd Sub
% m3 R, N# Y9 o9 U7 K
+ a# H" _  X5 r% l2 M4 i, D0 @这样就可以了

dazhi518

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