LISP实现CAD图层的快速切换
利用lisp实现CAD图层的快速切换。主要原理就是通过设置CAD的系统变量"clayer",也就是当前图层变量来实现图层的切换，程序代码如下：
;*******图层快速切换 (defun ChangeLayer (TargetLayer) ;设置当前图层的函数 (setvar "clayer" TargetLayer) ;设置当前图层为目标图层 ) (defun c:111() ;动力线缆图层切换函数(也是调用的快捷键) (ChangeLayer "2-动力-线缆") ;对设置图层函数的调用 ) (defun c:222() (ChangeLayer "3-照明-线缆") )可以通过添加
(defun c:xxx()
(ChangeLayer "yyy")
)
来添加需要切换的图层，其中xxx是切换该图层的快捷键，yyy是该图层的名字
评论：
2020-07-21 10:54