QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2591|回复: 2
收起左侧

[已解决] 这样写编VB还是不行呀。

[复制链接]
发表于 2008-12-30 21:30:44 | 显示全部楼层 |阅读模式 来自: 中国山东烟台

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
经过上次指点,我是这样写的。还是弹出那个窗口,不过是点一下那个叉,模型就转过来了。不知道哪里又错了。5 v: d+ [+ ]$ G
是不是还要声明什么变量呀。
; f) P- Y; n; _+ aPrivate Sub Command1_Click()
# V9 j" i% x2 }# s% y  q2 L
0 |" F6 n7 ?; P3 b& v  y( c9 iPowerMILL31.Connect
' P7 j# [- [- w# j5 |! i6 X1 t6 y- J
PowerMILL31.Execute ("TRANSFORM RESET TRANSFORM TYPE ROTATEY TRANSFORM ANGLE")) g: S' [# g# W/ [1 S2 t% T( I! W

4 ~! V; E2 E: K9 z4 ~# f. dPowerMIll31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
% z! P/ E0 v3 i2 T+ w% N% x1 u3 n) n  n
PowerMILL31.Disconnect
+ B3 y5 H9 z; W/ y9 f( n/ @7 N0 B/ }8 [) K+ I# A
End Sub
7 M$ ?6 j  B5 J" }+ A0 n7 P
/ v5 Y# T. s) Q8 M+ @Private Sub Form_Load()
. K) M9 O, g. n+ J* R2 y
/ @' r4 {$ s! Z5 @/ t% U' G, f! rPowerMILL31.Connect psStartPowerMILL
8 o( o3 N" l7 M+ v6 r
4 Q0 _) Z2 d3 c  T0 O& iEnd Sub
. E, m. p! q$ {/ m# S7 W& g% { 33333.JPG   我在文本框里输的是180度。运行一下,还是出现。我点一下那个叉后,模型就旋转了180度。不知道是哪个搞错了。还请各位多多帮忙。谢谢。 44444.JPG
发表于 2008-12-30 23:05:46 | 显示全部楼层 来自: 中国浙江杭州
你为什么要搞两句命令呢?之所以出现那个信息框,就是因为你前面那个命令
. N5 d3 }. P- _4 Y' IPrivate Sub Command1_Click()/ ~% y  w: v* ]" k
" f. z# P5 R: F* W3 A
PowerMILL31.Connect0 j* E0 g# b7 V3 w' I% C

1 x/ t- \. ~" k; m
0 h$ b, i' n! O5 UPowerMILL31.Execute "TRANSFORM RESET TRANSFORM TYPE ROTATEX TRANSFORM ANGLE " & Val(Text1.Text)
% j6 a$ i) V: E1 u  z
5 a) W) b- S( T$ ^& h9 B8 ~PowerMILL31.Disconnect" `0 }) C; W, x; l2 G; {
+ R0 D4 \0 S/ g+ n% Q' Y: j
End Sub" V$ w6 F" _, S: Y
3 z9 z3 _4 w6 V' ?* N. ^2 c3 K8 H
Private Sub Form_Load()3 r# m. }6 m, u8 A4 w3 p! ]. z
. k! d2 h+ Z. J: l- t; e- N
PowerMILL31.Connect psStartPowerMILL
# {4 q+ }* v; s7 f3 n% I& R' R! v+ q% F; s  ^
End Sub0 _$ D; Q5 X( y# Y! i9 s0 g( ?# R5 x
4 y8 S% ~4 T) l5 `; W) |8 e
这样就可以了
 楼主| 发表于 2008-12-31 01:01:23 | 显示全部楼层 来自: 中国山东烟台
谢谢老大,哈哈。。。。 真是鬼迷心窍了,再也想不通了。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表