SelectionSet Filters v3.3

[Anonymous]

Hi All, I am trying to filter out all walls in my drawing. Code runs fine but no walls are added. Could someone Please tell me what I'm doing wrong. Or could I do it eaiser. Thanks for you time. Paul

[Anonymous]

Sorry. Forgot code. Dim gpCode() As Integer Dim gpData As Variant 'On Error Resume Next With ThisDrawing.Utility ThisDrawing.SelectionSets("0").Delete Set ssWall = ThisDrawing.SelectionSets.Add(0) ReDim gpCode(0): ReDim gpData(0) gpCode(0) = 0: gpData(0) = "AecWall" ssWall.Select acSelectionSetAll, , , gpCode, gpData End With "Paul Richardson" wrote in message news:40c60887$1_1@newsprd01... > Hi All, > > I am trying to filter out all walls in my drawing. Code runs fine but no > walls are added. > Could someone Please tell me what I'm doing wrong. Or could I do it eaiser. > > Thanks for you time. > > Paul > >

[Anonymous]

"Aec_Wall" go figure. "Paul Richardson" wrote in message news:40c608f2$1_1@newsprd01... > Sorry. Forgot code. > > Dim gpCode() As Integer > Dim gpData As Variant > > 'On Error Resume Next > > > With ThisDrawing.Utility > ThisDrawing.SelectionSets("0").Delete > Set ssWall = ThisDrawing.SelectionSets.Add(0) > ReDim gpCode(0): ReDim gpData(0) > gpCode(0) = 0: gpData(0) = "AecWall" > ssWall.Select acSelectionSetAll, , , gpCode, gpData > End With > "Paul Richardson" wrote in message > news:40c60887$1_1@newsprd01... > > Hi All, > > > > I am trying to filter out all walls in my drawing. Code runs fine but no > > walls are added. > > Could someone Please tell me what I'm doing wrong. Or could I do it > eaiser. > > > > Thanks for you time. > > > > Paul > > > > > >

[Anonymous]

You beat me to it. :) -- Matt W There are 3 kinds of people: Those who can count, and those who can't. "Paul Richardson" wrote in message news:40c612ad$1_3@newsprd01... | "Aec_Wall" go figure. | "Paul Richardson" wrote in message | news:40c608f2$1_1@newsprd01... | > Sorry. Forgot code. | > | > Dim gpCode() As Integer | > Dim gpData As Variant | > | > 'On Error Resume Next | > | > | > With ThisDrawing.Utility | > ThisDrawing.SelectionSets("0").Delete | > Set ssWall = ThisDrawing.SelectionSets.Add(0) | > ReDim gpCode(0): ReDim gpData(0) | > gpCode(0) = 0: gpData(0) = "AecWall" | > ssWall.Select acSelectionSetAll, , , gpCode, gpData | > End With | > "Paul Richardson" wrote in message | > news:40c60887$1_1@newsprd01... | > > Hi All, | > > | > > I am trying to filter out all walls in my drawing. Code runs fine but no | > > walls are added. | > > Could someone Please tell me what I'm doing wrong. Or could I do it | > eaiser. | > > | > > Thanks for you time. | > > | > > Paul | > > | > > | > | > | |

[Anonymous]

"Aec_Wall" "Paul Richardson" wrote in message news:40c608f2$1_1@newsprd01... > Sorry. Forgot code. > > Dim gpCode() As Integer > Dim gpData As Variant > > 'On Error Resume Next > > > With ThisDrawing.Utility > ThisDrawing.SelectionSets("0").Delete > Set ssWall = ThisDrawing.SelectionSets.Add(0) > ReDim gpCode(0): ReDim gpData(0) > gpCode(0) = 0: gpData(0) = "AecWall" > ssWall.Select acSelectionSetAll, , , gpCode, gpData > End With > "Paul Richardson" wrote in message > news:40c60887$1_1@newsprd01... > > Hi All, > > > > I am trying to filter out all walls in my drawing. Code runs fine but no > > walls are added. > > Could someone Please tell me what I'm doing wrong. Or could I do it > eaiser. > > > > Thanks for you time. > > > > Paul > > > > > >

[Anonymous]

Thanks Matt. I have a bunch of other broken code it you feel bad. ha. "Matt W" wrote in message news:40c6136a_2@newsprd01... > You beat me to it. :) > > -- > Matt W > > There are 3 kinds of people: > Those who can count, and those who can't. > > "Paul Richardson" wrote in message > news:40c612ad$1_3@newsprd01... > | "Aec_Wall" go figure. > | "Paul Richardson" wrote in message > | news:40c608f2$1_1@newsprd01... > | > Sorry. Forgot code. > | > > | > Dim gpCode() As Integer > | > Dim gpData As Variant > | > > | > 'On Error Resume Next > | > > | > > | > With ThisDrawing.Utility > | > ThisDrawing.SelectionSets("0").Delete > | > Set ssWall = ThisDrawing.SelectionSets.Add(0) > | > ReDim gpCode(0): ReDim gpData(0) > | > gpCode(0) = 0: gpData(0) = "AecWall" > | > ssWall.Select acSelectionSetAll, , , gpCode, gpData > | > End With > | > "Paul Richardson" wrote in message > | > news:40c60887$1_1@newsprd01... > | > > Hi All, > | > > > | > > I am trying to filter out all walls in my drawing. Code runs fine but > no > | > > walls are added. > | > > Could someone Please tell me what I'm doing wrong. Or could I do it > | > eaiser. > | > > > | > > Thanks for you time. > | > > > | > > Paul > | > > > | > > > | > > | > > | > | > >