我以为比这简单...(新警报)

Co.Mnstr · 发表于 2008-11-13 13:14:21

我认为这更容易。我遇到了一个路障，在所有示例中，我发现这段代码应该可以工作。
Basic，我的意思是基本的，我想创建两个选择集。我已经了解到我需要检查它们是否已经存在，如果存在，则删除它们。然后再次制作选择集。我希望这个简单的代码所做的是查看现有的选择集并删除与我将要创建的选择集同名的任何选择集。然后做一个简单的显示，向我显示我创建的选择集在绘图中。然后我将在此基础上构建我的代码。

copy

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

不能得到更基本的。但是当我运行代码时，VB告诉我我有一个Next语句，没有For语句。在代码的最开始。我希望有人能向我解释为什么我的代码不起作用，但其他相同的例子可以。
谢谢大家，
亚历克斯

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Matt__W · 发表于 2008-11-13 13:18:11

试试这个...

copy

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

Matt__W · 发表于 2008-11-13 13:55:29

马特，
非常感谢你。它像一个符咒。我向你的智慧之词致敬。

ChuckHardin · 发表于 2008-11-13 13:56:38

♪♫ Ewwww ewww 那味道 ...咕噜咕噜闻到那股味道...♪♫

Maverick® · 发表于 2008-11-13 14:24:10

我都没看到！

JNieman · 发表于 2008-12-3 14:14:45

环顾四周，看到了这篇文章。我不敢相信没有人提供这段代码

copy

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