标注图层自动切换程序
 

标注图层自动切换程序
www.dimcax.com
标注图层自动切换程序
标注图层自动切换程序
131

是vba的还是lisp的，帖个图片上来，说明一下

vba也可以这样做
将以下代码加到thisdrawing里
option explicit
dim oldlayer as acadlayer
private sub acaddocument_begincommand(byval commandname as string)
debug.print commandname
select case commandname
case "dimlinear", "dimaligned", "dimarc", "dimordinate", "dimradius", "dimjogged", "dimdiameter", "dimangular", "qdim", "dimbaseline", "dimcontinue", "qleader"
set oldlayer = thisdrawing.activelayer
thisdrawing.activelayer = thisdrawing.layers.item("7标注层")
end select
end sub
private sub acaddocument_endcommand(byval commandname as string)
select case commandname
case "dimlinear", "dimaligned", "dimarc", "dimordinate", "dimradius", "dimjogged", "dimdiameter", "dimangular", "qdim", "dimbaseline", "dimcontinue", "qleader"
thisdrawing.activelayer = oldlayer
end select
end sub

以上代码为在没有其它插件的情况下， "7标注层"已经存在的情况下

也可以在代码里判断并创建此图层

都是好资料，谢谢各位大侠

谢谢各位大侠

1楼的大师绝对的高手 佩服的五体投地

自动切换图层的作用还是不错的，起码可以画图的时候自动分层，以后选择图层或者东西来方便很多。

谢谢各位大侠

好东西。下了。