sunzhq 发表于 2004-11-4 19:56:00

谢谢您的耐心指教。


我试过了。用消息框检测到程序只执行到斜体部分。后一个循环没有执行。


Sub ts()<BR>On Error Resume Next<BR>Dim i As AcadEntity<BR>dim j as AcadEntity<BR>Dim objs As New Collection<BR>For Each i In ThisDrawing.ModelSpace<BR>objs.Add i.ObjectName, i.ObjectName<BR>Next i


<BR>For Each j In objs<BR>MsgBox j<BR>Next j<BR>End Sub<BR><BR>

雪山飞狐_lzh 发表于 2004-11-4 20:47:00

我没有定义


Dim j As AcadEntity


<BR>j应该是变体如果要定义应该为


Dim j

sunzhq 发表于 2004-11-4 21:45:00

这次可以了。


谢谢您，斑竹。
页: 1 [2]
查看完整版本: [VBA]求助！