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

Lt Dan's l · 发表于 2022-7-6 09:04:07

我要换成阿卡多克。加载LISP的lsp方法。我开始对启动套件有问题（无法加载其中的所有Lisp）。有没有办法删除所有内容。通过lisp从startupsuite获得lsp？在帮助文件中找不到运气。。

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

我不是百分之百确定，但你可以尝试清理这条路。
k

Lee Mac · 发表于 2022-7-6 09:11:24

找到了克鲁格

在代码中，该路径为：

(strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar 'CPROFILE) "\\Dialogs\\Appload\\Startup")

但是，以这种方式直接修改注册表时要小心，也不要删除“NumStartup”键。

Lt Dan's l · 发表于 2022-7-6 09:15:59

这样地？？

copy

(
 (lambda ( ext )
   (foreach x (vl-registry-descendents ext "")
     (and (not (eq (strcase x) "NUMSTARTUP"))
       (vl-registry-delete ext  x)
     )
   )
 )
 (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "[url="file://profiles//"]\\Profiles\\[/url]" (getvar 'CPROFILE) "[url="file://dialogs//Appload//Startup"]\\Dialogs\\Appload\\Startup[/url]")
)

__编辑__
这不是。。。

irneb · 发表于 2022-7-6 09:18:38

你可以试试这样的吗

copy

(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-registry-read key val) "" nil)") f)
          (vl-registry-delete key val)
         )
       )
     )
     (close f)
   )
 )
)

Lt Dan's l · 发表于 2022-7-6 09:21:26

谢谢你的回复
上面的代码返回LISP，但不会将其从启动套件中删除。

发现了一些东西

copy

 
     (foreach val (vl-registry-descendents
                    (setq key (strcat "HKEY_CURRENT_USER\"
                                      (vlax-product-key)
                                      "\\Profiles\"
                                      (getvar 'CPROFILE)
                                      "\\Dialogs\\Appload\\Startup"
                              )
                    [color=darkred][b])
                         "*"[/b][/color]