[求助]VBA中添加扩展数据！

single-yu · 发表于 2008-12-10 13:28:00

本帖最后由作者于 2008-12-10 13:32:25 编辑

我想把某个实体加入已经存在的属性，看图：
我想把上面的线改为下面带属性的围墙，我试了用lineObj.SetXData DataType, Data，出现找不到主键的错误，
哪位大侠可以帮我看看用VBA怎么处理！

single-yu · 发表于 2008-12-10 13:52:00

本帖最后由作者于 2008-12-11 13:16:53 编辑

谢谢

兰州人 · 发表于 2008-12-10 16:53:00

这句出错lineObj.Linetype = 443 线性未定义
再加上这一句

lineObj.GetXData "", xType, Xdata

扩展数据在"本地窗口"可显示出来

single-yu · 发表于 2008-12-10 18:43:00

本帖最后由作者于 2008-12-11 13:18:12 编辑

谢谢，非常感谢！
fjfhgdwfn的解答！

fjfhgdwfn · 发表于 2008-12-10 22:32:00

经测试，完全可以用。

你装了CAD的扩展工具，用xdlist看看了。都可以看的到的。

找不到主键是你没有图层和线型的过，单步运行就可以看出来的。

账号		自动登录	找回密码
密码			注册