inhoo 发表于 2011-5-29 13:06:44

求图层管理的lisp

要达到的效果：比如 用K 关闭某图层在用K一次 就开启这一图层。

669423907 发表于 2011-5-31 20:45:06

很有创意的程序！我帮你顶！

Andyhon 发表于 2011-6-1 10:12:22

Layer 下有 on/off;Lock/unLock;Freeze/Thaw
您的需求是切换on/off !??

xiaxiang 发表于 2011-6-1 10:32:39

贴一个 lenlenq 写的程序。不知楼主是要这个程序吗
(defun layer-op (la / tbl clo)
(if (setq tbl (tblsearch "layer" la))
    (progn
      (setq clo (cdr (assoc 62 tbl)))
      (setq cla (getvar "clayer"))
      (if (> clo 0)
    (if (/= cla la)
      (command "layer" "off" la "" )
      (command "layer" "off"   la "Y" "" )
    )
    (command "layer" "on" la "" )
      )
    )
    (alert (strcat "本图档无{"la"}图层"))
)
)

(defun c:1()
(layer-op "1")
(princ)
)
(defun c:2()
(layer-op "2")
(princ)
)

cjjh8301 发表于 2011-6-1 12:54:11

类似的插件多的很，论坛里搜索下就有了。

inhoo 发表于 2011-6-2 21:40:08

请楼上明示
页: [1]
查看完整版本: 求图层管理的lisp