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

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

本帖最后由 作者 于 2008-12-10 13:32:25 编辑 <br /><br /> 我想把某个实体加入已经存在的属性，看图：<br/>我想把上面的线改为下面带属性的围墙，我试了用lineObj.SetXData DataType, Data，出现找不到主键的错误，<br/>哪位大侠可以帮我看看用VBA怎么处理！<br/>

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

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

谢谢

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

<p>这句出错lineObj.Linetype = 443 线性未定义<br/>再加上这一句</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lineObj.GetXData "", xType, Xdata</p><p>扩展数据在"本地窗口"可显示出来</p>

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

本帖最后由 作者 于 2008-12-11 13:18:12 编辑 <br /><br /> 谢谢 ，非常感谢！<font face="Verdana" color="#61b713"><b><br/>fjfhgdwfn的解答！<br/><br/></b></font>

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

<p>经测试，完全可以用。</p><p>你装了CAD的扩展工具，用xdlist看看了。都可以看的到的。</p><p>找不到主键是你没有图层和线型的过，单步运行就可以看出来的。</p>
页: [1]
查看完整版本: [求助]VBA中添加扩展数据！