vba blockreference的简单问题

danold1

cad2014
在模型空间中建立了一个属性快，但是在vba中写入以下代码取得块，在本地窗口中查看该对象显示 “无变量” ：

Public Sub test()
Dim cadblockref As AcadBlockReference
Dim pt As Variant
ThisDrawing.Utility.GetEntity cadblockref, pt, ""
Stop

End Sub



请问哪位大神帮一下。

2017forverd

cadblockref 的类型是不是定义错了，换成Acadobject试试那？

mikewolf2k

代码没问题，楼主没选中块。