[编程申请]：这个问题应该不难：删除同名图块（很多哈）

my_autocad

该程序应能实现以下功能：
删除同名图块（如文件中有许多层，某一个图块不是放在同一层中）
过程：
1、命令；
2、单击图块，获取图块名；
3、删除图块；
4、如不用PU命令，该图块应能再被插入到文件中
谢谢；
QQ：14707967
编好了请告之

xyp1964

[php]
;;;(load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;删除同名图块 <my_autocad>
(defun c:test (/ e name ss)
  (cmdla0)
  (setq        tx1 (ukword 1
                    "1 2"
                    "\n同名块删除方式 : 1-选样块/2-输入块名"
                    tx1
            )
  )
  (cond        ((= tx1 "1")
         (setq e    (usel 0 "INSERT")
               name (dxf 2 (entget (car e)))
         )
        )
        ((= tx1 "2")
         (setq name (strcase (ustr 1 "\n块名" name "")))
        )
  )
  (SETQ ss (ssget "X" (list (cons 0 "insert") (cons 2 name))))
  (if ss
    (command "erase" ss "")
    (princ "此块不存在！")
  )
  (cmdla1)
)[/php]