筑巢architect 发表于 2015-4-16 14:15:09

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



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

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

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

筑巢architect 发表于 2015-4-16 19:43:43

Gu_xl 发表于 2015-4-16 14:15 static/image/common/back.gif


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

筑巢architect 发表于 2015-4-16 20:12:38

Gu_xl 发表于 2015-4-16 14:15 static/image/common/back.gif


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

MENGZE 发表于 2015-4-16 21:29:27

G版之作必顶

lijiao 发表于 2015-4-17 09:16:57

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

冒个烟圈 发表于 2015-6-2 21:02:22

Gu_xl 发表于 2015-4-16 14:15 static/image/common/back.gif


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

长风（尚品） 发表于 2015-8-17 13:37:15

Gu_xl 发表于 2015-4-16 14:15 static/image/common/back.gif


怎么用？

atone 发表于 2024-3-5 21:29:21

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


溜到飞起，赞

MXS 发表于 2024-3-29 13:52:23

我觉得可以增设快速反应栏到最上面
页: [1]
查看完整版本: 当前图层监视 如何在状态栏显示？