[编程申请]：申请高手帮忙编程－自动换层工具

zlc_2000

我只有一个2k，2002，上可以运行的版本。
功能是这样的：
1。检测你当前所用的命令，如果你的命令＝A，那么你所绘图纸的图层就是A层。
程序可以将 ACAD 命令和特定的层对应起来，比如可以将尺寸指定到“Dim”层，这个是一个增强曾程序

本程序可以将 ACAD 命令和特定的层对应起来，比如可以将尺寸指定到“Dim”层，因为我们在用 ACAD 画图时，为了便于管理，一般将尺寸放在同一层内，但具体操作时较麻烦。具体办法可以修改菜单。比如可以在，在命令前加上(setvar "CLAYER" "DIMLAYER")让他自动转到尺寸层"DIMLAYER"上去。不过还不够完美，最好的办法就是在标尺寸时， ACAD 能自动将尺寸标注到尺寸层上去。这个程序就是用来实现这个功能的。标注尺寸时，如果指定的尺寸层已经存在，就转到尺寸层上，如果还没有尺寸层，就会自动建一个。其他命令，只要不是透明命令，都可以到指定层上去，至于具体是什么层，请看配置文件 Specifylayer.ini。
配置文件 Specifylayer.ini 格式：等号左边是命令，右边是层名。你可以随意添加命令和层的对应关系。但命令不能是 AutoLISP 的函数产生的命令。 Specifylayer.ini 可直接用记事本打开编辑。
程序加载方法：将 Specifylayer.arx、Specifylayer.ini 和 acad.rx 复制到 ACAD2000 的安装目录下(一般是"C:\Program Files\ACAD2000")即可。如果安装目录下已经有文件 acad.rx 了，就将 acad.rx 里的内容添加到原文件里，重新运行ACAD2000 即可。 acad.rx 可直接用记事本打开编辑。

这个是原程序的说明，原程序我作为附件发上来，麻烦高手帮忙写一个