liub1979 发表于 2004-7-26 21:49:00

老问题Select acSelectionSetAll, , , gbcode, gbdata

程序片段如下:


                       Dim ss As AcadSelectionSet<BR>                       Dim gbcode(3) As Integer<BR>                       Dim gbdata(3) As Variant<BR>                       gbcode(0) = -4: gbdata(0) = "&lt;OR"<BR>                       gbcode(1) = 0: gbdata(1) = "LWPOLYLINE"<BR>                       gbcode(2) = 0: gbdata(2) = "CIRCLE"<BR>                       gbcode(3) = -4: gbdata(3) = "OR"<BR>                       ss.Select acSelectionSetAll, , , gbcode, gbdata


我想将所有的多段线和圆都选出来,但他什么也没选中全给过滤掉了:(


请大虾帮帮忙^_^

莫名 发表于 2004-7-26 22:08:00

Dim ss As AcadSelectionSet<BR>                       Dim gbcode(3) As Integer<BR>                       Dim gbdata(3) As Variant<BR>                       gbcode(0) = -4: gbdata(0) = "&lt;OR"<BR>                       gbcode(1) = 0: gbdata(1) = "LWPOLYLINE"<BR>                       gbcode(2) = 0: gbdata(2) = "CIRCLE"<BR>                       gbcode(3) = -4: gbdata(3) = "OR&gt;"


注意&lt;、&gt;符号成对出现

雪山飞狐_lzh 发表于 2004-7-26 22:10:00

Dim gbcode(0) As Integer,gbdata(0) As Variant<BR>                       gbcode(0) =0: gbdata(0) = "LWPOLYLINE,CIRCLE"


你的代码写错了,应该是


gbcode(3) = -4: gbdata(3) = "OR&gt;"<BR>

liub1979 发表于 2004-7-27 18:04:00

谢谢哥哥,姐姐^_^
页: [1]
查看完整版本: 老问题Select acSelectionSetAll, , , gbcode, gbdata