怎样可以调用当前dwg文件中某个文本内的字符串给EXCEL呢？

yefeiwolaile

画图时一般都在图上固定地方表明 地址，联系人，电话等文本

我想把这些文本导入到EXCEL中A1,A2,A3行，VBA可以么？

yefeiwolaile

我已经可以反过来从excel中调用了！

Sub text()

Dim p(0 To 2) As Double '定义坐标变量

ss$ = CStr(dydqxls)

MsgBox ss

p(0) = 310.77: p(1) = 42: p(2) = 0 '坐标赋值

Set txtobj = ThisDrawing.PaperSpace.AddMText(p, 50, ss)

End Sub

Function dydqxls()

Dim ExcelApp As Excel.Application

On Error Resume Next

  Set ExcelApp = GetObject(, "Excel.Application")

        If Err <> 0 Then

        Set ExcelApp = CreateObject("Excel.Applicationn")

End If

 a = ExcelApp.ActiveWorkbook.Sheets("数据输入").Range("b11").Value

dydqxls = a

End Function

大家试试看！

兰州人

 Dim Ent As AcadEntity, TextEnt As AcadText
  Dim pp(0 To 2) As Double, TextToExcel As AcadText
  Set xlSheet = xlApp.sheets(1) 'excel通讯
  Dim ExcelRow
  ExcelRow = 2

  For Each Ent In ThisDrawing.ModelSpace 循环实体
    Select Case Ent.ObjectName 获取实体名
      Case "AcDbText" 选择文本实体
        Set TextEnt = Ent
        xlSheet.cells(ExcelRow, 1).Value = TextEnt.InsertionPoint(0)
        xlSheet.cells(ExcelRow, 2) = TextEnt.InsertionPoint(1)
        xlSheet.cells(ExcelRow, 3) = TextEnt.InsertionPoint(2)
        xlSheet.cells(ExcelRow, 4) = TextEnt.TextString
        ExcelRow = ExcelRow + 1
    End Select
  Next Ent

yefeiwolaile

兰州人，感激不尽！

我事了一下，刚开始以为ACDBTEXT是错的，不过运行过程中发现CAD就是这么识别ENT的

请问比如ACDBTEXT ACDBMTEXT这些内部称呼在哪儿找着的呢？

明经上面没有发现呀！

兰州人

yefeiwolaile发表于2007-10-24 22:33:00兰州人，感激不尽！我事了一下，刚开始以为ACDBTEXT是错的，不过运行过程中发现CAD就是这么识别ENT的请问比如ACDBTEXT ACDBMTEXT这些内部称呼在哪儿找着的呢？明经上面没有发现呀！

1. dim EntText as acadtext

复制代码

1. debug.print ent.objectname

复制代码