之AUTOCAD二次开发VBA篇(二)

在上篇介绍VBA的文章中,我们知道了如何去做图层,今天要和大家讲的就是如何去运用上篇中的图层函数,来达到我们要的功能,比如打开图层,关闭图层等.下面我以操作下模板为例来说说:先看看下面的代码:
Sub CurDIE()
CreatLayer “DIE”, 14
End 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 = False
End Sub
以上代码为单开下模板图层
Sub DIE_D()
greatlayer (“DIE_D”)
End Sub
Sub DIE_M()
greatlayer (“DIE_M”)
End Sub
Sub closeDIE()
Call layeron(“DIE”, False)
End Sub
以上代码为关闭下模板图层
Sub deleteDIE()
Call DelLayer(“DIE”)
End Sub
Sub openDIE()
Call layeron(“DIE”, True)
End Sub
以上代码为打开下模板图层,注意这里与单开的区别!
Sub selDIE()
SelectENT (“DIE”)
End Sub
Sub MainDIE()
MainLayer “DIE”
End Sub
在上面的代码中,我将下模板定义为DIE,这样当我们需要进行其中一项操作时,就可以直接调用其中的函数了,例如关闭图层,我们就可以直接写下Call layeron(“DIE”, False)这一行代码就行了!其它的模板代码的话,您只要将对应的DIE修改为对应模板就好了.如果您需要所有模板代码,可以在下方的评论中留言,小编会尽快给您发过去!
转载请注明文章转载自： 网络资源 [ http://www.makehao.com]