[VBA程序]：AutoCAD与Excel 数据交换实例--

lsjjm

AutoCAD与Excel 数据交换实例--块属性标志,属性值输出Excel.
[php]
Sub test ()
  On Error Resume Next
  Dim ent As Object
  Dim pt As Variant
  Dim att As Variant
  Dim m As Integer
  Dim xl As excel.Application
  Dim xb As excel.workbook
  Dim xs As excel.worksheet
  On Error Resume Next
  Set xl = GetObject(, "excel.application")
  If Err Then
    Err.Clear
    Set xl = CreateObject("eccel.application")
    If Err Then
      MsgBox "excel isn't started"
      Exit Sub
    End If
   End If
  Set xb = xl.workbooks.Add
  Set xs = xb.activesheet
  ThisDrawing.Utility.GetEntity ent, pt, "select entity: "
  While Err
    Err.Clear
    ThisDrawing.Utility.GetEntity ent, pt, "select entity: "
  Wend
  xl.Visible = True
  xs.cells(1, 1) = ("Tag")
  xs.cells(1, 2) = ("Text")
  If ent.ObjectName = "AcDbBlockReference" Then
    If ent.HasAttributes Then
      att = ent.GetAttributes
        For m = LBound(att) To UBound(att)
          xs.cells(m + 2, 1) = att(m).TagString
          xs.cells(m + 2, 2) = att(m).TextString
        Next
    End If
  End If
End Sub
[/php]

wyj7485

很好！用该程序之前要引用EXCEL.

ChenQH2002

不会用，能不能说明一下

zhang2380

试用了一下,,速度是很快,好象选择的范围太少.

雪山飞狐(lzh)

好像AutoCad提供了类似的例子程序，：）

dearjdz123

主要交换什么数据

dongli

不会用

y562288

请介绍一下子可以么？？不然不知道怎么用啊

秦林

这是将CAD中DWG文件中含属性的块中的属性输出到EXECL中的程序，打开CAD文件下“SAMPLE\ACTIVEX\ExtAttr\ExtAttr.xls"，直接运行宏就有，大家可以试试

pppk

不会用，能不能说明一下

zzg123good

可惜只能一次选一个元素，楼主可以再把功能加强一些。期待中。

qiaqiadeng

很好的主题，我终于找到了。

sinbar

我看看先