citykunan 发表于 2003-12-30 08:44:00

其他图层全部冻结的办法

谁有办法将除了当前层的其他层全部冻结的办法（在一个文件中要能反复使用）。
谢谢。

meflying 发表于 2003-12-30 09:14:00


(defun c:test( / cur_lay lay)
(setq cur_lay (getvar "clayer"))
(setvar "cmdecho" 0)
(while (setq lay (tblnext "layer" (not lay)))
    (if (/= (setq lay (cdr (assoc 2 lay))) cur_lay)
      (command "_.layer" "LO" lay "")
    )
)
(princ)
)

f5612140 发表于 2003-12-30 12:11:00


(defun c:test()
(setvar "cmdecho" 0)
(command "layer" "f" "*" "")
(prin1)
)

meflying 发表于 2003-12-30 12:16:00

我得补补基础部分了，很多东西都不常用，简单的东西非让我弄复杂了，见笑了

citykunan 发表于 2003-12-30 12:56:00

谢谢飞版主。(setq lay (tblnext "layer" (not lay)))很妙。

龙龙仔 发表于 2003-12-30 16:57:00

meflying发表于2003-12-30 12:16:00static/image/common/back.gif我得补补基础部分了，很多东西都不常用，简单的东西非让我弄复杂了，见笑了



這種事我也發生過,編程習慣了就忘了autocad的功能!
页: [1]
查看完整版本: 其他图层全部冻结的办法