这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
0 @; }, U9 p7 X/ ^是不是还要声明什么变量呀。
  P9 _1 ~; ]; S! R' b1 }/ |! Z: DPrivate Sub Command1_Click()

, |! c& @  Q  A! P5 I+ s) F" A4 zPowerMILL31.Connect

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

" ]( e/ ?) q+ R8 c1 N* ?% KPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
% ]! l3 j! n6 f5 K/ D4 d* {" P7 Y
PowerMILL31.Disconnect
/ F: m* Y, M& g8 g6 r
! ]: ^% Z) u( K8 v# f+ CEnd Sub

Private Sub Form_Load()
: H# Q1 z' Y4 s' M/ O# V* [
PowerMILL31.Connect psStartPowerMILL

End Sub
  我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

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

PowerMILL31.Connect

, u2 C3 a8 e/ M, o6 C- g
PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

; K% i( ~" o& |  g: pPowerMILL31.Disconnect
. O* J* ], o2 s4 E7 Y2 `
End Sub

Private Sub Form_Load()
; n: }# A: V( I' C9 T
PowerMILL31.Connect psStartPowerMILL
3 T: S6 W7 w& G+ [
. n/ p- T+ t! N4 K& W9 q7 d, GEnd Sub

3 p1 ^9 s: P4 _" O$ w4 G) g这样就可以了

dazhi518

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