取得直线端点坐标的问题？？谁能告诉我，多谢！

myfreemind

请看看下面的程序，很是奇怪，最后两行代码，在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!

thankyou

我作过类似这样的程序,在2000,2002,2004都可以运行.

xuming_dai

Dim sset As AcadSelectionSet
改成Dim sset As object
试试

myfreemind

xuehua4888

spnt（0） = sset.Item(0).StartPoint（0）