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

qazw124

小弟最近在写一个处理底图的代码。写到把一些没用的图层、图元分类删除的地方，分类完成了，但在删除的功能时，因为要直接删除选择集（由于图元较多，循环删除选择集内图元耗时太长，故放弃），用了(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 "")



  )

Lisphk

执行 删除代码前，先判断选择集是否存在
另外，你出错的提示是什么？