Autocad_VBA教程.pdf

AutocadVBA 初级教程 本文是我搜集网上一位高手的教程，整理而成，其中对某些程序进行了拓展。本人从事 选煤厂工程总承包多年，发现业内从大型设计院到小型公司，只是将CAD 作为画图板、丁 字尺、铅笔的替代品，所有的设计还都基本是手工绘制，远没有充分利用AutoCAD 的功能。 即便快捷键这么简单的功能，都有好多人没有掌握如何自定义（通过修改自定义文件，将常 用命令都改为左手操作的快捷命令，右手操作鼠标。例如将原本需要右手操作的画直线命令 L，改为左手操作输入FF也能画出直线）。 利用CAD 二次开发接口进行设计的更是少之又少，关于CAD 二次开发的书籍、资料 也是少的可怜。所以本人搜集、整理此文供AutoCAD VBA 初学入门使用，以此共勉，充分 利用CAD 软件的功能，减少设计中的劳动强度，提高工作效率。 本人也AutoCAD VBA 初学者，欢迎交流。QQ：249365331。 第一课：入门 第一课：入门 第第一一课课：：入入门门 1.为什么要写这个教程 市面上ACAD VBA 的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经 好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。 2.什么是AutocadVBA？ VBA 是Visual Basic forApplications 的英文缩写，它是一个功能强大的开发工具，学好 VBA 可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD 命令不 可能完成的，只要学好VBA 就可以做到，相信到时候您一定会得到同事的佩服、老板的器 重。 3、VBA 有多难？ 相信大家都知道Basic 是的含义。应该承认，我的水平还不高，错误之处在所难免，如 果大家发现错误一定要提出批评，以便及时更正。 4、怎样学习VBA？ 介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过 程中一定要多思考，多想一些是什么、为什么。本教程将陆续发布在CAD 世界论坛上，您 不需要付费就可以学习。本作者在此郑重承诺：关于本教程中有任何疑问，可以跟贴提问， 只要有时间，本人一定会耐心解答。我不会发到任何人的邮箱中，您自己在论坛上找就可以 了，请不要再向我索要这份教程。 5、现在我们开始编写第一个程序：画一百个同心圆 第一步：复制下面的红色代码 第二步：在模型空间按快捷键Alt+F8，出现宏窗口 第三步：在宏名称中填写C100，点“创建”、“确定” 第四步：在Sub c100()和End Sub之间粘贴代码 第五步：回到模型空间，再次按Alt+F8，点击“运行” Subc100() Dimcc(0To2)AsDouble 声明坐标变量 cc(0)= 1000定义圆心座标 cc(1)= 1000 cc(2)= 0 Fori = 1To1000 Step10开始循环 Call ThisDrawing.ModelSpace.AddCircle(cc,i * 10)画圆 Next i End Sub 也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。 第二课：编程基础 第二课：编程基础 第第二二课课：：编编程程基基础础 本课主要任务是对上一课的例程进行详细分析 下面是源码： Subc100() Dimcc(0To2)AsDouble 声明坐标变量 cc(0)= 1000定义圆心座标 cc(1)= 1000 cc(2)= 0 Fori = 1To1000 Step10开始循环 Call ThisDrawing.ModelSpace.AddCircle(cc,i * 10)画圆 Next i End Sub ************************************************************** 拓展程序（将