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

大灰狼1976 · 发表于 2018-8-21 22:25:00

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


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

大灰狼1976 · 发表于 2018-8-21 22:32:00

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

Kye · 发表于 2018-8-22 06:28:00

帮老师顶个帖

Kye · 发表于 2018-8-23 20:44:00

老师搜下帖名动态块控制核心程序 ;;---------通用函数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 )