自动切换图层程序V1.1(自动将某个命令生成的对像按预先指定的颜色放在指定的图层上)

    自动切换图层程序 V1.1(自动将某个命令生成的对像按预先指定的颜色放在指定的图层上).rar (21.91 KB, 下载次数: 4690)

2011-11-19 01:38 上传

点击文件名下载附件

自动切换图层程序 V1.1  下载 ，右键点击上面的链接，选择目标另存为进行下载



本次更新增加了初始状态下的自动图层设置，这样可以减轻用户使用时的命令配置。
用户可根据自己的绘图习惯增加或更改其它命令配置。

在实际的绘图中，有些命令必须使用指定的图层来存放，以便于图形的组织，如标注对象应该放在标注层上，而填充图案放到填充图案相关的图层中。
如果在绘图时手动切换图层，则很麻烦。
本程序会自动辨别不同的命令来切换不同的图层，使你不必去关心当前的图层状态，这样可大大的加快绘图的速度。
程序在VBA中开发，关通过对话框的方式来对命令进行配置。
本程序只适用于Autocad 2000版及以上版本。


安装操作步骤：
把AutoLayer.dvb文件解压到AutoCAD的\support目录下，然后修改acad2000doc.lsp或acad2004doc.lsp文件，加入以下内容：

1. 
   
2. 
   
3. (vl-vbaload (findfile "AutoLayer.dvb"))
   
4. (defun c:AutoLayerConfig ()
   
5.   (setvar "cmdecho" 0)
   
6.   (command "-vbarun" "AutoLayer.dvb!AutoLayerConfig")
   
7.   (setvar "cmdecho" 1)
   
8.   (princ)
   
9. )
   
10. (defun c:ALC ()
    
11.   (c:AutoLayerConfig)
    
12.   (princ)
    
13. )
    
14. (princ)
    
15. 
    
16. =============================
    
17. 
    

复制代码