只是一个玩笑
感谢您的反馈，但我不认为我'；我没有遍历任何集合，是吗 
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）一切正常
谢谢凯西的帮助
| 
