網上找到的解決辦法是這個

經測試,方法是有效的,
不過是要在當前打開的dwg中“編輯---復制鏈接”,然后在新建打開的dwg中“編輯---原坐標粘貼”后保存,
如此這般問題才全部解決,可以完美使用(command “.wblock” ........)命令。。。
--------------------
另附今天遇到這問題的分圖層輸出文件autolisp代碼,抄的基礎上修改的,可以新建文件夾再保存各圖層文件,哈哈
(vl-load-com) ;按層存文件 明經 ZZXXQQ 2011.1.6 ,nuist 2015.12.18 (defun c:tt () (setvar "CMDECHO" 0) (setq lnm nil) (setq filepath (strcat (vla-get-Path (vla-get-ActiveDocument (vlax-get-acad-object))) "\\") ) (setq filepath (strcat (strcat filepath (getvar "dwgname")) "1\\") ) (command "sh" (strcat "rd/s/q " filepath)) (command "sh" (strcat "md " filepath)) (while (setq lnm (tblnext "LAYER" (not lnm))) (if (setq ss (ssget "X" (list (cons 8 (cdr(assoc 2 lnm)))))) (command ".WBLOCK" (strcat (strcat filepath (cdr(assoc 2 lnm))) ".dxf") "" "" "0,0" ss "") ) ) (setvar "CMDECHO" 1) (princ) )
☞ 以上lisp代碼在autocad dwg分層轉mapgis文件時超級有用哦 ☜
