ef2000斑竹，麻烦您找找错
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块变量未设置”谢谢 file:///D:/program/vba/acadauto/acadauto/idx_methods.htm#gloss_m1o
页:
[1]