这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
, |# |" c5 y% i7 o& K: L* ~是不是还要声明什么变量呀。
& P) P8 C' B7 b% U7 Y# `' J! A4 _Private Sub Command1_Click()

PowerMILL31.Connect

( S* J5 V7 N! vPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

. y; ?1 g: t) h9 SPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
' [2 j) i1 n) K' Q5 N# C
8 N* s: Q/ d3 p4 `% uPowerMILL31.Disconnect
; O/ X: g+ R% ?3 k3 L% P, }( ]
  O" e2 O- t. t2 x! b3 N$ x1 }End Sub
$ x  x+ A, b2 q
Private Sub Form_Load()
9 ^+ K1 O% [- |8 s
PowerMILL31.Connect psStartPowerMILL
% i: `" m6 X$ x
End Sub
3 f. ?2 V! |( |7 x   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

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

0 P1 [. ?* Y8 _. ~1 f2 ZPowerMILL31.Connect


PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect

% _- }$ K& e6 M3 d+ zEnd Sub

Private Sub Form_Load()

0 N. n/ k0 l" }0 _  H0 z/ N8 @PowerMILL31.Connect psStartPowerMILL

End Sub

6 ^2 q) ~/ d8 q0 ]7 U9 n这样就可以了

dazhi518

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