具有filtertype的选择集

jwitteman · 发表于 2022-7-6 22:52:32

您好，我想在我的图形中选择两种类型的块，插入点位于（比方说）-10、-10,0和10,10,0之间

以下代码正在运行（没有插入点部分）

Dim ssNew as acadselectionset
set ssNew = thisdrawing.selectionsets.add("newset")
Dim FilterType(0 to 2) as integer
Dim FilterData(0 to 2) as variant
FilterType(0) = 0: FilterData(0) = "INSERT"
FilterType(1) = 2: FilterData(1) = "Blockname1, Blockname2"
FilterType(2) = 67: FilterData(2) = 0 'only modelspace...
ssNew.Select acSelectionSetAll, , , FilterType, FilterData

将点-10、-10,0和10,10,0向右添加到选择部分将不起作用，因为这样整个块需要在该区域中，我只需要插入点。所以有些事

FilterType（3）=10:FilterData（3）=>=-10和

有什么想法吗？

提前谢谢。

jwitteman · 发表于 2022-7-6 23:25:19

好的，发现了以下问题。。。

copy


Dim ssNew as AcadSelectionSetset ssNew = ThisDrawing.Selectionsets.add("newset")
Dim dblPoint(0 to 2) as double
dblPoint(0) = 0: dblPoint(1) = 0: dblPoint(2) = 0
Dim FilterType(0 to 3) as integer
Dim FilterData(0 to 3) as variant
FilterType(0) = 0: FilterData(0) = "INSERT"
FilterType(1) = 2: FilterData(1) = "Blockname1, Blockname2"
FilterType(2) = 67: FilterData(2) = 0 'only modelspace...
FilterType(3) = 10: FilterData(3) = dblPoint
ssNew.Select acSelectionSetAll, , , FilterType, FilterData