[编程交流] 标题栏属性

Sub foo()
   Set myblk = ThisDrawing.Blocks("*PAPER_SPACE").Item(2)
   For i = 0 To ThisDrawing.Blocks("A3BORDER").Count - 1
       Set myobj = ThisDrawing.Blocks("A3BORDER").Item(i)
       If myobj.ObjectName = "AcDbAttributeDefinition" Then
           Debug.Print myobj.StyleName, myobj.TextString
       End If
   Next
End Sub

ThisDrawing.Blocks("A3BORDER").HasAttributes 

ThisDrawing.Blocks("*PAPER_SPACE").Blocks("A3BORDER").HasAttributes 

Public Sub add_project_number()
' This Updates the project number
Dim SS As AcadSelectionSet
Dim Count As Integer
Dim FilterDXFCode(1) As Integer
Dim FilterDXFVal(1) As Variant
Dim attribs, newtext As Variant
Dim BLOCK_NAME As String
'On Error Resume Next
Dim startCH As Double
newtext = ThisDrawing.Utility.GetString(True, "Enter new project code : ")
FilterDXFCode(0) = 0
FilterDXFVal(0) = "INSERT"
FilterDXFCode(1) = 2
FilterDXFVal(1) = "DA1DRTXT"
BLOCK_NAME = "DA1DRTXT"
Set SS = ThisDrawing.SelectionSets.Add("issued")
SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal
For Cntr = 0 To SS.Count - 1
  attribs = SS.Item(Cntr).GetAttributes
       
       
       attribs(1).TextString = newtext
               attribs(1).Update
        
Next Cntr
ThisDrawing.SelectionSets.Item("issued").Delete
End Sub