利用lisp实现CAD图层的快速切换

前一段时间介绍了通过动作宏来的录制来实现CAD图层的快速切换。如果图层比较多的时候就需要录制很多个动作宏，修改起来也不方便。今天再介绍一种更加方便的方法来快速切换图层。...



前一段时间介绍了通过动作宏来的录制来实现CAD图层的快速切换。如果图层比较多的时候就需要录制很多个动作宏，修改起来也不方便。今天再介绍一种更加方便的方法来快速切换图层。

通过LISP来实现CAD图层的快速切换。

我们都知道CAD中有个变量叫做系统变量。这个变量存储了CAD当前的一些配置信息。今天我们要用到的变量就是”clayer”。 ”clayer”这个变量存储的就是我们CAD中当前所在图层的图层名。我们要快速切换图层只要修改这个”clayer”变量所存储的图层名字就可以了。

具体代码我这里贴出来：

;设置当前图层的函数：

(defun ChangeLayer (TargetLayer) ;设置当前图层的函数

(setvar "clayer" TargetLayer)    ;设置当前图层为目标图层

)

;快速切换图层的函数:

(defun c:111()                   ;动力线缆图层切换函数(也是调用的快捷键)

(ChangeLayer "2-动力-线缆")      ;对设置图层函数的调用

)

(defun c:222()

(ChangeLayer "3-照明-线缆")

)

这里的111、222就分别是切换到"2-动力-线缆"、"3-照明-线缆"这两个图层的快捷键。

有需要的图层只需要在代码中继续添加下面的函数来实现。

(defun c:xxx()

(ChangeLayer "yyy")

)

其中xxx是切换该图层的快捷键，yyy是该图层的名字。

上期有人问到这个代码怎么使用。下面我简单讲一下使用步骤：

1.复制上述代码到记事本并根据自己需求做适当改动。

2.保存关闭后将TXT文档的后缀改成.lsp

3.在CAD中通过快捷键AP来加载这段代码

也有部分人不会弄这些代码，我这里也提供一个我自己开发的小工具来更方便的实现快速的图层切换。

小葛CAD工具箱的图层切换功能：

打开小葛CAD工具箱的图层切换如下所示



点击编辑就可以编辑对应需要快速切换的图层。

具体使用操作如下图gif动画所示。



小葛CAD工具箱是我自己根据自己的平时的工作需求开发的一个自己用的CAD小工具，不断地更新到现在已经100多项功能了。开始自己用，后来也有越来越多的人喜欢使用它了，现在免费分享给大家不收任何费用。

工具箱暂时主要分图层管理、快速选择、文字编号、文字处理、图块功能、电气功能、统计功能、其他功能八个板块。此八个板块均支持自定义快捷键调用板块界面，当然所有板块中的子功能本身都是支持自定义快捷键的，默认写入功能首字母的命令，用户可以自定义修改。推荐使用快捷键，并且将常用的功能修改为自己方便的快捷键。

工具箱是我业余时间自学开发的，还有大多数功能是我工作过程中遇到问题的解决方案，和专业的开发还是有很大的差距。希望大家能多指点指点，我会慢慢去完善它。

快捷键预览：



由于这里无法添加附件。

需要工具箱的读者添加下方我的微信或者QQ我会一个个发送的完全免费。

    关注 黑石