myfreemind 发表于 2003-5-30 19:55:00

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

请看看下面的程序，很是奇怪，最后两行代码，在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 发表于 2003-6-2 15:57:00

我没遇到过

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

xuming_dai 发表于 2003-6-3 12:16:00

re

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

myfreemind 发表于 2003-6-4 23:16:00

问题已经解决，谢谢！

xuehua4888 发表于 2003-6-9 14:27:00

需要一个一个来。

spnt（0） = sset.Item(0).StartPoint（0）
页: [1]
查看完整版本: 取得直线端点坐标的问题？？谁能告诉我，多谢！