救助:天河CAD中的扩展数据问题

ag503685496

请问天河cad中图纸的参数栏、附加栏等中的数据采用的是扩展数据吗？为什么我用

ThisDrawing.Utility.GetEntity a, b, "点击"
MsgBox a.HasExtensionDictionary

时结果显示为FALSE？

我要怎样才能把其中的“设计、校对、编写”等内容提取出来和写入进去？

雪山飞狐_lzh

是块的属性

ag503685496

不错，可以修改通过块的属性修改，也可以文字替换，但是一旦双击，打开天河的命令再确定，这些修改都失效了，全部复原了。所以，肯定还有数据隐藏在图纸里面，天河的编辑命令又把它提取出来了。

ag503685496

用下面的程序可以发现存在4个扩展字典，不过我不知道怎样把它的内容提取出来，也不知道其中是否是“设计、校对、审核”的内容。希望朋友们帮帮忙啊

For Each a In ThisDrawing.ModelSpace
If a.HasExtensionDictionary = True Then
MsgBox "true"
End If
Next a

雪山飞狐_lzh

http://www.jxcad.com.cn/read-htm-tid-102483.html

ag503685496

这就有点麻烦了

谢谢

ag503685496

今下午按lzh741206介绍的方法，终于解决。THCADToolKit是天河绘图主模块的一部分，不必另外安装。