请问如何得到未打开图形的布局名称?

Myday

如题!谢谢!

龙龙仔

;;BY 龙龙仔(LUCAS)
(defun REGISTEROBJECTDBX (/ DBXSERVER) ;by Tony Tanzillo
(cond
((vl-registry-read
"HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
)
)
((not (setq DBXSERVER (findfile "AxDb15.dll")))
(alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)")
)
(t
(startapp "regsvr32.exe" (strcat "/s \"" DBXSERVER "\""))
(or
(vl-registry-read
"HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
)
(alert
"Error: Failed to register ObjectDBX ActiveX services."
)
)
)
)
) (defun C:TT (/ DWGNAME APP DOC BLOCKS DBXDOC LAYOUT LAYOUT_LIST)
(vl-load-com)
(setq DWGNAME (getfiled "选取图档" (getvar "dwgprefix") "dwg" 8))
(setq APP (vlax-get-acad-object))
(setq DOC (vla-get-activedocument APP))
(if (> (atoi (getvar "AcadVer")) 15)
(setq DBXDOC (vla-getinterfaceobject
APP
"ObjectDBX.AxDbDocument.16"
)
)
(progn
(if (not (REGISTEROBJECTDBX))
(exit)
)
(setq DBXDOC (vla-getinterfaceobject
APP
"ObjectDBX.AxDbDocument"
)
)
)
)
(vla-open DBXDOC (findfile DWGNAME))
(setq LAYOUT (vla-get-layouts DBXDOC))
(vlax-for LAY LAYOUT
(setq LAYOUT_LIST
(append LAYOUT_LIST (list (vla-get-name LAY)))
)
)
(mapcar 'vlax-release-object (list APP DOC DBXDOC LAYOUT))
(acad_strlsort LAYOUT_LIST)
)

Myday

非常感谢！

jialiang168

龙龙仔  版主  指令: tt ; 錯誤: 自動化錯誤。

是否有版本问题呢？