请问怎样在CAD打开时加载子程序？

fanny_6

请问怎样在CAD打开时加载子程序？


我是这样写的：


Private Sub AcadDocument_EndOpen(FileName As String)


'放要执行的子程序


End Sub


用 AcadDocument_beginOpen(FileName As String)也不行

fanny_6

写这段的目的是：在打开文档时自动添加几个常用的字体样式。
如果用其他方法实现亦可

LucasLynn

在AutoCAD目录下新建：autocad.lsp 编辑内容如下： (defun S::STARTUP()
(command "_-vbarun" "SubName")
)

LucasLynn

加载字体样式应该在选项-文件-文本编辑器、字典和字体文件名项中设置一下就可以了吧。

wylong

你可以这样做：打开一个空的 dwg 文件，在 文字样式 设置好你常用的字体样式，再保存为 *.dwt 样板文件；然后在 选项-文件-样板设置－快速新建的默认样板文件名 项中设置为你刚保存的*.dwt就可以了。如下图所示：

fanny_6

我已经用LucasLynn的方法解决了，谢了
wylong的方法我觉得有个缺点：因为打开别人的图修改时是不能套用模板的

LucasLynn

其实这个方法完完全全就是AuytoCAD 2005 开发人员文档提供的。我只是做了Copy/Paste而已，建议大家还是多查文档，毕竟资料里面的信息比问别人完整的多。 全文内容是：

自动运行 VBA 宏

用户可以自动运行 acad.dvb 文件中的任何宏，方法是从 AutoCAD 启动功能（如 acad.lsp）中通过 VBARUN 的命令行版本调用。例如，要自动运行名为 drawline 的宏，请先将 drawline 宏保存在 acad.dvb 文件中。然后调用 notepad.exe 并在 acad.lsp 中创建（或附加）下面几行：

(defun S::STARTUP()

     (command "_-vbarun" "drawline")

)

将宏命名为 AcadStartup，这样在加载 VBA 时就会自动运行该宏。当加载 VBA 时，将自动执行 acad.dvb 文件中所有名为 AcadStartup 的宏。

LucasLynn

不过这里要注意的是：文档里面提到ACADStartup宏可以自动运行，但是很容易忽略了一个前提“加载VBA时”，而ACAD在启动的时候并没有加载任何VBA（包括自动加载的ACAD.DVB），而是要到第一次调用和VBA相关的内容的时候（比方说调用一个宏或者打开VBA编辑环境）才会自动运行ACADStartup，所以如果想让ACAD启动自动运行，最好还是用ACAD.LSP的方法。

fanny_6

发一个05的开发指南上来吧，我发现04的开发指南很难看懂

LucasLynn

fanny_6发表于2005-7-1 17:55:00发一个05的开发指南上来吧，我发现04的开发指南很难看懂

应该差不多的吧，上面这篇就在 ActiveX 和 VBA 开发人员指南/使用VBA开发应用程序/自动运行VBA宏