新从模板
好吧，我找了找，什么也没找到，就这样吧。有人知道从Acad调用这个例程并传递模板名的方法吗？Public Sub makenewdwg(dsh As String)
Application.Documents.Add dsh
End Sub
我尝试了这个
Public Sub qnewdwg()
makenewdwg "coversheet"
End Sub
whcih确实工作，但我不想做5个subs，其中唯一不同的是模板名称。我希望有一种方法可以调用“makenewdwg”并直接传递参数。我希望这有意义
**** Hidden Message ***** 我从来没有想出如何直接从菜单中做到这一点，我想这与你正在做的类似，所以5个子不会花太长时间来制作。我有100个，所以我写了一个子来写所有的子。 这可以从命令行工作，也应该在菜单中工作:
(command "vbastmt" "makenewdwg \"acad\"")
用您的模板名称替换acad。 干得好，杰夫。
那是什么语言？
这是LSP，其中有一点VBA投入其中。VBASTMT - VBA Statement 非常好！！我试着使用vbastmt，但总是出现语法错误，不知道如何让它工作。“是我的问题，我没有” 好吧，有什么诀窍？我似乎不能让它工作 关键是模板必须是DWT文件，并且位于您指定的模板位置或包含的确切路径中。此外，请确保加载了带有makenewdwg Sub的DVB。
当我尝试在没有先加载宏的情况下运行它时，我遇到了与您相同的错误。
不需要为那一行做一个子，因为你可以把它作为语句输入。
上面对我有用。 ...或者，您可以根据PROJECTNAME动态更改首选项QNEW模板，这是我过去所做的。
页:
[1]
2