autocad二次开发(VBA)就这么简单
运行autocad，创建一个新文件，Alt+F11（或者在菜单栏点“工具”→“宏”→“Visual Basic 编辑器”），在新出现的窗口菜单栏点“插入”→“模块”，输入下面的代码：Sub 我的第一个程序() Dim 直线1 As AcadLine Dim 起点(2) As Double Dim 端点(2) As Double 起点(0) = 10 起点(1) = 20 端点(0) = 80 端点(1) = 100 Set 直线1 = ThisDrawing.ModelSpace.AddLine(起点, 端点)End Sub检查一下，确信没有问题后按F5回到autocad窗口，看见了吗？一条直线，起点坐标(10,20)，端点坐标(80,100)这个程序的第一行里，“SUB”和“()”是必须有的（人家微软就是这么规定的，我也没办法），“我的第一个程序”是这个程序的名字（如果你不喜欢也可以改个别的名字，我无所
之AUTOCAD二次开发VBA篇(二)
在上篇介绍VBA的文章中,我们知道了如何去做图层,今天要和大家讲的就是如何去运用上篇中的图层函数,来达到我们要的功能,比如打开图层,关闭图层等.下面我以操作下模板为例来说说:先看看下面的代码:Sub CurDIE() CreatLayer “DIE”, 14End Sub以上代码将下模板设为当前层Sub OnlyDIE() onelayer (“DIE”) If LayerExist(“DIE2″) = True Then ThisDrawing.Layers.Item(“DIE2″).layeron = False If LayerExist(“DIE2_D”) = True Then ThisDrawing.Layers.Item(“DIE2_D”).layeron = False If LayerExist(“DIE2_M”) = True Then ThisDrawing.Layers.Item(“DIE2_M”).layeron = FalseEnd Sub以上代码为
AutoCAD二次开发语言及工具介绍
1 AutoLISPAutoLISP的全名是LIST Processing Language，她出现于1985年推出的AutoCAD R2.18中，是一种嵌入在AutoCAD内部的编程语言，是LISP原版的一个子集，她一直是低版本AutoCAD的首选编程语言。它是一种表处理语言，是被解释执行的，任何一个语句键入后就能马上执行，它对于交互式的程序开发非常方便。其缺点是继承了LISP语言的编程规则而导致繁多的括号。3 ADSADS 的全名是AutoCAD Development System，它是AutoCAD的C语言开发系统，ADS本质上是一组可以用C语言编写AutoCAD应用程序的头文件和目标库，它直接利用用户熟悉的各种流行的C语言编译器，将应用程序编译成可执行的文件在AutoCAD环境下运行，这种可以在AutoCAD环境中直接运行的可执行文件叫做ADS应用程序。ADS由于其速度快，又采用结构化的编程体系，因而很适合于高强度的数据处理，如二次开发的机械设计CAD、工程分析CAD、建筑结构CAD、土木工程CAD、化学工程CAD、