Sub ACADtoExcel() Dim acad As Object Set acad = GetObject(, "AutoCAD.Application") acad.Visible = True Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True Set myDrawing = acad.ActiveDocument Dim i As Integer For i = 1 To myDrawing.Blocks.Count excelApp.Cells(i, 1).Value = myDrawing.Blocks.Item(i - 1).Name Next End Sub
使用插件连接。AutoCAD和Excel之间有一些开发商提供的插件。这些插件可以在Autodesk App Store中找到。例如,“Excel通讯插件”可以轻松地将AutoCAD对象传递到Excel中。
使用宏进行连接。可以使用AutoCAD的宏功能来传递数据。使用命令记录功能创建一个宏。在创建宏时,使用“copyclip”命令将数据复制到剪贴板中。将数据从剪贴板中粘贴到Excel电子表格中。
无论哪种方法,连接AutoCAD和Excel是一项非常有用的任务,可以帮助您将工作流程最大化。