标注图层自动切换程序
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楼的大师绝对的高手 佩服的五体投地
自动切换图层的作用还是不错的，起码可以画图的时候自动分层，以后选择图层或者东西来方便很多。
谢谢各位大侠
好东西。下了。