https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052758#M53496 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 Tue, 08 Jun 2004 18:42:21 GMT Anonymous 2004-06-08T18:42:21Z https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052758#M53496 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 Tue, 08 Jun 2004 18:42:21 GMT https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052758#M53496 Anonymous 2004-06-08T18:42:21Z https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052759#M53497 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" <PRICHARDSON> wrote in message news:40c60887$1_1@newsprd01... &gt; Hi All, &gt; &gt; I am trying to filter out all walls in my drawing. Code runs fine but no &gt; walls are added. &gt; Could someone Please tell me what I'm doing wrong. Or could I do it eaiser. &gt; &gt; Thanks for you time. &gt; &gt; Paul &gt; &gt;</PRICHARDSON> Tue, 08 Jun 2004 18:44:03 GMT https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052759#M53497 Anonymous 2004-06-08T18:44:03Z https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052760#M53498 "Aec_Wall" go figure. "Paul Richardson" <PRICHARDSON> wrote in message news:40c608f2$1_1@newsprd01... &gt; Sorry. Forgot code. &gt; &gt; Dim gpCode() As Integer &gt; Dim gpData As Variant &gt; &gt; 'On Error Resume Next &gt; &gt; &gt; With ThisDrawing.Utility &gt; ThisDrawing.SelectionSets("0").Delete &gt; Set ssWall = ThisDrawing.SelectionSets.Add(0) &gt; ReDim gpCode(0): ReDim gpData(0) &gt; gpCode(0) = 0: gpData(0) = "AecWall" &gt; ssWall.Select acSelectionSetAll, , , gpCode, gpData &gt; End With &gt; "Paul Richardson" <PRICHARDSON> wrote in message &gt; news:40c60887$1_1@newsprd01... &gt; &gt; Hi All, &gt; &gt; &gt; &gt; I am trying to filter out all walls in my drawing. Code runs fine but no &gt; &gt; walls are added. &gt; &gt; Could someone Please tell me what I'm doing wrong. Or could I do it &gt; eaiser. &gt; &gt; &gt; &gt; Thanks for you time. &gt; &gt; &gt; &gt; Paul &gt; &gt; &gt; &gt; &gt; &gt;</PRICHARDSON></PRICHARDSON> Tue, 08 Jun 2004 19:25:40 GMT https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052760#M53498 Anonymous 2004-06-08T19:25:40Z https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052761#M53499 You beat me to it. :) -- Matt W There are 3 kinds of people: Those who can count, and those who can't. "Paul Richardson" <PRICHARDSON> wrote in message news:40c612ad$1_3@newsprd01... | "Aec_Wall" go figure. | "Paul Richardson" <PRICHARDSON> wrote in message | news:40c608f2$1_1@newsprd01... | &gt; Sorry. Forgot code. | &gt; | &gt; Dim gpCode() As Integer | &gt; Dim gpData As Variant | &gt; | &gt; 'On Error Resume Next | &gt; | &gt; | &gt; With ThisDrawing.Utility | &gt; ThisDrawing.SelectionSets("0").Delete | &gt; Set ssWall = ThisDrawing.SelectionSets.Add(0) | &gt; ReDim gpCode(0): ReDim gpData(0) | &gt; gpCode(0) = 0: gpData(0) = "AecWall" | &gt; ssWall.Select acSelectionSetAll, , , gpCode, gpData | &gt; End With | &gt; "Paul Richardson" <PRICHARDSON> wrote in message | &gt; news:40c60887$1_1@newsprd01... | &gt; &gt; Hi All, | &gt; &gt; | &gt; &gt; I am trying to filter out all walls in my drawing. Code runs fine but no | &gt; &gt; walls are added. | &gt; &gt; Could someone Please tell me what I'm doing wrong. Or could I do it | &gt; eaiser. | &gt; &gt; | &gt; &gt; Thanks for you time. | &gt; &gt; | &gt; &gt; Paul | &gt; &gt; | &gt; &gt; | &gt; | &gt; | |</PRICHARDSON></PRICHARDSON></PRICHARDSON> Tue, 08 Jun 2004 19:28:42 GMT https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052761#M53499 Anonymous 2004-06-08T19:28:42Z https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052762#M53500 "Aec_Wall" "Paul Richardson" <PRICHARDSON> wrote in message news:40c608f2$1_1@newsprd01... &gt; Sorry. Forgot code. &gt; &gt; Dim gpCode() As Integer &gt; Dim gpData As Variant &gt; &gt; 'On Error Resume Next &gt; &gt; &gt; With ThisDrawing.Utility &gt; ThisDrawing.SelectionSets("0").Delete &gt; Set ssWall = ThisDrawing.SelectionSets.Add(0) &gt; ReDim gpCode(0): ReDim gpData(0) &gt; gpCode(0) = 0: gpData(0) = "AecWall" &gt; ssWall.Select acSelectionSetAll, , , gpCode, gpData &gt; End With &gt; "Paul Richardson" <PRICHARDSON> wrote in message &gt; news:40c60887$1_1@newsprd01... &gt; &gt; Hi All, &gt; &gt; &gt; &gt; I am trying to filter out all walls in my drawing. Code runs fine but no &gt; &gt; walls are added. &gt; &gt; Could someone Please tell me what I'm doing wrong. Or could I do it &gt; eaiser. &gt; &gt; &gt; &gt; Thanks for you time. &gt; &gt; &gt; &gt; Paul &gt; &gt; &gt; &gt; &gt; &gt;</PRICHARDSON></PRICHARDSON> Tue, 08 Jun 2004 20:50:26 GMT https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052762#M53500 Anonymous 2004-06-08T20:50:26Z https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052763#M53501 Thanks Matt. I have a bunch of other broken code it you feel bad. ha. "Matt W" <NOSPAM> wrote in message news:40c6136a_2@newsprd01... &gt; You beat me to it. :) &gt; &gt; -- &gt; Matt W &gt; &gt; There are 3 kinds of people: &gt; Those who can count, and those who can't. &gt; &gt; "Paul Richardson" <PRICHARDSON> wrote in message &gt; news:40c612ad$1_3@newsprd01... &gt; | "Aec_Wall" go figure. &gt; | "Paul Richardson" <PRICHARDSON> wrote in message &gt; | news:40c608f2$1_1@newsprd01... &gt; | &gt; Sorry. Forgot code. &gt; | &gt; &gt; | &gt; Dim gpCode() As Integer &gt; | &gt; Dim gpData As Variant &gt; | &gt; &gt; | &gt; 'On Error Resume Next &gt; | &gt; &gt; | &gt; &gt; | &gt; With ThisDrawing.Utility &gt; | &gt; ThisDrawing.SelectionSets("0").Delete &gt; | &gt; Set ssWall = ThisDrawing.SelectionSets.Add(0) &gt; | &gt; ReDim gpCode(0): ReDim gpData(0) &gt; | &gt; gpCode(0) = 0: gpData(0) = "AecWall" &gt; | &gt; ssWall.Select acSelectionSetAll, , , gpCode, gpData &gt; | &gt; End With &gt; | &gt; "Paul Richardson" <PRICHARDSON> wrote in message &gt; | &gt; news:40c60887$1_1@newsprd01... &gt; | &gt; &gt; Hi All, &gt; | &gt; &gt; &gt; | &gt; &gt; I am trying to filter out all walls in my drawing. Code runs fine but &gt; no &gt; | &gt; &gt; walls are added. &gt; | &gt; &gt; Could someone Please tell me what I'm doing wrong. Or could I do it &gt; | &gt; eaiser. &gt; | &gt; &gt; &gt; | &gt; &gt; Thanks for you time. &gt; | &gt; &gt; &gt; | &gt; &gt; Paul &gt; | &gt; &gt; &gt; | &gt; &gt; &gt; | &gt; &gt; | &gt; &gt; | &gt; | &gt; &gt;</PRICHARDSON></PRICHARDSON></PRICHARDSON></NOSPAM> Wed, 09 Jun 2004 10:51:39 GMT https://forums.autodesk.com/t5/vba-forum/selectionset-filters-v3-3/m-p/1052763#M53501 Anonymous 2004-06-09T10:51:39Z