在CAD中，是否有将所选图层设为当前图层的快捷键？？？

pgp里面只能定义一般的快捷键，你问的这些都属于二次开发的了，要编lsp程序才行。把下面的复制到acad.lsp文件里面，就可以用了，如果不能自动加载，就输入快捷键ap重新加载下。加载后设置当前图层为默认的快捷键是"s1"，快捷键可以自己修改，在下面程序的对应位置修改即可。希望能帮到你，如有疑问可以再补充问题。祝你好运~！~

***chang layer to current
(defun c:s1(/ x)
(setq x (ssget))
; (command "chprop" "p" "" "c" "bylayer" "" )
(setq x1 (entget (ssname x 0)))
(setq x2 (assoc 8 x1))
(command "layer" "s" (cdr x2) "")
);end

我用的是2006的cad，在设计院看到有人设置的图层快捷键，有隐藏其他图层，显示其他图层，隐藏当前图层，切换图层等快捷键，并不像是cad自带的快捷。有会的大哥、大姐教一下。需要什么工具可以发我信箱，270778099@qq.com。谢谢
步骤如下：

依次找CAD工具菜单，自定义，编辑程序参数（acad.pgp）

然后就打开了一个PGP文件。

然后添加下面的内容：（汉字部分是我加的解释，不要带进去。另外，最前面的大写字母，是我定义的内容，你可以根据自己的习惯自己选其他字母或字母组合，因为LAYER首字母L在右手区，所以我尽量用图层首字母T字开头，后加一个字母，仅供参考）

DQ, *ai_molc 将对象图层置为当前。DQ，就是当前喽。

TC, *LAYER 图层对话框。图层首字母。

TTC, *layerp 上一个图层状态。多加了一个T，和上面的命令区别开

TCC, *copytolayer 将图对象复制到XX图层，选好对象后，空格，会出一个对话框，

TD, *layon 图层打开

TF, *layoff 图层关闭

TG, *layiso 将对象所在图层孤立出来，即，关闭除对象图层外的所有图层。支持多选。

TS, *laylck 图层锁定

TSS, *layulk 图层解锁，多加了个S，和上面的区别开。

TTh, *laymrg 图层合并，具体用法我不记得了。呵呵。。只是当时定义了一下。

TZ, *layfrz 图层冻住。

TZZ, *LAYTHW 图层解冻

Tq, *LAYCUR 将所选对象移动到当前图层。注意与DQ命令区别开

Tv, *LAYMCH 将对象移动到XX图层，与TTC类似。只是TTC是复制，这个是移动。

==========

注意， 1。要装上EXPRESS TOOLS，就是传说中的快车工具，才可以的。CAD04安装包里有。或者在网上下。

06以上的版本里安装时默认是会装上的。

2。*号前面的字母，比如我上面的TC，DQ，是自定义内容，后面是命令全称。

保证是 XX *xxxx的格式就行。

3。*号前面的字母，不要与其他命令简称重复，不然，程序会晕的，呵呵。

祝好运~
试了下，不错，谢谢