社区 › C# › 把AutoCAD字导入excel

yuanhui_hust 发表于 2011-6-1 20:36:00

把AutoCAD字导入excel

Sub dd()
   Dim elem As Object
   Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.application")
    Set xlBook = xlApp.Workbooks.Open("E:\123.xls")
    Set xlSheet = xlBook.Sheets(1)
   For Each elem In ThisDrawing.ModelSpace
      With elem
            If (elem.EntityName = "AcDbText") Or (.EntityName = "AcDbMText") Then
         xlSheet.cells(1, 1) = .TextString
         xlApp.Visible = True
            End If
      End With
      Set elem = Nothing
    Next elem
    End Sub

monkeylzx 发表于 2011-6-29 14:24:00

感谢分享，来参考一下

查看完整版本: 把AutoCAD字导入excel