选择通过某点的所有多段线

黄玉宏

如题，如何选择通过某已知点的所有多段线？

我知道选择集中有个Selection Atpoint(记不太清了)方法可以选择通过某点的最后一个对象。请各位高手教我！

先谢谢各位！

黄玉宏　　8.30

sailorcwx

object.SelectAtPoint Point, FilterType, FilterData

黄玉宏

谢谢2楼，这种方法只能选择通过某点最后一根多段线。问题是选择通过某点的所有多段线，请各位高手帮助解答。

谢谢论坛各位同行！

黄玉宏   8.31

sailorcwx

那就用select

Sub test()
On Error Resume Next
Dim sset As AcadSelectionSet
ThisDrawing.SelectionSets.Add "test"
Set sset = ThisDrawing.SelectionSets("test")
sset.Clear
Dim pt As Variant
pt = ThisDrawing.Utility.GetPoint
sset.Select acSelectionSetCrossing, pt, pt
MsgBox sset.Count
End Sub

王咣生

SelectAtPoint选择最后还是最上层对象,如果是最上层对象,那可以作个循环,把每次选到的对象隐藏,知道选择所有的对象.当然选到的对象放到一个新的选择集中.

黄玉宏

谢谢4楼及5楼，4楼的方法很巧妙，看来哲学很有用。

王版主的方法在小实在不会，在CAD帮助中也看不到SelectAtPoint内容，不知版主所述如何做，能否请举例说明，非常感谢！

黄玉宏　　二○○八年九月二日

zzaxet

Sub test()
On Error Resume Next
Dim sset As AcadSelectionSet
ThisDrawing.SelectionSets.Add "test"
Set sset = ThisDrawing.SelectionSets("test")
sset.Clear
Dim pt As Variant
pt = ThisDrawing.Utility.GetPoint
sset.Select acSelectionSetCrossing, pt, pt
MsgBox sset.Count
End Sub

谢谢4楼这个方法,但是我也有个问题,这个方法在图形比较小的时候可以,在图形非常大,放到全屏后使用此方法,会把附近隔的比较近但并不通过此点的要素也选中了,请问有什么办法解决?