之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二次开发(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”和“()”是必须有的（人家微软就是这么规定的，我也没办法），“我的第一个程序”是这个程序的名字（如果你不喜欢也可以改个别的名字，我无所