社区 › VB › 求救：关于SelectAtPoint。多谢

lanner 发表于 2003-5-8 10:15:00

求救：关于SelectAtPoint。多谢

我在编程中有这样一个问题：选择通过一个点的所有实体
然后将这些实体放到选择集中
（图中有几条通过（10，10，0）的直线）
程序如下
Sub slectatp()
Dim sp As AcadSelectionSet
Set sp = ThisDrawing.SelectionSets.Add("myss")
Dim pointat(0 To 2) As Double
pointat(0) = 10: pointat(1) = 10: pointat(2) = 0#
myss.SelectAtPoint pointat
MsgBox "select: " & nl & CStr(myss.Count)
myss.hightlight (True)
End Sub
可是程序的运行结果却是
myss.SelectAtPoint pointat 一行有错object required
百思不得原因，希望斑竹帮忙。多谢！！！

efan2000 发表于 2003-5-8 12:52:00

声明的选择集的变量是sp，而后面使用的变量却是myss。因为myss没有声明也不是有效的选择集对象，所以在过一点选择时就出错了。

天罡 发表于 2003-5-10 11:48:00

Sub select()
Dim sp As AcadSelectionSet
Set sp = ThisDrawing.SelectionSets.Add("myss")
Dim pointat(0 To 2) As Double
pointat(0) = 10: pointat(1) = 10: pointat(2) = 0#
sp.SelectAtPoint pointat
MsgBox "select: " & nl & CStr(sp.Count)Dim Entry As AcadEntity
i = 10 'red color
For Each Entry In sp
Entry.Color = i
Entry.Update
i = i + 1
Next Entry
sp.Delete' del select
End Sub
可以，我刚才试过！

sunny_8848 发表于 2019-11-1 10:54:00

不知道什么回事，我只能选择通过这点的一个对象，比如同一位置画的两个同样大小圆或者通过这点的圆和线

查看完整版本: 求救：关于SelectAtPoint。多谢