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

woaishuijia

1 {' ]* |+ r- f6 d6 k

1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '使用API函数获取键盘信息
   : ?/ n& N) i9 ^, d: Y
2. Dim 速度 As Double
   6 X2 m8 _) f+ N* [8 d: ^& Z3 [- \
3. Sub A()
   
4.     Dim 直线 As AcadLine, 直线起点(2) As Double, 直线端点(2) As Double, 直线角度 As Double
   7 R) H; r/ f: ~# m0 W
5.     If 速度 < 1# Then 速度 = 10# '首次运行宏的默认速度
   ' Q9 j$ j* B' R5 i& o5 F4 }
6.     速度 = Val(InputBox("输入速度1~100", "autoCAD", 速度)) '从输入框获取速度
   
7.     If 速度 > 100# Then 速度 = 100# '检查输入是否正确
   
8.     If 速度 < 1# Then 速度 = 1#
   
9.     直线端点(0) = 10# '在模型空间画直线
   
10.     Set 直线 = ThisDrawing.ModelSpace.AddLine(直线起点, 直线端点)
    6 Z! B3 v* [8 N& H% @- k; y0 d. Z
11.     Do '用循环使直线回转
    * s6 c8 x0 K, s- R
12.         直线端点(0) = 10# * Cos(直线角度) '计算直线端点坐标
    
13.         直线端点(1) = 10# * Sin(直线角度)
    
14.         直线.EndPoint = 直线端点 '将计算出的点坐标赋予直线端点
    7 ]/ w7 G2 G) `! a4 P4 N* `6 r
15.         ThisDrawing.Regen acActiveViewport '刷新当前视口
      b! {8 I) c: }4 @9 W7 K  f) Y
16.         If GetAsyncKeyState(27) = -32767 Then Exit Do '当用户按下"Esc"键时退出
    
17.         DoEvents '转让控制权给系统，以便用户做其它操作
    
18.         直线角度 = ((直线角度 * 1000# / 速度 + 1) Mod Int(6283.18530717959 / 速度)) / 1000# * 速度 '计算直线角度
    9 t( c; h- K; t& Z
19.     Loop
    
20.     直线.Delete '删除直线
    
21. End Sub
    

复制代码

本程序只限于在模型空间使用。
. o% x% a) e) ]8 I运行程序后，界面首先弹出一个输入框要求使用者输入速度；确定后会有一条长度为10的直线绕坐标原点旋转。
: J" I8 \3 A$ {7 b5 n5 ?, E" G使用者随时可按下“Esc”键退出。

caslee

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

hzhkai2008

:lol: 谢谢，我正好用到

baby008

怎么用啊  老师

lanxixin

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

lioney

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

zhuguiping

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