老问题Select acSelectionSetAll, , , gbcode, gbdata

liub1979

程序片段如下: Dim ss As AcadSelectionSet
Dim gbcode(3) As Integer
Dim gbdata(3) As Variant
gbcode(0) = -4: gbdata(0) = "<OR"
gbcode(1) = 0: gbdata(1) = "LWPOLYLINE"
gbcode(2) = 0: gbdata(2) = "CIRCLE"
gbcode(3) = -4: gbdata(3) = "OR"
ss.Select acSelectionSetAll, , , gbcode, gbdata 我想将所有的多段线和圆都选出来,但他什么也没选中全给过滤掉了 请大虾帮帮忙^_^

莫名

Dim ss As AcadSelectionSet
Dim gbcode(3) As Integer
Dim gbdata(3) As Variant
gbcode(0) = -4: gbdata(0) = "<OR"
gbcode(1) = 0: gbdata(1) = "LWPOLYLINE"
gbcode(2) = 0: gbdata(2) = "CIRCLE"
gbcode(3) = -4: gbdata(3) = "OR>" 注意<、>符号成对出现

雪山飞狐_lzh

Dim gbcode(0) As Integer,gbdata(0) As Variant
gbcode(0) =0: gbdata(0) = "LWPOLYLINE,CIRCLE" 你的代码写错了,应该是 gbcode(3) = -4: gbdata(3) = "OR>"

liub1979

谢谢哥哥,姐姐^_^