这样写编VB还是不行呀。

dazhi518

经过上次指点，我是这样写的。还是弹出那个窗口，不过是点一下那个叉，模型就转过来了。不知道哪里又错了。
, Y/ E* ^# E3 [" k1 A: X是不是还要声明什么变量呀。
Private Sub Command1_Click()

PowerMILL31.Connect

" z7 R( i8 [" a" I# JPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")
8 ^: x! T  Z" g* ~/ N2 ~- t- b
PowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

PowerMILL31.Disconnect

End Sub

Private Sub Form_Load()

* T8 c/ S5 h2 o! B3 qPowerMILL31.Connect psStartPowerMILL
2 s4 d5 r- ]/ N$ R  g
, d0 b1 E) Y2 ]9 T/ aEnd Sub
& Y, Z9 v$ f  s2 d5 q1 `  U   我在文本框里输的是180度。运行一下，还是出现。我点一下那个叉后，模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。

hh749

你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
6 Q$ N, ^0 x) u" \9 HPrivate Sub Command1_Click()

PowerMILL31.Connect
) ?) G9 v0 U$ P* D5 P3 u

8 d+ s+ p1 \' |( ], W' T# EPowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)

" {0 f% c8 U+ A( h4 gPowerMILL31.Disconnect

7 G; r8 d9 s9 F8 Y  `End Sub
! q( ^% Y. x6 k3 q' b+ B
9 s& ]* R1 j! Z! f9 a0 i  cPrivate Sub Form_Load()

PowerMILL31.Connect psStartPowerMILL

End Sub

这样就可以了

dazhi518

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