[求助]：将ＣＡＤ图层信息输出到ＥＸＣＥＬＬ中！

shuaier · 发表于 2006-4-25 17:30:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

将ＣＡＤ图层信息输出到ＥＸＣＥＬＬ中！
看看下面的图，就要想这样的：

tennicse · 发表于 2006-4-27 17:07:16

Public Function ExportLayerInfo() As Boolean

On Error GoTo ErrProc

Dim acLayer As AcadLayer
Dim App As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer

Set App = CreateObject("Excel.Application.11")
App.WindowState = xlMaximized
Set wb = App.Workbooks.Add
Set ws = wb.Worksheets(1)
i = 1
ws.Cells(i, 1).Value = "图层名"
ws.Cells(i, 2).Value = "颜色号"
ws.Cells(i, 3).Value = "线形"

For Each acLayer In ThisDrawing.Layers
i = i + 1
ws.Cells(i, 1).Value = acLayer.Name
ws.Cells(i, 2).Value = acLayer.TrueColor.ColorIndex
ws.Cells(i, 3).Value = acLayer.Linetype
Next

wb.Close True
Set App = Nothing
ExportLayerInfo = True
Exit Function

ErrProc:
ExportLayerInfo = False
End Function

不知道ID是什么图层属性

shuaier · 发表于 2006-4-27 18:54:42

ID,是序号,要不要都没有关系的!
真实太谢谢你了!
我还不知道怎么用啊?不好意思,我对编程通了六窍,还有一窍不通!

tennicse · 发表于 2006-4-28 14:49:50

autocad Alt+F11打开VBA编辑器，新建模块，拷贝代码到模块中，F5运行。

shuaier · 发表于 2006-4-28 14:58:57

怎么运行错误?

南宫腾 · 发表于 2006-4-28 16:12:18

和五楼说的一样出现错误怎么办呀，

shuaier · 发表于 2006-4-28 17:05:04

这个程序是用在EXCELL 2003中的

Polluxbao · 发表于 2006-4-29 15:08:58

可是我也用的是office2003 怎么也是这个错误呢？

shuaier · 发表于 2006-4-29 16:14:19

是吗，这个就需要tennicse 来解答了！

hpm4028 · 发表于 2006-5-5 22:10:03

请哪位大虾快快把CAD2007传上来呀谢谢哦

zgsdwy · 发表于 2006-5-7 16:12:08

在说详细一点好吗?照顾一下我们这些菜鸟

shuaier · 发表于 2006-5-12 13:31:51

我已经有了这个程序，现在上传上来与大家分享！
命令是ＴＣ，我已经测试过了可以用，好不容易得到的！

shuaier · 发表于 2006-5-12 13:38:17

看看输出的结果

jx2008 · 发表于 2006-11-26 23:44:20

不能下载，怎么回事啊？请重新上传吧

账号		自动登录	找回密码
密码			立即注册

[求助]：将ＣＡＤ图层信息输出到ＥＸＣＥＬＬ中！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子