这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
是不是还要声明什么变量呀。
& u% |1 b. S( k% F/ H; G! pPrivate Sub Command1_Click()
* ~. h) W. V8 n$ o5 z' @
% |2 \1 I; F- V$ I1 W" CPowerMILL31.Connect

+ I" x- F9 o: ^! CPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
% Q& j' D6 j+ B1 c4 x& o9 C5 o
, Q# M  D* X( R* oPowerMILL31.Disconnect

: Q8 j* S  C! W  A4 ~End Sub

3 C, h1 }" P6 ?3 w' Z9 F/ ^Private Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL
! n+ x, }- i! m0 `: a! a& Q) e
$ {9 {9 P1 t& i  Z% [End Sub
  我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
7 {0 \& s7 N$ J( _Private Sub Command1_Click()
& n8 z% L8 J/ q' L
- W; p' U0 C4 X1 u1 E. w  g& `PowerMILL31.Connect
+ T6 o5 h* @2 {2 N9 |

PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
: o3 T  s! v5 J6 ?% [* G
2 x+ g  C. H( w" p- MPowerMILL31.Disconnect

End Sub
6 [: l1 T% e+ ^2 V( K- U
  D; p- m; i$ O% ZPrivate Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL
* z. i/ M% Q  M: \2 M
5 w1 l: x5 J6 b6 r& o8 BEnd Sub
- B: w6 b- Q2 ?) ~5 i. [
这样就可以了

dazhi518

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