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

woaishuijia

3 Z; w2 f& `5 |% \& @

1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '使用API函数获取键盘信息
   % m9 B/ o7 |' U. h' W) O
2. Dim 速度 As Double
   
3. Sub A()
   ) I4 M8 o6 \$ ?) c' X# L
4.     Dim 直线 As AcadLine, 直线起点(2) As Double, 直线端点(2) As Double, 直线角度 As Double
   8 _" J+ P7 Y1 Y: y
5.     If 速度 < 1# Then 速度 = 10# '首次运行宏的默认速度
   
6.     速度 = Val(InputBox("输入速度1~100", "autoCAD", 速度)) '从输入框获取速度
   
7.     If 速度 > 100# Then 速度 = 100# '检查输入是否正确
   2 N9 L; ]( u2 `' j) ~8 F3 e
8.     If 速度 < 1# Then 速度 = 1#
   
9.     直线端点(0) = 10# '在模型空间画直线
   . U7 p- o( f. l5 w1 N6 s
10.     Set 直线 = ThisDrawing.ModelSpace.AddLine(直线起点, 直线端点)
    
11.     Do '用循环使直线回转
    0 n4 \, I1 t* A3 o5 Y2 E7 M9 Y  g$ l
12.         直线端点(0) = 10# * Cos(直线角度) '计算直线端点坐标
    1 G1 f# F7 Z2 ^8 U3 @
13.         直线端点(1) = 10# * Sin(直线角度)
    % {0 c) H6 D) q6 m: d4 U
14.         直线.EndPoint = 直线端点 '将计算出的点坐标赋予直线端点
    3 Y) I2 F$ m2 H' R2 Y: R
15.         ThisDrawing.Regen acActiveViewport '刷新当前视口
    & r; x( `! Q" p/ a% |
16.         If GetAsyncKeyState(27) = -32767 Then Exit Do '当用户按下"Esc"键时退出
    + Q7 A! Q  w: C' ?: d+ E" b
17.         DoEvents '转让控制权给系统，以便用户做其它操作
    + r7 ^; _" x# ^% c: v' p! m4 v
18.         直线角度 = ((直线角度 * 1000# / 速度 + 1) Mod Int(6283.18530717959 / 速度)) / 1000# * 速度 '计算直线角度
    2 I& B/ o" K% h+ m; W+ z: ^
19.     Loop
    
20.     直线.Delete '删除直线
    
21. End Sub
    " R, K3 {1 q% X

复制代码

本程序只限于在模型空间使用。
3 t* k1 q' O& _5 {2 G. z. i7 T! c运行程序后，界面首先弹出一个输入框要求使用者输入速度；确定后会有一条长度为10的直线绕坐标原点旋转。
使用者随时可按下“Esc”键退出。

caslee

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

hzhkai2008

:lol: 谢谢，我正好用到

baby008

怎么用啊  老师

lanxixin

感谢老大woaishuijia！
* \  G" e7 H% \" s+ S* x3 D我刚学习AUTOCAD VBA，这是我见过第一个真正的AUTOCAD VBA动画！
- p7 O$ a6 c) T  n/ d3 Z再一次感谢老大！

lioney

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

zhuguiping

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