求助：为何Block类型不能取得动态块属性数组

大灰狼1976

新手求助，使用下述代码，能判断对象是否为动态块，为什么不能取得属性数组？

2. Sub test()
   
3. Dim objBlkDef As AcadBlock
   
4. For Each objBlkDef In ThisDrawing.Blocks
   
5.   If objBlkDef.IsDynamicBlock Then
   
6.     If objBlkDef.Name = "2458339.445652801" Then
   
7.       Dim dybProp As Variant
   
8.       dybProp = objBlkDef.GetDynamicBlockProperties
   
9.       For i = LBound(dybProp) To UBound(dybProp)
   
10.         If dybProp(i).PropertyName = "距离" Then
    
11.           dybProp(i).Value = 500#
    
12.           Exit For
    
13.         End If
    
14.       Next i
    
15.     End If
    
16.   End If
    
17. Next
    
18. End Sub

Sub test()<br /> Dim objBlkDef As AcadBlock<br /> For Each objBlkDef In ThisDrawing.Blocks<br />   If objBlkDef.IsDynamicBlock Then<br />     If objBlkDef.Name = "2458339.445652801" Then<br />       Dim dybProp As Variant<br />       dybProp = objBlkDef.GetDynamicBlockProperties<br />       For i = LBound(dybProp) To UBound(dybProp)<br />         If dybProp(i).PropertyName = "距离" Then<br />           dybProp(i).Value = 500#<br />           Exit For<br />         End If<br />       Next i<br />     End If<br />   End If<br /> Next<br /> End Sub

大灰狼1976

必须是AcadEntity才能取得此属性数组吗，但是用这个类型却得不到对象的正确名称，因为动态块调整过一次后会变成匿名块。各位大神请不吝赐教！

Kye

帮老师顶个帖

Kye

老师搜下帖名 动态块控制核心程序  ;;---------通用函数2：获得动态块所有属性(明经CAD论坛提供)--------- (defun xyl-getdynallpropvalue (par_blkref)   (setq Pros (vlax-invoke par_blkref 'GetDynamicBlockProperties))   (mapcar '(lambda (X)              (cons (vlax-get X 'PropertyName) (vlax-get X 'Value))            )           Pros   )

Kye

这个贴 动态块问题，实在找不出来哪错了，请各位前辈抽空看下源码  与你的问题更接近

大灰狼1976

对AUTOLISP没研究过，正在学习VBA二次开发，用EffectiveName取到动态块的原始名后，我的问题已解决，谢谢帮顶。

nslove44202489

用blockreference不要用block

chuyuan.wu

谢谢分享。

dbgaytsy39185

学习了

chixun99

大灰狼1976 发表于 2018-8-25 00:02
对AUTOLISP没研究过，正在学习VBA二次开发，用EffectiveName取到动态块的原始名后，我的问题已解决，谢谢帮 ...

objBlkDef.Name这个块名是动态变化的，一般是个随机的字符串，所以vba取块名并不是原始块的那个块名。如判断原始块名还是需要用EffectiveName属性。