ef2000斑竹，麻烦您找找错

bamboo

Public Sub autoexample()
  
Dim acadobj As AcadObject
Dim line As AcadLine
'Dim startpt As Variant '保存直线起始点
'Dim endpt As Variant '保存直线终点

Dim i As Integer
For i = 0 To retobj.ModelSpace.Count - 1
     Set acadobj = retobj.ModelSpace.Item(i)
     MsgBox acadobj.ObjectName
     Select Case acadobj.ObjectName
     Case "AcDbline"
     Set line = retobj.ModelSpace.Item(i)
       MsgBox line.StartPoint(0)
       End Select
    next i
end
retobj定义为全局变量acaddocument，在VB环境下
为什么语句执行到for i=o to retobj.modelspace.count-1时，出错“对象变量或with块变量未设置”谢谢

mccad

bamboo

bamboo

bamboo

mccad

mccad

file:///D:/program/vba/acadauto/acadauto/idx_methods.htm#gloss_m1o