从模板新建

Bryco · 发表于 2008-3-24 18:06:00

好的，我看了看，看不出来；我什么也找不到，就这样&nbsp；有人知道如何从Acad调用此例程并传递模板名称吗
[代码我试过这个

Public Sub qnewdwg()
makenewdwg "coversheet"
End Sub

whcih确实有效，但我不想制作5个sub，其中唯一不同的是模板名称&nbsp；我希望能找到一种方式来打电话；makenewdwg“；直接传递论点&nbsp；我希望这有意义

Jeff_M · 发表于 2008-3-24 20:15:46

我从来都不知道如何直接从菜单上完成这项工作，我认为这与您正在做的事情类似；因此，5个子系统don#039；不要花太长时间。我有100#039；所以我写了一个sub来写所有的sub。

Bryco · 发表于 2008-3-24 21:28:07

这可以从命令行执行，也可以在菜单中执行：

(command "vbastmt" "makenewdwg "acad"")

用模板名称替换acad。

Jeff_M · 发表于 2008-3-25 09:50:55

干得好，杰夫
那是什么语言？

T.Willey · 发表于 2008-3-25 10:20:53

039；s LSP中加入少量VBA&nbsp&nbsp；VBASTMT-VBA语句

Bryco · 发表于 2008-3-25 11:35:13

非常好&nbsp；我试图使用vbastmt，但不断出现语法错误，无法#039；我不知道该怎么做&nbsp；“the \”；是我的问题，我没有#039；我没有\

T.Willey · 发表于 2008-3-25 11:52:09

好的，诀窍是什么&nbsp；我似乎无法让它工作

Jeff_M · 发表于 2008-3-25 12:31:57

关键是模板必须是DWT文件，并且位于指定的模板位置或包含的确切路径中。此外，请确保已加载带有makenewdwg Sub的DVB
当我在没有加载宏的情况下尝试运行它时，我遇到了与您相同的错误

Jeff_M · 发表于 2008-3-25 13:39:14

不需要只为这一行生成sub，因为您可以将其作为语句输入

(command "_.vbastmt" "Application.Documents.Add("DwtFileName")")

以上这些对我来说很有效。

Jeff_M · 发表于 2008-3-25 16:02:44

...或者，您可以基于PROJECTNAME动态地更改首选项QNEW-template，这就是I&#039；我过去做过。