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

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

<p>请问VBA如何更改动态块参考的自定义属性值啊。</p><p>一般更改动态块自定义属性值都是在特性面板中修改，我想用VBA进行统一的批量修改，请问如何在VBA中实现呢？</p><p>明经的VBA参考中有如下说明：（看样子是是可以修改的,但不知道怎么做）</p><p class="1-liner">指定属性的当前值，或 CopyObjects 运算中新创建对象的对象ID。</p><p class="1-liner">语法 </p><p class="syntax">object.Value </p><p class="element">object&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="http://www.mjtd.com/object/acad2004/idh_dynamicblockreferenceproperty_object.htm">DynamicBlockReferenceProperty</a>, <a href="http://www.mjtd.com/object/acad2004/idh_idpair_object.htm">IDPair</a><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 使用该属性的对象。 </p><p class="element">Value&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DynamicBlockReferenceProperty 对象: Variant[变体]; 可读写属性的当前值。&nbsp;<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IDPair 对象: Long[长整数]；只读 在 CopyObjects 操作中新创建的克隆对象的对象ID。 </p>

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

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

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

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

wangshuping42 发表于 2014-2-12 22:17:42

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

shermancheng 发表于 2022-10-22 12:00:49

新手上路学习中

weimeng555 发表于 2024-5-22 02:33:12

感谢楼主分享经验，刚好最近需要
页: [1]
查看完整版本: 请问VBA如何更改动态块参考的自定义属性值啊。