新建空白文档，对当前文档外部参照插入并分解
本帖最后由 nyistjz 于 2022-8-26 10:46 编辑以下代码，可以新建一个空白文档，对当前文档以外部参照的形式插入并分解。
按单个步骤测试正常，但整体运行就会报错无法运行，请朋友们帮忙看一下，是哪个地方出错了，如何修改，感谢 ！
;新建空白文档，对当前文档外部参照插入并分解
;第1步
(setq *acad* (vlax-get-acad-object))
(setq Docsets (vla-get-Documents *acad*))
(setq NewDrawing1 (vla-add Docsets "")) ;新增加一个图形
;第2步
(setq path (getvar "dwgprefix"))
(setq name (getvar "dwgname"))
(vl-bb-set "fullname" (strcat path name))
;第3步
(setq lastinsex (1- (vla-get-count Docsets)));新增加图形的索引号，即最后一个，第一个为0
(setq Obj (vla-item Docsets lastinsex));
;(setq Name (vla-get-Name Obj));返回图形名字，如Drawing4.dwg
(vla-activate Obj);激活新增加的图形
;第4步
(setq fullname (vl-bb-ref "fullname"))
(command-s "-xref" "A" fullname "0,0,0" "1" "" "0")
(and (getvar "bindtype") (setvar "BINDTYPE" 1));图层不带前缀
(command-s "-xref" "Bind" "*")
(command-s "explode" (ssget "L" '((0 . "insert"))) "")
(vla-zoomextents *acad*)
顶起来，希望被大佬看到。
页:
[1]