这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
' z/ r0 F  r* t/ z1 k+ q2 X是不是还要声明什么变量呀。
Private Sub Command1_Click()
  k6 o4 Z7 @  [6 w) [7 F; S
PowerMILL31.Connect

1 s; m9 m/ d, O, g- x- }7 E+ I1 [PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")
8 k9 a% V% q  R6 ?, j1 B) g
PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

+ B2 P; @) |1 c, w; l7 Q( v$ m5 YPowerMILL31.Disconnect

End Sub

, Z; w5 w- y4 j3 `Private Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL
# a# U7 T' g% i+ g% T4 v# o- i
End Sub
7 v# \& H. C7 V, A   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
. b# |1 n  {1 zPrivate Sub Command1_Click()
% c& q6 d6 b: X0 [" Y
0 r: y4 m) U9 B4 f) dPowerMILL31.Connect
2 Z5 M% P1 a! ~+ P/ r; D, H6 _# I
5 R! x3 H7 c6 T/ D& |
8 n# a# ]7 u! `: D  F  ~PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect

( r# C4 c2 `" }# ?( YEnd Sub
" q6 a( b6 H) N0 e6 R/ @( h9 I
5 s/ h2 \4 v; ^5 `5 RPrivate Sub Form_Load()

9 \+ u9 K- j! }6 }# Z5 n$ xPowerMILL31.Connect psStartPowerMILL
+ \3 L5 s0 i; W
End Sub

这样就可以了

dazhi518

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