用VB编一个旋转角度的外挂.运行不了呀.帮帮忙呀.

dazhi518

这样写的.
PowerMILL31.Connect
' }* D8 d6 e, W- u2 tPowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE"
PowerMILL31.Execute (" ")
% ^9 q- k+ |$ M$ L) _0 d# u0 DPowerMILL31.Execute ("TRANSFORM MODEL ALL")
) [9 Q, q/ X8 G0 G7 y3 d
1 @$ f9 I. I2 \, h% {% g4 C上次老大说.要给一个值.要不就会弹出窗口,
0 J5 A6 y! e2 r# B) c  但是这个值该怎么给呀.;)    帮帮我呀.;)

JimGreen

在窗体上添加一个文本框,然后把你的第二行代码改成如下:
  q+ R1 t  M7 {8 y: }( A
5 N7 s" u8 m: _( mPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
; t" R  P9 ^5 i! u
, |3 f5 x5 z& z/ G- _' E第三行就不需要了;
% o6 D3 M6 {5 \/ a; M; {1 n
8 y& C, z9 i  U- C; a现在运行试试看在文本框输入数值,点击你的旋转命令按扭;是否可以了!

dazhi518

多谢楼上的兄弟，明白了。感激不尽啊！

千纸鹤

真好！路过的，有学了一招。谢谢！

scxdh

多谢楼上的兄弟，明白了。感激不尽啊！