这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
& ]2 @/ b* M; C是不是还要声明什么变量呀。
Private Sub Command1_Click()

& {  S  L4 _9 {8 D. [PowerMILL31.Connect
* t+ F5 S! P* w/ U6 A, o- B
PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")
3 N1 n+ z$ M5 T: A: P9 g0 N' G
PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
* s3 K: L2 S+ f% m* k
: c& D: m) S8 E, C+ H% y+ \PowerMILL31.Disconnect
# ~5 T1 p# J3 G7 \) M  ?" R
3 k1 K, Y4 s+ G$ E2 j' rEnd Sub

Private Sub Form_Load()
1 h7 @: i. A  R) e
( v3 u1 f& E& X: `' IPowerMILL31.Connect psStartPowerMILL
" R0 Z9 F% W( _; J. c& k/ {2 a
End Sub
  我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
Private Sub Command1_Click()
6 l3 o$ u# @$ B
PowerMILL31.Connect
2 n# o0 U5 k/ M/ y5 F: f1 ~

1 A  Y: _: y$ z; I8 z: N5 rPowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect

% c7 B! e, |5 u- t& `% wEnd Sub
$ {9 I1 _; ^8 V; ?
/ f0 G3 M8 x" ?9 ePrivate Sub Form_Load()
- K! i2 B6 v0 K- f* z0 @  H
PowerMILL31.Connect psStartPowerMILL
3 U& C9 c: ^# F4 `3 D& @
End Sub
' |# g, _3 }: R8 c: I5 v& e
这样就可以了

dazhi518

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