当前图层监视 如何在状态栏显示？

筑巢architect

请问如何做到图中这样
当前图层监视 在状态栏显示

Gu_xl

1. (defun laychanged (vlrobj lst)
   
2.   (if (= "CLAYER" (strcase (car lst)))
   
3.     (setvar "modemacro"
   
4.             (strcat "\n当前图层<" (getvar "CLAYER") ">")
   
5.     )
   
6.   )
   
7.   (princ)
   
8. )
   
9. (or *vlrLayer*
   
10.     (progn
    
11.       (setq *vlrLayer*
    
12.              (vlr-sysvar-reactor
    
13.                nil
    
14.                '((:vlr-sysVarChanged . laychanged))
    
15.              )
    
16.       )
    
17.       (setvar "modemacro"
    
18.               (strcat "\n当前图层<" (getvar "CLAYER") ">")
    
19.       )
    
20.     )
    
21. )
    

(defun laychanged (vlrobj lst)<br />   (if (= "CLAYER" (strcase (car lst)))<br />     (setvar "modemacro"<br />             (strcat "\n当前图层<" (getvar "CLAYER") ">")<br />     )<br />   )<br />   (princ)<br /> )<br /> (or *vlrLayer*<br />     (progn<br />       (setq *vlrLayer*<br />              (vlr-sysvar-reactor<br />                nil<br />                '((:vlr-sysVarChanged . laychanged))<br />              )<br />       )<br />       (setvar "modemacro"<br />               (strcat "\n当前图层<" (getvar "CLAYER") ">")<br />       )<br />     )<br /> )<br />

筑巢architect

Gu_xl 发表于 2015-4-16 14:15

太感谢了
还有个不情之请  像图片中的  文字样式和标注样式 是否也能帮我一起弄出来  
太感谢了

筑巢architect

Gu_xl 发表于 2015-4-16 14:15

有问题  我刚才将这段lisp 加载到两个版本cad11  和16  
现在 16还能看到  但是11看不到了   纯cad  天正 理正都看不到

MENGZE

G版之作必顶

lijiao

(setvar "modemacro" "$(getvar,clayer)"))

冒个烟圈

Gu_xl 发表于 2015-4-16 14:15

这个好用，，能否指点一下，如何在这个程式基础上增加一个“当前文档名”？

长风（尚品）

Gu_xl 发表于 2015-4-16 14:15

怎么用？

atone

Gu_xl 发表于 2015-4-16 14:15

溜到飞起，赞

MXS

我觉得可以增设快速反应栏到最上面