[求助]如何只选择屏幕上的圆弧和线？

neteasy

用选择集的SelectOnScreen方法，如何过滤其它元素，而只选择线和圆弧？

莫名

后面加过滤：SelectOnScreen FilterType,FilterData


使用过滤器请参考以前发表的帖子。

zzp-2000

组码是0

aoaoen

可以参考下面的源码 ' ※ 选择对象并生成对象表
Dim Selects As AcadSelectionSet
Dim FType(3) As Integer ' ※ 选择过滤器的类型代码
Dim FData(3) As Variant ' ※ 选择过滤器的值
' ※ 给定选择过滤器类型代码
FType(0) = -4 ' ※ 条件组合码
FType(1) = 0
FType(2) = 0
FType(3) = -4 ' ※ 条件组合码
' ※ 给定选择过滤器值为可以生成面域的图元类型
FData(0) = "<Or" ' ※ 类型集合起点
FData(1) = "Line" ' ※ 包括直线
FData(2) = "Arc" ' ※ 包括圆弧
FData(3) = "Or>" ' ※ 类型集合终点
' ※ 选择图元
Set Selects = ThisDrawing.SelectionSets.Add("Objs")
Selects.SelectOnScreen FType, FData

兰州人

object.SelectOnScreen [FilterType][, FilterData]

FilterType

Integer; input-only; optional
A DXF group code specifying the type of filter to use

FilterData

Variant; input-only; optional
The value to filter on.