基于VBA的AutoCAD开发实践

AutoCAD 2014 二次开发 VBA 基础与实例

第一集 AutoCAD二次开发介绍

第二集 AutoCAD VBA创建直线1

我们在用VBA在AutoCAD 中完成预期的操作时，需要调用VBA提供的类或方法。这就要求我们了解vba的基本语法结构。其实vba和vb的语法结构基本相同，如果学习过vb程序设计语言的话，那么对vba的语言结构就不会陌生，如果没有学过那么，我会逐步给大家来讲解vba的语法结构。其实如果没有学过vb语言，就直接学习vba也没有问题。当然我们也不提倡为了学习vba而去学习vb程序设计语言，因为没有必要，直接学习vba发而不会受到vb的影响，他们毕竟还是有一些差别的。

我们先来看一个简单的应用：

Vba语法讲解：Dim ps As Variant '定义变量类型,在vba中使用变量前一定要先定义

Dim pt1(0 To 2) As Double Dim pt2(2) As Double 两种定义数组的方法

CAD中的点可以用数组来表示，数组中的三个值分别为x、y、z

Public Sub LineDemo()

Dim pt1(0 To 2) As Double '定义起点

Dim pt2(2) As Double '定义终点

pt1(0) = 0: pt1(1) = 0: pt1(2) = 0

pt2(0) = 100: pt2(1) = 100: pt2(2) = 0

Dim objLine As AcadLine

Set objLine = ThisDrawing.ModelSpace.AddLine(pt1, pt2)

End Sub

第三集 AutoCAD VBA创建直线2

上面的过程可以在模型空间内画出一条指定起点和终点的直线，但是如果指定的不是起点和终点，那该怎么办呢，我们可以通过相关的函数将其转换成起点和终点的形式，也可以自定义函数来实现相应的操作。

第１期（总第１４０期）　２００７年２月　机械工程与自动化　ＭＥＣＨＡＮＩＣＡＩ　ＥＮＧＩＮＥＥＲＩＮＧ　＆　ＡＵＴ（）ＭＡＴＩ（）Ｎ　Ｎｏ．１　Ｆｅｂ．　

文章编号：１６７２—６４１３（２００７）Ｏｌ一００４９—０３　

基于ＡｕｔｏＣＡＤ　ＶＢＡ技术的机械制图试题库的开发　

吉　丽　口　●　ｌＪ　（太原理工大学机械工程学院，山西　太原０３００２４）　

摘要：通过对ＡｕｔｏＣＡＤ２０００　ＶＢＡ技术的研究，运用基于ＡｕｔｏＣＡＤ２０００　ＶＢＡ的开发工具，采用改进的遗传　算法，实现机械制图试题库的智能组卷系统。　关键词：ＡｕｔｏＣＡＤ　ＶＢＡ；试题库；机械制图　中图分类号：ＴＰ３９１．７２　文献标识码：Ａ　

０　引言　随着计算机技术的飞速发展和现代教育思想、教　学手段的不断变革，基于计算机的试题库系统越来越　受到重视。试题库系统是测试内容具有较高质量、水　平稳定的重要保证，是更好达到预测目的的重要手段，　也是精品课程建设的一项重要内容。传统考试的组织　管理方式不仅工作任务繁重，而且试卷的标准化程度、　难易程度、题量大小等各方面难以控制。如何提高教　学质量，规范考试过程，尽量减少人为因素对考试的　影响，使考试更具有客观性、科学性，是教育界多年　来追求的目标。建立一个实用的机械制图试题库，不　仅为教、考分离提供一个重要工具，而且对于加强教　学管理有重要的意义。由于机械制图的试题以图形为　主，而且对图形有严格的标准化要求，因此，选用一个　合适的绘图软件作为支持平台是建立本试题库的关　键。ＡｕｔｏＣＡＤ是一个功能强大、应用普遍的绘图软　件，基于该软件的ＶＢＡ开发工具开发的机械制图试　题库可基本满足机械制图课程考试命题的需要。　１基于ＡｕｔｏＣＡＤ的ＶＢＡ技术　ＶＢＡ是非常流行的应用程序开发语言ＶＩｓＵＡＬ　ＢＡＳＩＣ的子集——Ｖｉｓｕａｌ　Ｂａｓｉｃ　Ｆｏｒ　Ａｐｐｌｉｃａｔｉｏｎ，在采　用ＶＢＡ技术的ＡｕｔｏＣＡＤ系统中，客户不仅可以通过　对象浏览器查看对象，还可以方便地了解已在　ＡｕｔｏＣＡＤ的类型库中定义的对象。由于ＶＢＡ完全支　持高级数据对象（ＡＤＯ）和ＯＬＥ　ＤＢ的高级对象模型，　所以采用ＶＢＡ技术能与其它数据库很好地集成。用　户可以从系统中取出数据，将其进行分析和显示，也　可以从别的数据库系统中读取数据，为ＡｕｔｏＣＡＤ所　用。　ＶＢＡ具有强大的开发能力，可提供强大的窗体创　收稿日期：２００６—０５—３０；修回日期：２００６—０８—３０　作者简介：吉丽（１９７４一），女，山西长治人，讲师，在职研究生。　建功能，为应用程序建立对话框及其它屏幕界面，可　创建自己的工具条和功能强大的模块级宏指令，提供　建立类模块的功能等。这些功能在试题库开发中发挥　着非常重要的作用。　２试题库系统功能模块设计　图１为试题管理系统的总体框图。　

第６０卷第１期　２０１６年１月　铁道标准设计　ＲＡＩＬＷＡＹ　ＳＴＡＮＤＡＲＤ　ＤＥＳＩＧＮ　Ｖ０１．６０　Ｎ０．１　Ｊａｎ．２０１６　

文章编号：１００４—２９５４（２０１６）０１—００１９一Ｏ４　

基于ＡｕｔｏＣＡＤ—ＶＢＡ的无缝线路一体化设计系统开发　

敖　翔　

（呼和浩特铁路局，呼和浩特０１００１０）　

摘　要：该系统利用ＡｕｔｏＣＡＤ　ＶＢＡ　ＡＰＩ成熟的内部封装机制，将大量查表计算工作和参数运算整合到程序模块内，　将多个分步计算公式在程序内部进行推导合并，并利用可视化编程工具形成用户界面。使用户输入最少的参数完　成整部计算，加快计算速度，减少错误。该系统还包含绘图模块，运行ＶＢＡ宏指挥ＣＡＤ自动绘制无缝线路单元轨　节布置图。经过多个无缝线路设计项目验证，结果证明该系统准确可靠。　关键词：无缝线路；锁定轨温；ＣＡＤ　ＶＢＡ；自动绘图　中图分类号：Ｕ２１３．９　文献标识码：Ａ　ＤＯｌ：１０．１３２３８／ｊ．ｉｓｓｎ．１００４—２９５４．２０１６．Ｏ１．００４　

Ｄｅｖｅｌｏｐｍｅｎｔ　ｏｆ　ＣＷＲ　Ｉｎｔｅｇｒａｔｅｄ　Ｄｅｓｉｇｎ　Ｓｙｓｔｅｍ　Ｂａｓｅｄ　ｏｎ　ＡｕｔｏＣＡＤ——ＶＢＡ　

Ａ０　Ｘｉａｎｇ　

（Ｈｏｈｈｏｔ　Ｒａｉｌｗａｙ　Ｂｕｒｅａｕ，Ｈｏｈｈｏｔ　０１００１０，Ｃｈｉｎａ）　

Ａｂｓｔｒａｃｔ：Ｔｈｅ　ｓｙｓｔｅｍ　ｕｓｅｓ　ｔｈｅ　ｐｒｏｖｅｎ　ｉｎｔｅｒｎａｌ　ｅｎｃａｐｓｕｌａｔｉｏｎ　

收稿日期：２０１５—０６—１４；修回日期：２０１５一Ｏ６—２４　作者简介：敖翔（１９８４一），男，工程师，工程硕士。　

５　结论　ｉｎｔｅｇｒａｔｅ　ａ　

ｐａｒａｍｅｔｅｒ　

（１）拟建川藏铁路沿线地形起伏大、构造活动强　

烈，地层岩性及气候条件复杂多变；全线大型崩滑体、　泥石流、高位危岩落石、碎屑坡、水毁、雪崩、冰害及生　

长期高陡岩质边坡等不良地质灾害发育，具有规模大、　

破坏力强、灾害发生频繁且难治理等特点。　（２）针对拟建川藏铁路沿线的地灾特点，铁路展　线应遵循线位服从桥位、桥位服从地质及线位服从车　

AutoCAD VBA二次开发初级教程

第一课：入门

1.为什么要写这个教程

市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。

2.什么是Autocad VBA？

VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令不可能完成的，只要学好VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。

3、VBA有多难？

相信大家都知道Basic是的含义。应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。

4、怎样学习VBA？

介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。本教程将陆续发布在CAD世界论坛上，您不需要付费就可以学习。本作者在此郑重承诺：关于本教程中有任何疑问，可以跟贴提问，只要有时间，本人一定会耐心解答。我不会发到任何人的邮箱中，您自己在论坛上找就可以了，请不要再向我索要这份教程。

5、现在我们开始编写第一个程序：画一百个同心圆

第一步：复制下面的红色代码

第二步：在模型空间按快捷键Alt+F8，出现宏窗口

第三步：在宏名称中填写C100，点“创建”、“确定”

第四步：在Sub c100()和End Sub之间粘贴代码

第五步：回到模型空间，再次按Alt+F8，点击“运行”

Sub c100()

Dim cc(0 To 2) As Double '声明坐标变量

cc(0) = 1000 '定义圆心座标

cc(1) = 1000

cc(2) = 0

For i = 1 To 1000 Step 10 '开始循环

Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆