initdia后的Wblock命令疑问

CAD新军

(initdia)(command "_.wblock")
这个有意使用对话框的写块命令，当选中对象写块时，结果符合预期，但源选择“整个图形”时，点确定以后，会再弹出一次另存为..位置对话框，很奇怪，有前辈指导一下怎么和普通wblock一样用吗？（其实我就是用来增加一个写2004格式文件的命令）


(defun c:wbb ( / def_ver)
    (setq def_ver (getenv "DefaultFormatForSave"))
    (setenv "DefaultFormatForSave" "24") ; 24 2004    36 2007    48 2010    60 2013    64 2018
    (initdia) (command-s "WBLOCK")
    (setenv "DefaultFormatForSave" def_ver)
    (princ)
)

整个文件就不行，无语