这样写编VB还是不行呀。

dazhi518

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

0 Q+ z; Y! A9 F) f1 |PowerMILL31.Connect
1 H, ]  ~- k* X4 s+ S0 H5 N. w
1 `$ t$ [, _( D7 O( Y6 E% DPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")
* S6 g! Q' I# r% s- ?
0 b: T2 t3 i4 W4 y' GPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect
2 V' u5 Z) z1 \/ x9 f% {5 J6 F
End Sub

& G7 Q) t/ r, g4 tPrivate Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL
2 @6 a! m) N; |+ G
End Sub
# |, U. ?6 k( X2 G5 H9 e   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

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

1 H/ C' C- a4 C9 `; z; N8 V* [PowerMILL31.Connect
6 r4 E* H4 u0 g* c& h0 J

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

' Q& P* F* O4 L. Y/ u4 FPowerMILL31.Disconnect

End Sub

9 T! L& p& `  K- z' @Private Sub Form_Load()
# U( X+ V! O+ R4 B7 X' G( T
PowerMILL31.Connect psStartPowerMILL
$ y4 ]+ e% i- O# ]
* m8 X  ?+ p& }, u8 l" o! FEnd Sub

这样就可以了

dazhi518

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