vba如何修改属性块的属性值?

lazybug

接触VBA不深,可能问的问题比较基础

请高手不吝赐教.

最好给个小例子,谢谢了先

fjfhgdwfn

看看帮助吧.对象block

lazybug

有没有高手知道的,稍微提点一下.

应该是要用到Update,但是用这个之前该做些什么?

还有个另外的小问题,插入已经定义好的属性快,用lisp实现如下:

(command "insert" "B-GKBTI" pt "" "" "" "string1" "string2")

我很仔细的看过帮助,现在能做到这一步

ThisDrawing.ModelSpace.InsertBlock Pt, "B-GKBTI", 1#, 1#, 1#, 0

问题是string1\string2怎么加进去?

雪山飞狐_lzh

[WEB]http://www.mccad.net/object/acad2004/idh_getattributes.htm[/WEB]

lazybug

问题已解决,但还是谢谢4楼

恩,还有二楼.不过看"对象block "是不能解决改变属性的问题的.

 

解决方法:

1.    ' 更改属性值

    ' 注意：没有 SetAttributes。一旦包含

    ' 变量数组，就拥有了对象。

    ' 更改这些对象就会改变图形中的对象。

    varAttributes = blockRefObj.GetAttributes

    varAttributes(0).textString = "NEW VALUE!"

2. 没有找到插入带多属性的属性块的直接方法.我是这么做的

obj=ThisDrawing.ModelSpace.InsertBlock Pt, "B-GKBTI", 1#, 1#, 1#, 0

插入该块,所有属性值为空.然后修改obj的属性值.

我知道有AddAttribute方法,但是当有多个属性时就不会用了,所以解决办法比较绕,望高手不要见笑