有没有办法删除所有内容。

Lee Mac · 发表于 2022-7-6 09:38:00

您可能还需要按F5刷新注册表以查看更改。此外，请确保您具有修改注册表的权限。

Irneb代码的快速修改：

(vl-load-com)
(defun MoveStartup2ACADDOC ( / f key val )
   (if
       (or
           (and
               (setq f (findfile "acaddoc.lsp"))
               (setq f (open f "a"))
           )
           (and
               (setq f (getenv "ACAD"))
               (setq f (substr f 1 (vl-string-search ";" f)))
               (or (wcmatch f "*\")
                   (setq f (strcat f "\"))
               )
               (setq f (strcat f "acaddoc.lsp"))
               (setq f (open f "w"))
           )
       )
       (progn
           (foreach val
                (vl-registry-descendents
                    (setq key
                        (strcat "HKEY_CURRENT_USER\"
                            (vlax-product-key)
                            "\\Profiles\"
                            (getvar 'CPROFILE)
                            "\\Dialogs\\Appload\\Startup"
                        )
                    )
                    "*"
                )
                (cond
                    (   (eq val "NumStartup")
                        (vl-registry-write key val "0")
                    )
                    (   (wcmatch val "*Startup")
                        (write-line (strcat "(load " (vl-prin1-to-string (vl-registry-read key val)) " nil)") f)
                        (vl-registry-delete key val)
                    )
                )
           )
           (close f)
       )
   )
   (princ)
)

编辑：快速测试表明此方法无效。

路径确实已从注册表中删除，但在AutoCAD重新启动时会被重写-返回到绘图板（请原谅这个双关语）

Lt Dan's l · 发表于 2022-7-6 09:40:02

查看桌面时按F5？如果是这样的话，它就不起作用了。我会试着重新启动电脑，看看能不能用。

Lee Mac · 发表于 2022-7-6 09:45:01

不，当查看注册表时（即，如果您将regedit保持打开状态），请参阅上面的“我的编辑”。

Lt Dan's l · 发表于 2022-7-6 09:46:17

重启成功！
我想在不去每个人的工作站的情况下运行它，所以重启是我的选择。

谢谢大家！！

Guest kruuger · 发表于 2022-7-6 09:50:10

您还应该考虑acad。带有自动加载的mnl相当于将许多文件加载到acaddoc。lsp
k

irneb · 发表于 2022-7-6 09:52:31

我会远离那个。也许你指的是习俗。mnl？虽然它可能会起作用，但这很像你改变acad。崔（x）。。。可能会被更新覆盖。
其实我更喜欢自己做崔和它的伴奏MNL。更“健壮”：如果菜单已加载，则您知道您的MNL也已加载（即使它不在支持路径上）。

至于“重写”创业套件。只有在关闭ACad之前打开startup suite，才会执行此操作。所以运行我的代码（或者说李的mod），立即关闭ACad。无论如何，在RegEdit中按F5刷新（或者简单地来回更改文件夹），它不需要这样做就可以工作。

这是我的一个测试：从通过启动套件加载的一些LSP开始。

你可以看到它们在注册表中。

然后用我的defun和当前的acaddoc打开了VLIDE。lsp。在控制台中直接运行我的代码。注意阿卡多克。lsp发生更改，VLIDE会通知您：

登录/注册后可看大图

之后，将这3个文件附加到acaddoc。lsp。这里是李的mod进行修复的地方。注意，我的只有一个反斜杠：

关闭ACad。打开RegEdit（如果已打开，请按F5）：

重新打开ACad（确保上一个会话已关闭-检查任务管理器中正在运行的进程）。打开启动套件。。。他们走了：

尽管李的国防部修正了双反斜杠问题。