这样写编VB还是不行呀。

dazhi518

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

1 J; k7 S3 l1 [PowerMILL31.Connect

/ C- o* o: K, [, _$ B7 H: gPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")

PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
3 d" D0 x. C2 }
PowerMILL31.Disconnect
( S" b' j, D( _6 W! N/ c+ G0 @: A* M
End Sub

' Z; e5 E1 u, v; F; g& p+ APrivate Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL

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

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
Private Sub Command1_Click()
* B2 _/ U: t( q. l
2 V% l! C" ~9 k2 r7 XPowerMILL31.Connect
0 D; V3 t) K2 c$ P

PowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
4 M1 ]" U+ V/ q$ t; y1 @9 V1 }( m1 |
PowerMILL31.Disconnect
2 M) Y9 u2 Q- D
End Sub

' l' q6 ]* y" a% ^% b6 k  C& |Private Sub Form_Load()
4 X8 [; }$ B0 U& f5 Q
PowerMILL31.Connect psStartPowerMILL
/ |+ d6 K. |+ D
9 l8 @& ^. T' d: ]7 YEnd Sub
, e4 R9 _+ c( |
7 E, A! y3 p6 V4 t. T, o/ H这样就可以了

dazhi518

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