这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
是不是还要声明什么变量呀。
# w% y+ I( a; e% r, _3 ~- ]Private Sub Command1_Click()
) O. K! \/ `& _* u1 k5 ]
; g; v- m9 W& y+ B/ FPowerMILL31.Connect

PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

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

PowerMILL31.Disconnect
$ m! E) Z+ h, o4 W' D$ ^0 F0 E, u
End Sub

Private Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL
: R. p' y- T/ h$ E  M' ?& n/ a
7 Z. P! I2 E" R. `1 Q* GEnd Sub
' o4 ~. E" }6 s, Y0 B8 J   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

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

! Q+ I5 q8 V" v7 {7 W& a1 Y$ JPowerMILL31.Connect


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

+ p* _! Q+ [6 y/ j2 c' Y+ GPowerMILL31.Disconnect
3 E' C9 G) `  w& Y
End Sub

8 l) }- p% b' C- hPrivate Sub Form_Load()
" z5 x$ ?+ j' Y& ^) B# m9 C. y
5 R0 N0 d5 _0 e6 S7 s: wPowerMILL31.Connect psStartPowerMILL

2 D# M7 t1 T1 M- l# MEnd Sub

4 a% h8 K- l1 |/ x' `8 a这样就可以了

dazhi518

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