新从模板

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

好吧，我找了找，什么也没找到，就这样吧。有人知道从Acad调用这个例程并传递模板名的方法吗？

Public Sub makenewdwg(dsh As String)
Application.Documents.Add dsh
End Sub

我尝试了这个

Public Sub qnewdwg()
makenewdwg "coversheet"
End Sub

whcih确实工作，但我不想做5个subs，其中唯一不同的是模板名称。我希望有一种方法可以调用“makenewdwg”并直接传递参数。我希望这有意义

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

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

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

我从来没有想出如何直接从菜单中做到这一点，我想这与你正在做的类似，所以5个子不会花太长时间来制作。我有100个，所以我写了一个子来写所有的子。

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

这是LSP，其中有一点VBA投入其中。 VBASTMT - VBA Statement

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

非常好！！我试着使用vbastmt，但总是出现语法错误，不知道如何让它工作。“是我的问题，我没有”

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

好吧，有什么诀窍？我似乎不能让它工作

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

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

T.Willey · 发表于 2008-3-25 13:39:14

不需要为那一行做一个子，因为你可以把它作为语句输入。
上面对我有用。

T.Willey · 发表于 2008-3-25 16:02:44

...或者，您可以根据PROJECTNAME动态更改首选项QNEW模板，这是我过去所做的。