近来在整理多年来我自己编写的一些LISP程序。在中模论坛混迹多年,受益匪浅,所以顺便把我整理出来的一些程序贴一份在这里,有些朋友也许用得着,也算是对论坛的一点回馈。
我是做冲压模具设计的。按照我的习惯,在进行模具设计时,不同的对象是采用不同的图层(我知道有些设计师是不太喜欢分图层的),这样就使得图层的切换非常、非常的频繁。AUTOCAD2007之前,图层的切换只是通过一个图层管理器,其效果么,我感到使用起来很不方便。于是在图层控制方面我花费了许多心思,编制了大量程序,现在基本做到了得心应手。例如,用命令"5",可打开下部装配图的所有图层,包括下模板、下模垫板、下模座和下模镶块,同时关闭其他所有图层;而命令"51",仅仅打开下模板这一层,其余各图层关闭,诸如此类。今天,我先整理了图层控制命令中比较通用的三个,即:通过选择实体来打开图层(TYON)、关闭图层(TYOFF),以及打开所有图层(TYA)。
1. TYON
1.1 程序名称:TYlayON
1.2 命令名: TYON
1.3 下载 文件下载后最好放在目录C:\TYLISP下(推荐),或放在其他任何AUTOCAD支持路径下,加载后即可执行。
1.4 程序功能:
(a) 在命令行键入命令TYON,回车,点选实体,则仅打开所点选的实体所在的图层,其他图层全部关闭;
(b)在命令行键入命令TYON,回车之后,如果不接着点选实体而是再敲一次回车键,那么接下来可以框选实体或连续点选多个实体,则可以保留打开所选实体所在的图层,而其他图层关闭。
2. TYOFF
2.1 程序名称:TYlayOFF
2.2 命令名: TYOFF
2.3 下载 文件下载后最好放在目录C:\TYLISP下(推荐),或放在其他任何AUTOCAD支持路径下,加载后即可执行。
2.4 程序功能:
(a) 在命令行键入命令TYOFF,回车,点选实体,则点选实体所在的图层关闭;
(b)在命令行键入命令TYOFF,回车之后,如果不接着点选实体而是再敲一次回车键,那么接下来可以框选实体或连续点选多个实体,则所选实体所在的图层将会关闭。
3. TYA
3.1 程序名称:TYlayAll
3.2 命令名: TYA
3.3 下载 文件下载后最好放在目录C:\TYLISP下(推荐),或放在其他任何AUTOCAD支持路径下,加载后即可执行。
3.4 程序功能:这是本人最常使用的一个命令,其功能是打开所有图层。
[ 本帖最后由 ymeng 于 2008-12-8 02:41 编辑 ] |