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

woaishuijia

. i& q& x5 L& L2 |: O8 D

1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '使用API函数获取键盘信息
   4 {, E( t$ k- t! Y5 v5 ~/ c) C
2. Dim 速度 As Double
   ; Q$ W  |( d+ M+ f8 |' o
3. Sub A()
   ' I( ]0 O4 I5 R  Z
4.     Dim 直线 As AcadLine, 直线起点(2) As Double, 直线端点(2) As Double, 直线角度 As Double
   . q4 M1 N; |5 M' r1 x
5.     If 速度 < 1# Then 速度 = 10# '首次运行宏的默认速度
   
6.     速度 = Val(InputBox("输入速度1~100", "autoCAD", 速度)) '从输入框获取速度
   9 h: |: Z: V( a
7.     If 速度 > 100# Then 速度 = 100# '检查输入是否正确
   
8.     If 速度 < 1# Then 速度 = 1#
   + z4 m) ^3 e7 x( @4 n0 j7 s4 j
9.     直线端点(0) = 10# '在模型空间画直线
   ! S2 x# B6 N! [9 q3 d
10.     Set 直线 = ThisDrawing.ModelSpace.AddLine(直线起点, 直线端点)
    
11.     Do '用循环使直线回转
    5 T/ v* Q0 e* L4 z2 Z( M
12.         直线端点(0) = 10# * Cos(直线角度) '计算直线端点坐标
    
13.         直线端点(1) = 10# * Sin(直线角度)
    2 b( E; _8 H6 Z  j1 x6 E/ A2 L, f! f6 n
14.         直线.EndPoint = 直线端点 '将计算出的点坐标赋予直线端点
    
15.         ThisDrawing.Regen acActiveViewport '刷新当前视口
    
16.         If GetAsyncKeyState(27) = -32767 Then Exit Do '当用户按下"Esc"键时退出
    2 }$ D% m1 e: {- z+ [3 e+ M2 G9 \' a
17.         DoEvents '转让控制权给系统，以便用户做其它操作
    + ^( p2 o  H. C% v0 x
18.         直线角度 = ((直线角度 * 1000# / 速度 + 1) Mod Int(6283.18530717959 / 速度)) / 1000# * 速度 '计算直线角度
    * R& u6 R% ~3 |0 b0 j# q
19.     Loop
    
20.     直线.Delete '删除直线
    
21. End Sub
    1 o& X7 w7 R1 E" H

复制代码

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

caslee

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

hzhkai2008

:lol: 谢谢，我正好用到

baby008

怎么用啊  老师

lanxixin

感谢老大woaishuijia！
0 ^4 P  b! o5 Q我刚学习AUTOCAD VBA，这是我见过第一个真正的AUTOCAD VBA动画！
再一次感谢老大！

lioney

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

zhuguiping

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