请问VBA如何更改动态块参考的自定义属性值啊。

涡轮 · 发表于 2007-8-31 18:07:00

请问VBA如何更改动态块参考的自定义属性值啊。
一般更改动态块自定义属性值都是在特性面板中修改，我想用VBA进行统一的批量修改，请问如何在VBA中实现呢？
乐筑天下的VBA参考中有如下说明：（看样子是是可以修改的,但不知道怎么做）
指定属性的当前值，或 CopyObjects 运算中新创建对象的对象ID。
语法
object.Value
object             ,
                     使用该属性的对象。
Value             DynamicBlockReferenceProperty 对象: Variant[变体]; 可读写属性的当前值。
                     IDPair 对象: Long[长整数]；只读在 CopyObjects 操作中新创建的克隆对象的对象ID。

涡轮 · 发表于 2007-9-1 17:57:00

Dim MyObj As AcadBlockReference
Do
ThisDrawing.Utility.GetEntity MyObj, basePnt, "选择块参照"
MsgBox "The object type is: " & MyObj.EntityName, , "GetEntity Example"
If MyObj.EntityName = "AcDbBlockReference" Then Exit Do
Loop
Dim varAttributes As Variant
'varAttributes = MyObj.GetAttributes
varAttributes = MyObj.GetDynamicBlockProperties
MsgBox varAttributes(0).PropertyName & varAttributes(0).value
经研究这段程序可读出其自定义属性及属性值
有谁知道怎么写它的属性值吗

涡轮 · 发表于 2007-9-8 15:46:00

等了几天没见什么人回答
也研究几天，其实很简单，只要
varAttributes(0).value =val
"val"一定要是Double。就为了这个Double花了我好几天的时间

wangshuping42 · 发表于 2014-2-12 22:17:00

楼主你帮我大忙了，谢谢！

请问VBA如何更改动态块参考的自定义属性值啊。

发表回复

精选推荐