AutoCAD-VBA自动获取电子表格数据生成塔基断面图.docxVIP

AutoCAD VBA编程：自动获取Excel数据生成塔脚断面图 原以为这辈子再不会写程序了，无奈，还得继续……?1、测量原始数据、处理结果。如图：??2、原始数据录入Excel?,并整理如下格式：?3、因断面图用于设计高低柱、长短腿，在AutoCAD里面只生成A、B、C、D四个腿、以及横线路方向（E）即可。在CADVBA程序管理器中录入以下程序段：?Sub yema() Dim xcelApp As Excel.ApplicationDim xcelSheet As Excel.Worksheet Dim strFile As String strFile = ThisDrawing.Application.VBE.ActiveVBProject.FileNameSet xcelApp = CreateObject(Excel.Application) xcelApp.Workbooks.Open Left$(strFile, Len(strFile) - 11) test.xlsx, , ReadOnlySet xcelSheet = xcelApp.ActiveWorkbook.Sheets(1) Dim mytxt As AcadTextStyleSet mytxt = ThisDrawing.TextStyles.Add(standard)mytx