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

woaishuijia

- T# m  W, }; {5 `' ~6 C) b% I1 u

1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '使用API函数获取键盘信息
     p  C" O- A  O' B; B
2. Dim 速度 As Double
   
3. Sub A()
   4 z0 D& p/ x' g6 @
4.     Dim 直线 As AcadLine, 直线起点(2) As Double, 直线端点(2) As Double, 直线角度 As Double
   7 l( [  Y# N7 ^' r) {# D
5.     If 速度 < 1# Then 速度 = 10# '首次运行宏的默认速度
   & g0 E" y' y) I0 k9 |* u
6.     速度 = Val(InputBox("输入速度1~100", "autoCAD", 速度)) '从输入框获取速度
   ; o1 e1 k4 q; q; c5 g" c/ o4 t# ]
7.     If 速度 > 100# Then 速度 = 100# '检查输入是否正确
   
8.     If 速度 < 1# Then 速度 = 1#
   ) a* K8 B$ n- j* o" Y8 ]
9.     直线端点(0) = 10# '在模型空间画直线
   ( p# L* U2 a: ]" K- _) D2 ?0 U
10.     Set 直线 = ThisDrawing.ModelSpace.AddLine(直线起点, 直线端点)
    + i" T$ s4 {+ E8 ~& a8 a* m
11.     Do '用循环使直线回转
    
12.         直线端点(0) = 10# * Cos(直线角度) '计算直线端点坐标
    / J+ G5 }* O, {7 @" a
13.         直线端点(1) = 10# * Sin(直线角度)
    
14.         直线.EndPoint = 直线端点 '将计算出的点坐标赋予直线端点
    
15.         ThisDrawing.Regen acActiveViewport '刷新当前视口
    ) E3 q. @2 a( ^  Q3 M+ S. Q
16.         If GetAsyncKeyState(27) = -32767 Then Exit Do '当用户按下"Esc"键时退出
    
17.         DoEvents '转让控制权给系统，以便用户做其它操作
    
18.         直线角度 = ((直线角度 * 1000# / 速度 + 1) Mod Int(6283.18530717959 / 速度)) / 1000# * 速度 '计算直线角度
    
19.     Loop
    . n4 p( M* o: i( l
20.     直线.Delete '删除直线
    ' D% ~! K! L' Z; \4 j
21. End Sub
    

复制代码

% q$ R  H8 E/ M+ U1 {9 A* ^4 \$ i7 p& R本程序只限于在模型空间使用。
运行程序后，界面首先弹出一个输入框要求使用者输入速度；确定后会有一条长度为10的直线绕坐标原点旋转。
3 ?; A0 A: P+ c. o0 @+ R. W/ J# h使用者随时可按下“Esc”键退出。

caslee

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

hzhkai2008

:lol: 谢谢，我正好用到

baby008

怎么用啊  老师

lanxixin

感谢老大woaishuijia！
我刚学习AUTOCAD VBA，这是我见过第一个真正的AUTOCAD VBA动画！
' o, s, G6 K( i4 ~" v" u  b8 V2 Q再一次感谢老大！

lioney

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

zhuguiping

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