实用坐标提取CAD-EXCEL

cqy · 发表于 2009-7-27 19:07:00

实用坐标提取CAD-EXCEL

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

xianglongg · 发表于 2009-8-6 19:24:00

怎么没有是用说明

cqy · 发表于 2009-8-6 21:07:00

第一次使用必须先取消引用*.dll，然后再引用*.dll才能正常调用，使用中要有打开的任一EXCEL文件，A列为空或数字。

兰州人 · 发表于 2009-8-12 12:34:00

excel-cad思路
excel调用cad
Function ConnectCad() As AcadApplication
  Dim App As AcadApplication
  On Error Resume Next
  Set App = GetObject(, "AutoCad.Application")
  If Err Then
Err.Clear
Set App = CreateObject("AutoCad.Application")
  End If
  App.Visible = True
  Set ConnectCad = App
End Function
坐标提取的思路
  Dim cadapp As AcadApplication
  Set cadapp = ConnectCad
  for each  ent in cadapp.ActiveDocument.ModelSpace
   dim objLine as AcadEntiti
      If InStr(UCase(Ent.ObjectName), "ACDBLINE") > 0 Then
   Set objLine = Ent
      With objLine
      cells(ii,1)= .StartPoint(0)
      ......
      End With
   End If
  next ent