LISP实现CAD图层的快速切换

2014-10-29 倒立控 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是该图层的名字


评论:

xiaoxiao
2014-11-29 14:04
这个函数是写在什么下面的?
倒立控
2014-12-09 18:15
@xiaoxiao:新建一个文本后缀改成lsp,然后再CAD中AP导入就好了

发表评论:

Powered by emlog sitemap