帮帮忙，改错！谢谢
public sub aa()dim acadobj as acadobj
dim retobj as acaddocument
dim line as acadline
for i=0 to retobj.modelspace.count-1
set acadobj=retobj.modelspace.item(i)
msgbox acadobj.objectname
next
end sub
在VB环境下，为什么程序执行到for语句总出错 不出错才叫奇怪,你是不是很年轻?这里女人真的不多 dim acadobj as acadobj，这个变量类型是错误的，应该为AcadObject。
for i=0 to retobj.modelspace.count-1，变量i应该还没有声明吧。
页:
[1]