增加一个应用程序到自启动的VLisp代码

newer · 发表于 2014-12-20 13:20:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 newer 于 2014-12-20 13:23 编辑

How do I add an application to the Startup Suite, using Visual LISP?

Issue
How do I programmatically add an application to the Startup Suite?

Solution
The only way to programmatically add files to the Startup Suite is to modify the registry.  This can get tricky when you are working with different versions of AutoCAD as well as the verticals, as the CurVer setting varies.  Also, the changes don't become effective until you restart AutoCAD, so your best bet is probably to write a standalone VB app that makes these changes and then launches AutoCAD.  It is possible to add to the Startup Suite with Visual LISP, but there are a few limitations:

1) If there are no files in the Startup Suite, you must manually add a "dummy" lisp file, and leave it in the suite
2) You must be in single-document mode (SDI=1)
3) After running the code, you must immediately exit and restart the AutoCAD application

A generic example, which uses VB to modify the value of a registry key, can be found in a Microsoft knowledge base article:

HOWTO: Use the Registry API to Save and Retrieve Setting (Q145679)
http://support.microsoft.com/support/kb/articles/q145/6/79.asp

However, for many operations, we can use the Windows Script Host, and accomplish the task with less coding required.  NOTE: Information about Windows Script Technologies is available at the following Microsoft link:

http://msdn.microsoft.com/librar ... ?contentid=28001169

The example below uses Visual LISP to access the Windows Script Host Object Model to check the quantity of apps already in the Startup Suite, and the add an additional one, "C:\\StartupTest.lsp".  We then iterate through all the "?Startup" key values, and display the names of the files in the Startup Suite.  See below (please, note that "R17.2" in this code corresponds to AutoCAD 2009):

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

jyzas · 发表于 2014-12-20 18:09:13

谢谢楼主分享

lucas3 · 发表于 2014-12-20 13:24:45

感谢分享！

hao3ren · 发表于 2014-12-20 13:44:52

看看这个怎么自启动的

819534890 · 发表于 2014-12-20 14:02:17

很好，谢谢分享

wzg356 · 发表于 2014-12-20 14:30:11

天才啊。。。。

/db_自贡黄明儒_ · 发表于 2014-12-20 14:33:08

学习学习、天天向上

HLCAD · 发表于 2014-12-20 14:39:39

向N版学习ing...

ludaweb · 发表于 2014-12-20 15:39:36

429014673 · 发表于 2014-12-21 00:45:22

:D

无痕 · 发表于 2014-12-21 10:31:36

要是有中文翻译好点

st788796 · 发表于 2014-12-21 13:02:56

无痕发表于 2014-12-21 10:31
要是有中文翻译好点

呵呵，你的着应该不比他差:)

q3_2006 · 发表于 2014-12-21 13:08:46

改注册表似乎有的版本不太正常...

qyming1996 · 发表于 2014-12-23 10:01:38

学习................

viphappy · 发表于 2014-12-25 10:21:43

看看这个怎么自启动，谢谢N版

帐号		自动登录	找回密码
密码			立即注册