请教关于选择集过滤的问题

nami · 发表于 2003-6-6 13:16:00

要在选择集中过滤出内容为“A“的文本，我的程序如下，不知道为何出错，请执教
Sub test()
Dim Myss As AcadSelectionSet
Set Myss = ThisDrawing.SelectionSets.Add("Myss")

Dim Mode As Integer
Mode = acSelectionSetWindow

Dim Point1, point2 As Variant
Point1 = ThisDrawing.Utility.GetPoint(, "Select the first point")
point2 = ThisDrawing.Utility.GetCorner(Point1, "Select second point")

Dim gpCode(0 To 2) As Integer
Dim DataValue(0 To 2) As Variant
gpCode(0) = 0
DataValue(0) = "Text"
gpCode(1) = -4
DataValue(1) = "="
gpCode(2) = 1
DataValue(2) = "A"
Myss.Select acSelectionSetWindow, Point1, point2, gpCode, DataValue
End Sub
是不是实体对象的公共组码不对呀，能提供完整的DXF组码吗？谢先！

efan2000 · 发表于 2003-6-6 13:28:00

选择内容为"A"的单行文字，可以不使用逻辑运算符。下面的条件就够了。
Dim gpCode(0 To 1) As Integer
Dim DataValue(0 To 1) As Variant
gpCode(0) = 0
DataValue(0) = "Text"
gpCode(1) = 1
DataValue(1) = "A"