[求助]：如何在打开AutoCAD2002时自动生成特定图层？

coldice000 · 发表于 2003-12-9 18:39:00

本人刚学习VBA，有个问题想请教大家：我想在每一次打开软件的时候和每一次点击新建图纸的时候让它自动生成指定的几个图层，就像天河软件一样，如何才能达到这种效果？我会点VBA，想通过VBA来实现。

3kd · 发表于 2003-12-9 18:42:00

不用这么麻烦吧？只要在新建时使用模板文件就可以了呀

efan2000 · 发表于 2003-12-9 18:42:00

一种方法是做在模板，保存为DWT格式的。
另一种编写一个创建图层的程序，打开AutoCAD时自动运行，以及在Document_New事情（新建文档时）中调用创建图层的程序。

coldice000 · 发表于 2003-12-9 19:22:00

楼上：
如何使自己的程序随AutoCAD自动运行呢？我只会点VBA，在ACAD.DVB中加载吗？好象是不能实现。Document_New事情（是AddNew事件吧）好象也行不通

efan2000 · 发表于 2003-12-9 21:23:00

试了一下，在ACAD.DVB中的过程要等到VBA IDE启动之后才会运行。因而，最好放到Lisp中执行。
在Application的NewDrawing事件中，由于新文档刚创建时AutoCAD还没有创建层表，故不能其操作，需要一个延迟的操作，比如定时器来控制。
使用文档的激活事件来处理吧，对于新文档，创建之后就会自动触发这个事情。

copy


' 文档激活时触发的过程
Private Sub AcadDocument_Activate()
    Dim LayerObj As AcadLayer
    Dim bFound As Boolean
    ' 判断层是否存在
    For Each LayerObj In ThisDrawing.Layers
        If LayerObj.Name = "Test_CreateLayer" Then
            bFound = True
            Exit For
        End If
    Next
    Set LayerObj = Nothing
    If bFound = False Then ThisDrawing.Layers.Add "Test_CreateLayer"
End Sub

coldice000 · 发表于 2003-12-10 12:49:00

楼上：
我是想采取你说的办法，我也知道可以这么做，可惜自己不会Lisp，目前也没有Lisp的书籍。
我有一个问题：能不能在AutoCAD的启动组中加入一个VBA工程文件呢，这样可以在启动AutoCAD时就初始化VBA？

[求助]：如何在打开AutoCAD2002时自动生成特定图层？

发表回复

精选推荐