一个十分方便的关闭层的小程序

yxljx · 发表于 2006-1-19 23:21

(defun c:ff(/ pt ss w e l )
(setq oer *error* *error* myerr)
(setvar "cmdecho" 0)
(setq ss (entsel "\n点取层中某一物体:"))
(while ss
     (setq w (getvar "clayer"))
     (if (= (type ss) 'list)
       (progn
         (setq e (entget (car ss)) L (cdr (assoc 8 e)))
         (if (eq l w) (command "layer" "off" l "y" "")
           (command "layer" "off" l "")
         )
         (princ (strcat "    (" l "层已被关闭)"))
       )
     )
     (initget "U")
     (setq ss (entsel "\nU/<点取层中某一物体>:"))
     (if (eq ss "U") (command "u"))
)
(setq *error* oer)
(princ "\n

tianyuan · 发表于 2006-1-20 09:08

yhhyxm · 发表于 2006-9-17 19:29

好呀

dnnlog · 发表于 2006-9-18 15:24

好呀好呀！！！

cslee110 · 发表于 2006-9-21 10:31

加载后提示字符串有缺陷！

xtjd · 发表于 2006-9-21 13:43

(defun c:test(/ ss nn st lay)
(setvar "cmdecho" 0)
(command ".undo" "be")
(princ "请选择欲关闭图层中的对象 < 可框选 >：")
(if (setq ss (ssget))
    (progn
      (setq nn (sslength ss) st 0)
      (repeat nn
        (setq lay (cdr (assoc 8 (entget (ssname ss st)))))
        (if (or (= (strcase lay) (getvar "clayer"))(= lay (getvar "clayer")))
          (command ".layer" "off" lay "y" "")
          (command ".layer" "off" lay "")
        )
        (setq st (1+ st))
      )
    )
    (princ "\n没有选中物件.")
)
(command ".undo" "e")
(prin1)
)

rodger · 发表于 2006-9-28 12:57

好用吗？

woaishuang · 发表于 2006-9-28 16:48

能告诉我怎么用吗

8350 · 发表于 2006-9-29 08:21

楼主,什么东西都用不了呢,请解释!!!!!!!?????????

honxj · 发表于 2006-11-4 21:46

楼主的LSP不完整，不过6楼的哥们儿的做的不错！

账号		自动登录	找回密码
密码			注册