只是一个玩笑
感谢您的反馈，但我不认为我'；我没有遍历任何集合，是吗 
M
在调用该方法时没有
如果您上传了电子表格和带有重现问题步骤的样例dwg，也许有人可以对其进行故障排除。有#039；这里没有多少信息
Dim blkDef As AcadBlock, _
blkRef As AcadBlockReference, _
tempBlkName As String, _
origTblHndl As String, _
objColl(0) As Object, _
retObj As Object
tempBlkName = "archive-Table" & Format(Now(), "hms")
' Set tempEntity = ListTable
origTblHndl = ListTable.Handle
Set objColl(0) = adoc.HandleToObject(origTblHndl)
Set blkDef = adoc.Blocks.Add(tablept, tempBlkName)
' Copy old table to block
adoc.CopyObjects objColl, blkDef
公开收藏是objColl ；一旦objColl变暗#039；ed to objColl（0）一切正常
谢谢凯西的帮助
多亏了凯西，问题解决了；s摇摆
将数组大小设置为0，一切正常
再次感谢。
页:
1
[2]