vba如何修改属性块的属性值?
接触VBA不深,可能问的问题比较基础请高手不吝赐教.
最好给个小例子,谢谢了先
看看帮助吧.对象block 有没有高手知道的,稍微提点一下.
应该是要用到Update,但是用这个之前该做些什么?
还有个另外的小问题,插入已经定义好的属性快,用lisp实现如下:
(command "insert" "B-GKBTI" pt "" "" "" "string1" "string2")
我很仔细的看过帮助,现在能做到这一步
ThisDrawing.ModelSpace.InsertBlock Pt, "B-GKBTI", 1#, 1#, 1#, 0
问题是string1\string2怎么加进去?
http://www.mccad.net/object/acad2004/idh_getattributes.htm 问题已解决,但还是谢谢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方法,但是当有多个属性时就不会用了,所以解决办法比较绕,望高手不要见笑
页:
[1]