主要原理就是通过设置CAD的系统变量"clayer",也就是当前图层变量来实现图层的切换，程序代码如下：

;*******图层快速切换



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

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

)



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

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

)



(defun c:222()

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

)