杂耍的属性。。

hardwired · 发表于 2008-4-3 09:51:39

嗨，
我有一个标题块，其中包含7个可能的修订数据属性——REV1到REV7（以及7个可能的修订者首字母属性——REVBY1到REVBY7），当布局在第8次修订了7次时，当然没有更多的空间来添加最新的修订细节，所以我想以编程方式删除第一个实例REV1并“分流”列表中的所有其他人，为新细节在最后一个空间REV7中留下空间...
...所以当它正常工作时，REV1中的内容被删除并替换为REV2中的内容，那么REV3中的内容现在变成REV2等等等等...
>实现这一目标的最佳方法是什么？我是否需要循环遍历块的属性，将这些的文本字符串传递给字符串数组，然后再次循环并以我需要的方式将文本字符串替换为数组中的内容，然后将新细节放入REV7文本字符串中...
这个程序是我上传的使用“布局和列表框和其他L字...”线程的一部分我最近发布了（见下文的附加程序和测试图），已经完成，但想添加这一点来真正完善它...
我知道我的代码很不整洁，我做事的方式可能有点笨拙，但我相对较新这和我所知道的一切都是自学的，你们从碎片中扔给我，所以我道歉

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

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

hendie · 发表于 2008-4-3 10:06:09

我甚至不会把它放到数组中。我会把所有东西都放在一个字符串中，然后在需要时拆分字符串。
是的，你的方法就是我会这样做的方式

hardwired · 发表于 2008-4-3 10:32:27

好的，谢谢。那么我如何分割数组呢？我见过/听说过Split()，但你能简单地给我解释一下吗？是不是就像通过检查逗号来分隔逗号分隔的列表一样
另外，我不知道你是否检查过程序，但是当我点击程序的“全表”部分时，我已经在循环属性的循环中了，我还能在第一个主循环中再次循环属性吗(两次)，或者程序会抛出一个spaz？

hendie · 发表于 2008-4-3 10:45:03

是的，您可以根据需要多次嵌套循环
我会创建用唯一字符分隔的字符串，或者永远不会在实践中使用的字符串。

copy

mystring = mystring & myValue & "#:#"

这将将所有属性值连接在一起。然后当您需要取回值时

copy

dim MyVals as variant
MyVals = split(MyString,"#:#",,vbTextCompare)

这将为您提供一个值数组，基于零
*oops*编辑以更正代码

hendie · 发表于 2008-4-3 11:02:28

示例

copy

Dim MyString As String
Dim X As Integer
    For X = 0 To 10
        MyString = MyString & X & "#:#"
    Next X
Dim MyValues As Variant
    MyValues = Split(MyString, "#:#", , vbTextCompare)

MyString then=“0#:#1#:#2#：#:3#：4#：：5#：#;6#:7#：：#“
拆分后，它将变成

copy

MyValues(0) : "0" 
MyValues(1) : "1" 
MyValues(2) : "2" 
MyValues(3) : "3" 
MyValues(4) : "4" 
MyValues(5) : "5" 
MyValues(6) : "6" 
MyValues(7) : "7" 
MyValues(8) : "8" 
MyValues(9) : "9" 
MyValues(10) : "10" 
MyValues(11) : ""

hardwired · 发表于 2008-4-7 06:00:02

嗨，
我还没有尝试过分开，但是谢谢你的提醒，看起来这是一个很好的方法。我现在坚持使用字符串数组，但是一旦我对Split做了更多的研究，我将使用它..
无论哪种方式，我在循环块的属性时都有问题，但在相反的方向..
当然，您必须能够以相反的顺序循环属性(例如:从Ubound到Lbound)。我正在尝试，但在选择案例属性搜索(CountV)时出错。TagString行(请参见下面的代码)，出现“下标超出范围”错误..

copy

Public Sub SHUNT_REVS()
' *******************************************************
'Loop through titleblock once to get attribute values..
Dim EntSHUNT As AcadObject
Dim AttribSHUNT As Variant
Dim CountV as Integer
Dim REV7shunt(0 To 6) As String
Dim REVBY7shunt(0 To 6) As String
For Each EntSHUNT In ThisDrawing.PaperSpace
    If EntSHUNT.EntityName = "AcDbBlockReference" Then
        AttribSHUNT = EntSHUNT.GetAttributes
        For CountV = UBound(AttribSHUNT) To LBound(AttribSHUNT)
            Select Case AttribSHUNT(CountV).TagString
            Case "REVBY7"
                REVBY7shunt(6) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = revBY ' Add newest detail to the 7th rev detail..
            Case "REVBY6"
                REVBY7shunt(5) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REVBY7shunt(6)
            Case "REVBY5"
                REVBY7shunt(4) = attribZ(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                attribZ(CountV).TextString = REVBY7shunt(5)
            Case "REVBY4"
                REVBY7shunt(3) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REVBY7shunt(4)
            Case "REVby3"
                REVBY7shunt(2) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REVBY7shunt(3)
            Case "REVBY2"
                REV7shunt(1) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REVBY7shunt(2)
            Case "REVBY1"
                REVBY7shunt(0) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REVBY7shunt(1)
            Case "REV7"
                REV7shunt(6) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = UCase(revnumber) & " - " & UCase(revdetails) & " - " & Date ' Add newest detail to the 7th rev detail..
            Case "REV6"
                REV7shunt(5) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REV7shunt(6)
            Case "REV5"
                REV7shunt(4) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REV7shunt(5)
            Case "REV4"
                REV7shunt(3) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REV7shunt(4)
            Case "REV3"
                REV7shunt(2) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REV7shunt(3)
            Case "REV2"
                REV7shunt(1) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REV7shunt(2)
            Case "REV1"
                REV7shunt(0) = AttribSHUNT(CountV).TextString 'Add this rev detail to the string array for if titleblock is full..
                AttribSHUNT(CountV).TextString = REV7shunt(1)
            End Select
        Next CountV
    End If 'If entx is block..
Next EntSHUNT
End Sub

您认为可能会有什么问题吗？

Keith · 发表于 2008-4-7 08:23:46

我没有深入研究代码，但尝试一下…

copy

For CountV = UBound(AttribSHUNT) To LBound(AttribSHUNT) Step -1

hardwired · 发表于 2008-4-7 10:01:20

现在明白了，再次感谢基思，你真是我的救星

杂耍的属性。。

发表回复

精选推荐