一个最简单的让图形动起来的VBA程序

woaishuijia · 发表于 2008-8-16 10:13:37

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

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

x

本帖最后由 woaishuijia 于 2012-3-30 19:56 编辑

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '使用API函数获取键盘信息% p/ k! n$ z1 y- M
Dim 速度 As Double
6 s& e) h/ B0 n) d6 G+ g+ Q/ i
Sub A()3 f2 j" b3 |: y7 D
Dim 直线 As AcadLine, 直线起点(2) As Double, 直线端点(2) As Double, 直线角度 As Double
3 |( S( [) @7 o% i# F
If 速度 < 1# Then 速度 = 10# '首次运行宏的默认速度$ k" d; X' x3 b5 A0 K# p1 x3 A
速度 = Val(InputBox("输入速度1~100", "autoCAD", 速度)) '从输入框获取速度
! `' Y- s8 D9 }
If 速度 > 100# Then 速度 = 100# '检查输入是否正确1 K$ R) ~$ p* B$ h
If 速度 < 1# Then 速度 = 1#
. e& O% f* `+ a* Y* P' {
直线端点(0) = 10# '在模型空间画直线' r. ^# E0 U) u; l4 a
Set 直线 = ThisDrawing.ModelSpace.AddLine(直线起点, 直线端点)3 H& r; S2 \2 ?; A% Z* t
Do '用循环使直线回转
% B& r/ y" j# e& Z
直线端点(0) = 10# * Cos(直线角度) '计算直线端点坐标; _. w1 s6 ]2 B
直线端点(1) = 10# * Sin(直线角度)
6 |7 o- b0 T1 B" q- S$ f7 _4 _4 H D
直线.EndPoint = 直线端点 '将计算出的点坐标赋予直线端点$ U+ |. [2 f5 D" i: { ]& F
ThisDrawing.Regen acActiveViewport '刷新当前视口$ T% I5 y- M. C9 B7 O" {2 |6 _
If GetAsyncKeyState(27) = -32767 Then Exit Do '当用户按下"Esc"键时退出9 w G3 u: u5 W1 N/ ^5 T
DoEvents '转让控制权给系统，以便用户做其它操作
& {: C* e4 b' A/ N* c6 s
直线角度 = ((直线角度 * 1000# / 速度 + 1) Mod Int(6283.18530717959 / 速度)) / 1000# * 速度 '计算直线角度
1 }2 t( u# k2 X
Loop1 S6 n( i. [6 \3 c( G# t1 z8 ~5 a
直线.Delete '删除直线
. ~' `2 F6 r' \6 b7 Q; y- g8 u$ t
End Sub
W* L9 O" a- i8 _$ m

复制代码

本程序只限于在模型空间使用。
运行程序后，界面首先弹出一个输入框要求使用者输入速度；确定后会有一条长度为10的直线绕坐标原点旋转。
使用者随时可按下“Esc”键退出。

caslee · 发表于 2008-8-16 10:41:43

很早的钢构cad里边有这个功能呵呵

hzhkai2008 · 发表于 2008-12-22 11:05:28

:lol: 谢谢，我正好用到

baby008 · 发表于 2010-11-30 17:35:32

怎么用啊老师

lanxixin · 发表于 2011-10-9 18:05:26

感谢老大woaishuijia！
我刚学习AUTOCAD VBA，这是我见过第一个真正的AUTOCAD VBA动画！
再一次感谢老大！

lioney · 发表于 2011-12-1 11:59:23

哈哈，不错，我已经在范成齿轮中实现在这个功能。但如果程序计算量太大的话，屏幕很闪

zhuguiping · 发表于 2012-3-31 21:02:58

lz怎么用啊，教一下吧，越详细越好，我是一只菜鸟，多多请教了？

		自动登录	找回密码
密码			注册

通知

[原创] 一个最简单的让图形动起来的VBA程序

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