Question

VB二次开发cad选择集过滤器的用法

下面的选择"GCZJ"层的文字，为什么选不上？
Dim ssetobj As AcadSelectionSet
Set ssetobj = acadApp.ActiveDocument.SelectionSets.Add("test1")
Dim FType(0 To 1) As Integer
Dim FData(0 To 1) As Variant
FType(0) = 0
FData(0) = "TEXT"
FType(1) = 8
FData(1) = "GCZJ"
ssetobj.Select acSelectionSetAll, , , FType, FData

可以确定一定是过滤器设置的问题，请帮忙分析一下，该怎么设？

Answer 1

居然三个都是你问的，在CAD的VBA中
用以下代码你就明白了
你要求的是在图层GCZJ的单行文字TEXT变为绿色

sub asdfadsf()
Dim ssetobj As AcadSelectionSet
Set ssetobj = ThisDrawing.SelectionSets.Add("test1")
Dim FType(0 To 1) As Integer
Dim FData(0 To 1) As Variant
FType(0) = 0
FData(0) = "TEXT"
FType(1) = 8
FData(1) = "GCZJ"
ssetobj.Select acSelectionSetAll, , , FType, FData
For Each pickedobjs In ssetobj
pickedobjs.color = acGreen '把选上的实体变成绿色
pickedobjs.Update
Next
ssetobj.Delete
end sub

Answer 2

交换变量
dim h as Variant
dim y as Variant
h=ftype
y=fdata
ssetobj.Select acSelectionSetAll, , , h,y

Answer 3

FData(0) = "TEXT" 变成 FData(0) = "Text"

Answer 4

1

追问

有办法吗，请告一下吧

有办法吗，请告一下吧

有办法吗，请告一下吧

追答

我都看不懂 你让我咋帮你....