[编程交流] VBA AutoCAD命令行变量

Sub RENAME_BORDER()
Dim client As String
Dim location As String
Dim acadApp As Object
Dim acadDoc As Object
Dim MyMag As Double
client = Sheets(1).Range("N" & 20).Value
location = Sheets(1).Range("N" & 22).Value
Bname = "TITLE BLOCK"
    On Error Resume Next
 'Check if AutoCAD application is open. If is not opened create a new instance and make it visible.
    Set acadApp = GetObject(, "AutoCAD.Application")
    Set acadDoc = acadApp.ActiveDocument
   If acadApp Is Nothing Then
       Set acadApp = CreateObject("AutoCAD.Application")
        acadApp.Visible = True
   End If
        acadApp.Visible = True
        
    
    Set NewoBlock = acadDoc.ActiveLayout.Block
        For iCount = 0 To NewoBlock.Count - 1
            Set oEnt = NewoBlock.Item(iCount)
                If TypeOf oEnt Is AcadBlockReference Then
                    Set NewoblkRef = oEnt
                        If UCase(NewoblkRef.Name) = UCase(Bname) Then
                           If NewoblkRef.HasAttributes = True Then
                                AttributeList = NewoblkRef.GetAttributes
                '  '' <do something with this block here >
                                
                                Exit For
                           Else
                                bCount = bCount + 1
                           End If
                
            End If
        End If
    Next iCount
End Sub