[求助]：求助，在lisp程序，关于块的问题？

JJL

在lisp程序中，如果要插入一个块文件，但图纸中有一个同名的块，这时程序优先插入块，而不插入快文件，不知如何解决？谢谢

cy956

将命名块或图形插入到当前图形中

命令行： insert

块名（或 ?）<当前值>：  输入名称、输入 ?、 输入 ~ 或按 ENTER 键

输入 ? 列出定义在图形中的当前块。输入波浪线 (~) 显示“选择图形文件”对话框。插入时在块名称的前面添加一个星号 (*) 可同时分解块的对象。EXPLODE 用于在插入块后分解块中的对象。插入图形中的编组对象被作为未命名的编组，但当“对象编组”对话框中的“未命名”被复选时，这些编组将被列出。详细信息请参见 Group。

如果输入一个不带路径名的块名，AutoCAD 根据名称首先搜索当前定义的块定义，如果当前图形中没有这样的块定义，AutoCAD 将在库搜索路径中搜索同名文件。如果 AutoCAD 找到这样的文件，在 AutoCAD 插入块定义时，文件名将被用于块名称。AutoCAD 随后插入该块时，使用相同的块定义。如果将一个文件作为块加载，可以在“块名”提示的响应中输入以下内容为块命名：

块名（或 ?）<当前值>：  block name=file name

在编辑任务中最后插入的块名在提示中作为“当前值”出现。

2. 
   
3. (defun c:ingx(/ BLKN FIL FILB FILE);;;插入的dwg图，以更新本图内同名块
   
4.   (undo_begin)
   
5.   (setq fil(dos_getfilem "选择要插入的dwg图，以更新本图内同名块【按shift可多选】"
   
6.              "d:/acade/" "Drawing Files (*.DWG)|*.DWG"))
   
7.   (setvar "expert" 5)(setvar "filedia" 0)
   
8.   (if fil
   
9.     (foreach x fil
   
10.       (setq file(strcat (car x)(cadr x))
    
11.             filb (dos_splitpath file)
    
12.             blkn(nth 2 filb))
    
13.       (command "Insert" (strcat BlkN "=" file) (command))
    
14.   ) )
    
15.   (setvar "expert" 0)(setvar "filedia" 1)
    
16.   (undo_end)(princ)
    
17. )
    

<br /> (defun c:ingx(/ BLKN FIL FILB FILE);;;插入的dwg图，以更新本图内同名块<br />   (undo_begin)<br />   (setq fil(dos_getfilem "选择要插入的dwg图，以更新本图内同名块【按shift可多选】"<br />              "d:/acade/" "Drawing Files (*.DWG)|*.DWG"))<br />   (setvar "expert" 5)(setvar "filedia" 0)<br />   (if fil<br />     (foreach x fil<br />       (setq file(strcat (car x)(cadr x))<br />             filb (dos_splitpath file)<br />             blkn(nth 2 filb))<br />       (command "Insert" (strcat BlkN "=" file) (command))<br />   ) )<br />   (setvar "expert" 0)(setvar "filedia" 1)<br />   (undo_end)(princ)<br /> )<br />

JJL

多谢斑竹