Topic: I thought it was easier than this... (newb alert)

[Co.Mnstr]

I thought it was easier that this. I have run into a road block and of all the examples I have found this code should work.
Basic, and I mean basic, I want to create two selection sets. I have learned that I need to check if they already exist, and if they do then delete them. Then make the selection sets again. What I want this simple code to do is look into the existing selectionsets and delete any that have the same names as the one I am about to create. Then do a simple display showing me that the selection set that I have created are in the drawing. I will then build my code off that.

Code: [Select]

Sub ChXrefGray()
Dim ASSS as acadselectionsets
Dim Ass, xxreflist, xxlayerlist as acadselectionset
Dim msg as string

Set ASSS = ThisDrawing.SelectionSets
For Each Ass In ASSS
    If Ass.Name = "xreflist" Then
      ASSS.Item("xreflist").Delete
      Else   
    If Ass = "layerlist" Then
      ASSS.Item("layerlist").Delete
      Else   
  End If
Next

Set ssxreflist = ASSS.Add("XrefList")
Set sslayerlist = ASSS.Add("LayerList")

MsgBox "there are " & ThisDrawing.SelectionSets.Count & "Selection Sets in this drawing"
msg = vbCrLf & vbCrLf

For Each Ass In ASSS
    AssName = Ass.Name
    msg = msg & AssName
    msg = msg & vbCrLf
Next

MsgBox msg

End Sub

Can't get more basic. But when I run the code, VB tells me that I have a Next statement with out a For statement. At the very beginning of the code. I hope someone can explain to me why my code does not work, but other examples of the same do.

Thanks all,
Alex

[Matt__W]

Try this...

Code: [Select]

For Each Ass In ASSS
    If Ass.Name = "xreflist" Then
      ASSS.Item("xreflist").Delete
    ElseIf Ass = "layerlist" Then
      ASSS.Item("layerlist").Delete
  End If
Next

[Greg B]

Try this...

Code: [Select]

For Each Ass In ASSS
    If Ass.Name = "xreflist" Then
      ASSS.Item("xreflist").Delete
    ElseIf Ass = "layerlist" Then
      ASSS.Item("layerlist").Delete
  End If
Next

 

[Co.Mnstr]

Matt,

Thank you very much. It worked like a charm. I bow down to your kind words of wisdom.

[MP]

<Skynard> ♪♫ Ewwww ewww that smell ... cantchu smell that smell ... ♪♫ </Skynard>

[Matt__W]

Try this...

Code: [Select]

For Each Ass In ASSS
    If Ass.Name = "xreflist" Then
      ASSS.Item("xreflist").Delete
    ElseIf Ass = "layerlist" Then
      ASSS.Item("layerlist").Delete
  End If
Next

 

   I didn't even see that!

[ChuckHardin]

Just looking around and saw this post. I can't believe no one offered this code up 

Code: [Select]

Sub ChXrefGray()
Dim ASSS as acadselectionsets
Dim Ass, xxreflist, xxlayerlist as acadselectionset
Dim msg as string

Set ASSS = ThisDrawing.SelectionSets

Set ssxreflist = vbdPowerSet("XrefList")
Set sslayerlist =vbdPowerSet("LayerList")

MsgBox "there are " & ThisDrawing.SelectionSets.Count & "Selection Sets in this drawing"
msg = vbCrLf & vbCrLf

For Each Ass In ASSS
    AssName = Ass.Name
    msg = msg & AssName
    msg = msg & vbCrLf
Next

MsgBox msg

End Sub



'From The Llama Library Published November 12, 1999
Function vbdPowerSet(strName As String) As AcadSelectionSet
Dim objSelSet As AcadSelectionSet
Dim objSelCol As AcadSelectionSets
 
 Set objSelCol = Thisdrawing.SelectionSets
 For Each objSelSet In objSelCol
      If objSelSet.Name = strName Then
           objSelCol.Item(strName).Delete
           Exit For
      End If
 Next
 Set objSelSet = objSelCol.Add(strName)
 Set vbdPowerSet = objSelSet

End Function


[Greg B]

Just looking around and saw this post. I can't believe no one offered this code up 

Code: [Select]

Sub ChXrefGray()
Dim ASSS as acadselectionsets
Dim Ass, xxreflist, xxlayerlist as acadselectionset
Dim msg as string

Set ASSS = ThisDrawing.SelectionSets

Set ssxreflist = vbdPowerSet("XrefList")
Set sslayerlist =vbdPowerSet("LayerList")

MsgBox "there are " & ThisDrawing.SelectionSets.Count & "Selection Sets in this drawing"
msg = vbCrLf & vbCrLf

For Each Ass In ASSS
    AssName = Ass.Name
    msg = msg & AssName
    msg = msg & vbCrLf
Next

MsgBox msg

End Sub



'From The Llama Library Published November 12, 1999
Function vbdPowerSet(strName As String) As AcadSelectionSet
Dim objSelSet As AcadSelectionSet
Dim objSelCol As AcadSelectionSets
 
 Set objSelCol = Thisdrawing.SelectionSets
 For Each objSelSet In objSelCol
      If objSelSet.Name = strName Then
           objSelCol.Item(strName).Delete
           Exit For
      End If
 Next
 Set objSelSet = objSelCol.Add(strName)
 Set vbdPowerSet = objSelSet

End Function


Hey Chuck!

[Maverick®]

This isn't Se7en's Chuck is it?

[jnieman]

oh dear

this was a gem!

[ChuckHardin]

Do I need to shoot Se7en now?

I guess I just leave a lasting impression.