【求助】后绑定导致程序运行失败

lennie

1. 
   
2.         For Each Entry In SsTuKuang
   
3.             If StrComp(Entry.EntityName, "AcDbBlockReference", 1) = 0 Then
   
4.               Set Block_obj = Entry

复制代码

如果引用CAD类型库     
    Dim Entry     As AcadEntity
    Dim Block_obj As AcadBlockReference
程序可以顺利运行

如果采用后绑定
    Dim Entry     As object
    Dim Block_obj As object
程序运行到Set Block_obj = Entry就会出现错误：“未设置对象变量或 With Block变量”

mccad

既然对象类型都明确了，还定义成Object就没有意义了。

lennie

明总，因为是DLL所以无法调试。今天我按你的意思取消了Block_obj，直接用Entry.InsertionPoint还是同样的错误。是不是调用InsertionPoint属性必须要明确对象是AcadBlockReference？

xinghesnak

都声明成变体试试

lennie

Variant 也不行

sxpd

用For i = 0 to ss.Count - 1试试

lennie

问题解决了。insertpoint必须要先赋值给variants，然后才能读取。