[求助]问个不开图获取信息的方法

16335181

很久没上论坛水了,今天冒泡上来问个问题
图的中文字是为了能更准确的表达我的问题而改的布局名字
VLISP 能做到么? 在不开图的情况下,获取图纸的信息,例如发布命令能获取布局 打印设置
对OBjectDBX不熟悉,还请各位指点下

caoyin

;;举个例子：获取指定dwg文件布局名称列表
;;其他功能自己完善
(defun TEST (DwgName / DBXDoc LST)
  (setq DBXDoc (strcat "ObjectDBX.AxDbDocument." (substr (getvar "AcadVer") 1 2))
        DBXDoc (vlax-invoke (vlax-get-acad-object) 'GetInterfaceObject DBXDoc)
  )
  (vla-open DBXDoc DwgName)
  (vlax-for OBJ (vla-get-layouts DBXDOC)
    (setq LST (cons (vla-get-Name OBJ) LST))
  )
  LST
)

16335181

caoyin发表于2009-7-30 16:16:00;;举个例子：获取指定dwg文件布局名称列表;;其他功能自己完善(defun TEST (DwgName / DBXDoc LST)  (setq DBXDoc (strcat \"ObjectDBX.AxDbDocument.\" (substr (getvar \"AcadVer\") 1 2

谢谢,拿回去研究,呵呵