使用VBA部分插入dwg

Matersammichman · 发表于 2006-6-21 07:18:59

我通常使用宏将包含所有分层信息的dwg部分插入到dwg中，然后取消。这样可以防止dwg在获取所有分层数据时包含任何dwg图元。我的宏代码如下：
^C^C_ i；无论什么图纸^C^C^C ^C_-清除；bn^C^C_-清除；bn^C^C_-清除；bn^C^C_qsave^M
我想在VBA中执行相同的任务，但无法编写代码来执行部分dwg安装。
帮助？。。。请

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

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

hendie · 发表于 2006-6-21 08:20:16

为什么要费心插入图纸，只需编写一个vba应用程序即可创建必要的图层

Matersammichman · 发表于 2006-6-21 08:36:17

因为要重写我所有的分层，颜色，线型，情节/noplot等...因为我所有的AEC学科都需要一天的大部分时间。

Bryco · 发表于 2006-6-21 09:57:13

您还可以插入一个只有层的空，然后删除块ref。
然后删除块（先删除块中的所有ent）。
至于您的图层需要一天时间。您可以制作一个包含所有图层信息的txt文件（几分钟的代码），然后阅读它。

Matersammichman · 发表于 2006-6-22 21:04:10

从图形克隆到另一个图形:

copy

Public Sub CloneLayers()
    Dim pAxDoc As AxDbDocument
    ' Create an instance...
    Set pAxDoc = New AxDbDocument
    ' Load in the drawing containg the layers...
    pAxDoc.Open "C:\Temp\CloneLayersTest.dwg"
    
    ' Delcare an object array to hold the layers...
    Dim pLayersToClone() As AcadLayer
    Dim i As Integer
    Dim pAxLayer As AcadLayer
    
    i = -1
    For Each pAxLayer In pAxDoc.Layers
        i = i + 1
        ReDim Preserve pLayersToClone(i)
        Set pLayersToClone(i) = pAxLayer
    Next
    
    ' Clone 'em!
    pAxDoc.CopyObjects pLayersToClone, ThisDrawing.Layers
    
    ' Clean up
    Set pAxDoc = Nothing
End Sub