请高手帮我写一个在某布局插件某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)
)
页:
[1]