是(command "erase")bug还是我代码有问题，求各位大神解答

qazw650

小弟最近在写一个处理底图的代码。写到把一些没用的图层、图元分类删除的地方，分类完成了，但在删除的功能时，因为要直接删除选择集（由于图元较多，循环删除选择集内图元耗时太长，故放弃），用了(command "erase")命令，但可以执行第一个command命令，执行第二个command删除命令的时候就报错，不知道是command删除命令有bug还是我的代码不对，求各位大神指导
(defun c:asdf()
  (setq total nil)
  (setq total_group nil)
  (setq dimiden nil)
  (setq dimiden_group nil)
  (setq dote nil)
  (setq dote_group nil)
  (setq dimlead nil)
  (setq dimlead_group nil)
  (setq pubdim nil)
  (setq pubdim_group nil)
  (setq wallsolid nil)
  (setq wallsolid_group nil)
  (setq itm nil)

  (setq total (ssget))
  (foreach itm (vl-remove-if 'listp (mapcar 'cadr (ssnamex total)))
    (or total_group (setq total_group (ssadd)))
    (ssadd itm total_group)
                 )

  (setq dimlead (ssget "P" '((8 . "DIM_LEAD"))))
  (foreach itm (vl-remove-if 'listp (mapcar 'cadr (ssnamex dimlead)))
    (or dimlead_group (setq dimlead_group (ssadd)))
    (ssadd itm dimlead_group)
    (ssdel itm total_group)
                 )

  (command "erase" dimlead "")

  (sssetfirst nil total_group)
  (setq pubdim (ssget "P" '((8 . "PUB_DIM"))))
  (foreach itm (vl-remove-if 'listp (mapcar 'cadr (ssnamex pubdim)))
    (or pubdim_group (setq pubdim_group (ssadd)))
    (ssadd itm pubdim_group)
    (ssdel itm total_group)
                 )

  (command "erase" pubdim "")


  (sssetfirst nil total_group)
  (setq wallsolid (ssget "P" '((8 . "PUB_WALL") (2 . "SOLID"))))
  (foreach itm (vl-remove-if 'listp (mapcar 'cadr (ssnamex wallsolid)))
    (or wallsolid_group (setq wallsolid_group (ssadd)))
    (ssadd itm wallsolid_group)
    (ssdel itm total_group)
                 )

  (command "erase" wallsolid "")



  )

qazw650

求大佬回复

qazw650

求大佬帮忙，谢谢各位大佬

start4444

思路太绕了，很多语法也不对，看看是不是这样的效果

(defun c:tt5 (/ dimlead pubdim ss wallsolid)
(setq ss (ssget))
(if (setq dimlead (ssget "P" '((8 . "DIM_LEAD")))) (command "erase" dimlead "" "SELECT" ss ""))
(if (setq pubdim (ssget "P" '((8 . "PUB_DIM")))) (command "erase" pubdim "" "SELECT" ss ""))
(if (setq wallsolid (ssget "P" '((8 . "PUB_WALL") (2 . "SOLID")))) (command "erase" wallsolid ""))
(princ)       
)

前生

(while
(cond
  ( (= (cdr  (assoc 8 (entget ...))) "你想删除的。。") (entdel ...)
)

)