[编程申请]：删除一个图层 无论它是否包含东西

kefengmao

我建的图层以后，不需要时经常不能删除
不知道怎么回事
希望编个程序解决这个问题

XDSoft

最初由 kefengmao 发布
[B]我建的图层以后，不需要时经常不能删除
不知道怎么回事
希望编个程序解决这个问题 [/B]

去晓东工具箱“图层工具”里面去找。

zxp

晓东工具箱0。29已经提供了这个命令。

小狼

(defun kill (/ ceng ss ll ask)
  (setvar "CMDECHO" 0)
  (setq        ask (getint "\n 1.根据实体选择层 2.已知层名:<1>")
  )
  (if (= nil ask)
    (setq ask 1)
  )
  (if (= ask 1)
    (progn
      (setq ceng
             (cdr
               (assoc 8
                      (entget (car (entsel "\n请选择要删除层的实体:")))
               )
             )
      )
    )
    (progn
      (setq ceng (getstring "\n请输入要删除的层名:"))
    )
  )
  (setq        ss (ssget "X"
                  (list (cons 8 ceng))
           )
  )
  (if ss
    (progn
      (setq ll (sslength ss))
      (princ (strcat ceng
                     "\n图层现有"
                     (itoa ll)
                     "个图形实体,你确信要删除该层吗(Y/N)?"
             )
      )
      (initget 1 "Yes No")
      (if (= "Yes" (getkword))
        (command "erase" ss "" "purge" "la" ceng "n")
      )
    )
    (progn
      (command "purge" "la" ceng "n")
      (princ "\n该图层没有图形实体!")
    )
  )
  (princ)
)

kefengmao

为什么我用您的工具箱时
出现

_XDTB_LayerDel 未知命令“XDTB_LAYERDEL”。按 F1 查看帮助。

工具栏还是很完整的。还有哪里需要加载？