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

woaishuijia

4 d& M) j3 s' |  n

1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '使用API函数获取键盘信息
   8 C: y, i) I2 u/ i, `4 p
2. Dim 速度 As Double
   
3. Sub A()
   
4.     Dim 直线 As AcadLine, 直线起点(2) As Double, 直线端点(2) As Double, 直线角度 As Double
   
5.     If 速度 < 1# Then 速度 = 10# '首次运行宏的默认速度
   ) N- `$ Y$ j9 B: u
6.     速度 = Val(InputBox("输入速度1~100", "autoCAD", 速度)) '从输入框获取速度
   
7.     If 速度 > 100# Then 速度 = 100# '检查输入是否正确
   
8.     If 速度 < 1# Then 速度 = 1#
   5 ^/ H! F) a6 R" u
9.     直线端点(0) = 10# '在模型空间画直线
   ! _6 a& j! _* Z8 v' J8 n" O* `
10.     Set 直线 = ThisDrawing.ModelSpace.AddLine(直线起点, 直线端点)
    
11.     Do '用循环使直线回转
    + Q5 B! o! t! v, b2 i
12.         直线端点(0) = 10# * Cos(直线角度) '计算直线端点坐标
    / N7 b8 I4 ^1 ]3 L- c9 b% F
13.         直线端点(1) = 10# * Sin(直线角度)
    3 V3 G3 a" D0 }: s
14.         直线.EndPoint = 直线端点 '将计算出的点坐标赋予直线端点
    ' C5 h* c6 P. L, Z
15.         ThisDrawing.Regen acActiveViewport '刷新当前视口
      A1 \" a' L; m8 _( B. b' Y
16.         If GetAsyncKeyState(27) = -32767 Then Exit Do '当用户按下"Esc"键时退出
    8 s' V: r! h6 u0 q+ _
17.         DoEvents '转让控制权给系统，以便用户做其它操作
    ) p0 y; h% {, w9 P1 A6 N( l1 {$ B2 H
18.         直线角度 = ((直线角度 * 1000# / 速度 + 1) Mod Int(6283.18530717959 / 速度)) / 1000# * 速度 '计算直线角度
    
19.     Loop
    , h. P, x" g" o! E5 N, g
20.     直线.Delete '删除直线
    + x$ r0 ]- {( k% M2 j
21. End Sub
    + p$ ]7 y; `+ p

复制代码

本程序只限于在模型空间使用。
% Z) C) T. R& p, t, p8 I9 s运行程序后，界面首先弹出一个输入框要求使用者输入速度；确定后会有一条长度为10的直线绕坐标原点旋转。
" ^8 K; g# J) @+ ^' n使用者随时可按下“Esc”键退出。

caslee

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

hzhkai2008

:lol: 谢谢，我正好用到

baby008

怎么用啊  老师

lanxixin

感谢老大woaishuijia！
) |+ z4 @3 q# B4 A9 f3 j5 _我刚学习AUTOCAD VBA，这是我见过第一个真正的AUTOCAD VBA动画！
再一次感谢老大！

lioney

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

zhuguiping

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