请高手帮我写一个在某布局插件某DWG文件为块参照的代码

清风明月名字

请高手帮我写一个在某布局插件某DWG文件为块参照的代码
求一个代码，即新建布局“A4”(如果原来有就不新建)，在布局“A4”中插入一个DWG文件“D:\Backup\我的文档\试验.dwg”作为块参照。

下面是两套可能有用的参照代码：

(DEFUN C:新建名为建设的布局()
;;;  来源：6楼 请教大家Lisp怎么对布局进行操作呢-AutoLISP/Visual LISP 编程技术-CAD论坛-明经CAD社区 - Powered by Discuz!
;;;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100499

(vla-add (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))) "建设")
)

(defun c:在所有布局的同一点插入同一块 (/ p doc layouts)
;;;来源：8楼  晓东CAD家园-论坛-晓东工具箱、编程申请-求CAD布局中同时插入块或文字方法! - Powered by Discuz!
;;;http://bbs.xdcad.net/forum.php?mod=viewthread&tid=669003
  (if (setq p (getpoint "\nInsertpoint: "))
    (progn
      (setq doc     (vla-get-activedocument (vlax-get-acad-object))
     layouts (vla-get-layouts doc)
      )
      (vlax-for layout layouts
;;; (vla-addtext
;;;   (vla-get-block layout)
;;;   "This is Testing!"
;;;   (vlax-3d-point p)
;;;   10.
;;; )
(vla-insertblock
      (vla-get-block layout)
      (vlax-3d-point p)
      "00指北针";_改为自己块名称
       1;_x 比例
       1;_y比例
       1;_z比例
       0;_旋转角度
)


       
      )
      (vlax-release-object doc)
      (vlax-release-object layouts)
    )
  )
  (princ)
)