请看看下面的程序，很是奇怪，最后两行代码，在cad2000下总是说不支持对象方法，在2002中就一点问题都没有！更奇怪的是，我的另外一个程序，用的同样的方法来取得两端点坐标，就可以在2000下执行，真是百思不得其解！
Dim i As Integer
Dim spnt As Variant '起点坐标
Dim epnt As Variant '结束点坐标
Dim sset As AcadSelectionSet
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
Set sset = ThisDrawing.SelectionSets.Add("offsetobj")
sset.SelectOnScreen
'取得线的起点和结束点坐标(就是下面这两行，太奇怪了！)
spnt = sset.Item(0).StartPoint
epnt = sset.Item(0).EndPoint
如果说2000不支持这种方法的话，为什么我在另外一个程序中用同样的方法就可以，真是奇怪，我在家装的2002,单位用的是2000!
置顶卡
