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

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

我想使用VB来连接CAD绘图

实现做好一个带属性的块单独保存在一个dwg文件中

现在想将这个属性块插入到我用vb绘制的图形中，并且修改属性的值

怎么来实现啊？

愁死了，谢谢！

另外我感觉，用vb连接CAD的方法绘图，速度比VBA直接绘制慢好多哦，大家有没有同感！

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

本帖最后由作者于 2006-8-10 10:29:32 编辑

看看置顶的帖子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如何处理.我自己的处理办法见http://bbs.mjtd.com/forum.php?mod=viewthread&tid=53460五楼

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

一个一个的加啊

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