批量插入CAD块及标注（带程序运行计时功能）

'说明：
'1、autocad 2010版本以下自带VBA编辑器，2010版本以上需要自行下载
'2、按住ALT+F11，打开vba编辑器，工具-引用，勾选microsoft excel library
'3、批量插入块时，需要提前插入块然后再删除，目的是让系统知道块的名字
'4、文字样式需提前设置，设置成什么样式，插入时就是什么样式
'
'
'===============
Sub ExcelRead()

On Error Resume Next
Set ExcelApp = GetObject(, "excel.Application")
If Err Then
    Err.Clear
Set ExcelApp = CreateObject("excel.application")
    If Err Then
        MsgBox ("不能运行excel,检查是否安装了excel")
    Exit Sub
    End If
End If

ExcelApp.Workbooks.Open "e:\CADTOOLS\CAD.xlsx", , ReadOnly

ExcelApp.visible = false

Dim tim As Date

tim = Now()

Dim currlayer As AcadLayer
Set currlayer = ThisDrawing.Layers.Add("计量间"