请问用vba如何对dwgprops 进行赋值和提取

zgyxn

在命令行输入：dwgprops 时，有一个对话框出现，请问能对里面的参数进行赋值和提取信息吗

mccad

如果你是2004版，本来就已经提供了方法了：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=11255

zgyxn

用2002有办法吗

mccad

对于图形属性，保存的位置是在扩展记录对象AcDbXrecord中。其关键字字符串为“DWGPROPS”。
其扩展记录包括如下组码：
280，整数值：一般重担记录标志
1，字符串：常量“DWGPROPS COOKIES”
2，字符串：图形标题
3，字符串：图形主题
4，字符串：图形作者
6，字符串：图形说明
7，字符串：图形关键词
8，字符串：最后保存图形的用户名
9，字符串：版本号
300-309，字符串：用户自定义的图形属性1-10
40，消耗的时间，用天表示的累计编辑时间
41，日期和时间，创建日期和时间(本地时区的Julian日期)
42，日期和时间，最新更改的日期和时间(本地时区的Julian日期)
1，字符串，超链接基地址
90，整数：用户自定义的图形属性的数量