Sub DrawPL()
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 "C:\2000.xls", , ReadOnly
Dim i As Integer, tim As Date
tim = Timer
Dim ord(0 To 422) As Double
i = 2
Dim s As Integer
s = 0
If s < 420 Then
For i = 2 To 142
ord(s) = ExcelApp.ActiveWorkbook.Worksheets("位置信息").Range("p" & i)
ord(s + 1) = ExcelApp.ActiveWorkbook.Worksheets("位置信息").Range("o" & i)
ord(s + 2) = 0
s = s + 3
autocad vba从excel表格插入单条多段线
最新推荐文章于 2023-07-16 08:12:18 发布
该VBA宏实现了一个功能,即从Excel表格的"位置信息"工作表中读取数据,并在Autocad中创建单条多段线。首先,宏打开指定路径的Excel文件并设置为只读模式。接着,它遍历指定范围的单元格,将"P"列和"O"列的坐标值读入数组,然后利用这些坐标在Autocad的模型空间中绘制多段线。最后,宏关闭Excel工作簿,退出Excel应用程序,并在Autocad中更新显示,显示绘制过程所用的时间。
摘要由CSDN通过智能技术生成