16335181 发表于 2009-7-30 15:11:00

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

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

caoyin 发表于 2009-7-30 16:16:00

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

16335181 发表于 2009-7-30 16:29:00

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

<p>谢谢,拿回去研究,呵呵</p>
页: [1]
查看完整版本: [求助]问个不开图获取信息的方法