[求助]：编制一个可以直接删除图层的程序...

csubake · 发表于 2005-7-9 15:49:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

大家好!!
   我想编一个lisp程序，就是直接可以删除选中的实体的所属的那个层上的所有实体。如果可能的话，最好连那个层也删去。
以下代码是我编的，可是有问题，请求援助，指导。
谢谢！！！
(defun C:er ()
(graphscr)
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq al (entsel "\n选择所要删除图层上的对象"))
(setq enl (car al))
(setq el (entget enl))
(setq tc (assoc 8 el))
(ssget "_X" '(8 . "tc")))
(command "_.ERASE" "_p" "")
(setvar "cmdecho" oce)
(princ)
  )

qjcpj · 发表于 2005-7-9 17:13:30

(defun c:er (/ oce al lay_name ss)
  (graphscr)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq al (entsel "\n选择所要删除图层上的对象"))
  (setq lay_name (cdr (assoc 8 (entget (car al)))))
  (setq ss (ssget  "X" (list (cons 8 lay_name))))
  (command "_.erase" ss "")
  (setvar "cmdecho" oce)
  (if (/= (getvar "clayer") lay_name)
(command "_purge" "la" lay_name "n")
  )
  (princ)
)

以上代码在AutoCAD 2005上调试通过。但该代码未考虑图层名为lay_name的图层在冻结或锁定时等的几种情况，楼主可自行添加代码。

csubake · 发表于 2005-7-11 12:31:43

谢谢指导，我们在选择实体的时候只能直接选择，能否进行框选或者是别的选择方式呢......

qjcpj · 发表于 2005-7-11 12:56:58

可以，请楼主看ssget函数帮助文件！

yshf · 发表于 2005-7-11 16:06:30

“0”层是不能删除的，“(if (/= (getvar "clayer") lay_name) (command "_purge" "la" lay_name "n"))”应改为“(if (and (/= "0" lay_name) (/= (getvar "clayer") lay_name)) (command "_purge" "la" lay_name "n"))”

qjcpj · 发表于 2005-7-11 23:41:58

5楼说得对，谢谢！

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

[求助] [求助]：编制一个可以直接删除图层的程序...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

谢谢指导