这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
5 z- A  u/ N1 ]( A3 }$ N. V+ K是不是还要声明什么变量呀。
Private Sub Command1_Click()

% c* d: n5 ?) n3 uPowerMILL31.Connect

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

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

- O6 i" L8 X9 BPowerMILL31.Disconnect
+ ~, h# u% p: z, e
End Sub

Private Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL
- C- W2 C/ a# k& \) w
End Sub
  我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
Private Sub Command1_Click()
# ~3 ]9 q1 O! f
6 C- B! O6 Y) u/ {4 k( xPowerMILL31.Connect

8 O4 x1 f( n  Q; S; \
& J& s! A2 s2 a- }& R9 k2 t2 S8 VPowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
( Z" W/ o/ N6 _8 [/ {
PowerMILL31.Disconnect
6 V; k! e7 U8 t2 h+ @2 B: f* s; h" [; D: w
0 _  f3 f0 }2 |" b/ O& v9 \End Sub

! e* v7 a; X+ Z" _$ dPrivate Sub Form_Load()
4 s8 r; o- T! n" S2 F
0 }! @( R3 H/ fPowerMILL31.Connect psStartPowerMILL

2 }! ]. i' @) X0 i& n6 D  SEnd Sub
! a& U2 a2 T& A" o
4 f" I3 H( E  M5 [0 T这样就可以了

dazhi518

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