[LISP程序]：怎样在LISP里面用命令行关掉所有图层？

起子

我现在要把图里面的两个图层的东西删掉，想法是先关掉所有图层再打开需要删的图层，删除所有图元再打开其他图层，现在的问题是用COMMAND ".layer" 不能一次关掉所有图层
在名令行可以输入OFF再输回车输"all"可以一次关掉所有土层，在LISP里面输入OFF后再输入空的话就退出选择状态了！

用
(command ".layer" "off" "" "all" "" "y" "")不行

ljpnb

应该是(command "-layer" "off"  "*"  "y" "" )
其实那个"off"后的""是多余的，程序里输入"off"之后，会自动回车，不需要再加""

它山之石

看看ET工具中是如何实现的吧。源码。

xyp1964

直接删除不更简单！
不过要有良好的画图习惯。
[php]
;;;*图层删除
(defun c:test (/ la)
  (setq        La  (cdr
             (assoc 8
                    (entget (car (entsel "\n拾取被删除图层之任一物体: ")))
             )
           )
        ss (ssget "X" (list (cons 8 la)))
  )
  (command "erase" ss "")
  (princ)
)
[/php]

起子

(command "-layer" "off" "*" "y" "" )
可以用，谢谢了！
我刚开始的时候尝试过用*，不过输入后提示是否关掉当前图层我还以为输入*是选择当前图层但是我还在纳闷，原来就是选择所有的图层了，多谢二楼的提醒！

也多谢三楼四楼的热心人！我现在想自己动手写打基础啊所以还是全部自己动手好些，四楼的方法不错，以后可能用得上，不过我现在是想不手动选择，这个改一改应该可以用，不过还是二楼的方法最简单哈

sdwy19691229

单独删除某图层
(defun c:ELAY ( ) (setvar "cmdecho" 0)  
             (while
             (setq e1 (entsel "\n选择需要删除的图层上的实体:"))
             (setq cx (cdr (assoc '8 (entget (car e1)))))
             (command "-layer" "lock" "*"  "unlock" cx "")
             (command "erase" "all" "")  (princ)
             (command "-layer" "unlock" "*" "")
             (princ) )
             (command "-layer" "unlock" "*" "") (princ)
             )

kailler

我觉得4楼最佳，原因command 用的最少

啵浪鼓

是啊,xyp1964的程序都很少用command指令,用command指令出错多,程序也变得慢些

zxmmelly

4楼的代码好象只删除了物体，没有删除图层啊

xyp1964

最初由 zxmmelly 发布
[B]4楼的代码好象只删除了物体，没有删除图层啊 [/B]

全部清除“垃圾”：puu
[php]
(defun C:PUU () (repeat 3 (COMMAND "-PURGE" "A" "" "n"))(princ)) ;清除
[/php]

狂刀

图层删除用仅仅用(ssget "X" (list (cons 8 la)))是不够的
要把块定义中的实体也删除
另外如果图层已经锁定,用(command "erase" ss "") 可能也有问题.
以上意见仅供参考

啵浪鼓

对啊,有些块中也有该图层,如果按7楼的说法是没法一并删除的

lh869

这是一个可以完全打开或关闭所有图层的程序
(defun c:ol()          ;关闭所有图层
     (command"-layer" "off" "*" "y" "")
)
(defun c:il()          ;重新打开所有图层
     (command"-layer" "on" "*" "y" "")
)
**************************************************************
（也就是略懂一二，希望大家别见笑啊！！）

czcxxx_01

:D:D:D:D:D:D:D:D:D:D