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

lazybug · 发表于 2006-8-8 17:04:00

接触VBA不深,可能问的问题比较基础
请高手不吝赐教.
最好给个小例子,谢谢了先

fjfhgdwfn · 发表于 2006-8-8 18:36:00

看看帮助吧.对象block

lazybug · 发表于 2006-8-9 16:13:00

有没有高手知道的,稍微提点一下.
应该是要用到Update,但是用这个之前该做些什么?
还有个另外的小问题,插入已经定义好的属性快,用lisp实现如下:
(command "insert" "B-GKBTI" pt "" "" "" "string1" "string2")
我很仔细的看过帮助,现在能做到这一步
ThisDrawing.ModelSpace.InsertBlock Pt, "B-GKBTI", 1#, 1#, 1#, 0
问题是string1\string2怎么加进去?

雪山飞狐_lzh · 发表于 2006-8-9 21:52:00

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

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

问题已解决,但还是谢谢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方法,但是当有多个属性时就不会用了,所以解决办法比较绕,望高手不要见笑

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

发表回复

精选推荐