[VBA]用VB插入带属性的块？

waley111 · 发表于 2006-8-9 21:52:00

我想使用VB来连接CAD绘图
实现做好一个带属性的块单独保存在一个dwg文件中
现在想将这个属性块插入到我用vb绘制的图形中，并且修改属性的值
怎么来实现啊？
愁死了，谢谢！
另外我感觉，用vb连接CAD的方法绘图，速度比VBA直接绘制慢好多哦，大家有没有同感！

wyj7485 · 发表于 2006-8-10 08:09:00

看看置顶的帖子dispbbs.asp?boardID=27&ID=6098&page=1

lazybug · 发表于 2006-8-10 16:38:00

我VBA比较菜,看不大懂二楼链接的帖子
我的理解是这样的:
' 向块添加属性

Set attributeObj = blockObj.AddAttribute(height, mode, _
                        prompt, insertionPoint, tag, value)
' 插入块，创建块参照
' 和属性参照

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock _
            (insertionPnt, "BlockWithAttribute", 1#, 1#, 1#, 0)

'如果开中带着多个属性,我不知道AddAttribute如何处理.我自己的处理办法见五楼

wyj7485 · 发表于 2006-8-10 16:53:00

块中多个属性是与在cad下属性编辑器中的顺序相同的,要修改哪个先在cad下查查位置

lazybug · 发表于 2006-8-10 17:02:00

有问题的不是修改，是插入。我的比较绕的解决方案就是插入块，属性值为空，然后修改它的属性为我指定的"string1" "string2"……
这个问题用Lisp表述就是(command "insert" "B-GKBTI" pt "" "" "" "string1" "string2"……)
用VBA插入块的时候怎样将"string1" "string2"……加进去？AddAttribute？但是有多个属性值，AddAttribute怎么处理？

wyj7485 · 发表于 2006-8-10 17:41:00

一个一个的加啊

[VBA]用VB插入带属性的块？

发表回复

精选推荐