标注后自动切换到指定层
 

标注后自动切换到指定层
www.dimcax.com
标注后自动切换到指定层
标注后自动切换到指定层，在thisdrawing模块加入以下代码,"7标注层"可换成你有的图层
private sub acaddocument_endcommand(byval commandname as string)
dim strname as string
with thisdrawing.modelspace
strname = right(.item(.count - 1).objectname, 9)
if strname = "dimension" then .item((.count - 1)).layer = "7标注层"
end with
end sub