社区 › VB › 实用坐标提取CAD-EXCEL

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

实用坐标提取CAD-EXCEL

实用坐标提取CAD-EXCEL**** Hidden Message *****

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 eachent 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 发表于 2009-8-25 23:14:00

下载了，谢谢

boboyhb 发表于 2009-9-23 12:40:00

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

神影独龙 发表于 2009-9-28 20:27:00

没有说明啊

blackfire 发表于 2009-10-6 11:13:00

感谢分享

xiaowen 发表于 2010-6-9 17:05:00

很感谢楼主分享,多谢了

查看完整版本: 实用坐标提取CAD-EXCEL