实用坐标提取CAD-EXCEL

cqy

实用坐标提取CAD-EXCEL

xianglongg

怎么没有是用说明

cqy

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

兰州人

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

jinshaoyan

下载了，谢谢

boboyhb

下载了，但不会使用！劳请楼主详细说明下！

神影独龙

没有说明啊

blackfire

感谢分享

xiaowen

很感谢楼主分享,多谢了