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

fanny_6 · 发表于 2005-6-30 16:05:00

请问怎样在CAD打开时加载子程序？
我是这样写的：
Private Sub AcadDocument_EndOpen(FileName As String)
'放要执行的子程序
End Sub
用 AcadDocument_beginOpen(FileName As String)也不行

fanny_6 · 发表于 2005-7-1 08:39:00

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

LucasLynn · 发表于 2005-7-1 14:33:00

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

LucasLynn · 发表于 2005-7-1 14:38:00

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

wylong · 发表于 2005-7-1 14:54:00

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

2jd3pvotzcj.JPG

fanny_6 · 发表于 2005-7-1 15:47:00

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

LucasLynn · 发表于 2005-7-1 17:31:00

其实这个方法完完全全就是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 · 发表于 2005-7-1 17:35:00

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