明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 397|回复: 5

加启动组-删启动组

[复制链接]
发表于 2021-9-2 10:15 | 显示全部楼层 |阅读模式
本帖最后由 尘缘一生 于 2021-9-4 17:16 编辑

  • ;;是否在启动组中
  • ;; 示例(addToStartupSuite "D:\\DT\\DTIImain.lsp")
  • (defun gps->appload-filepath (AppName / $skey i keyvalue numstartup svlst x)
  •   (if (member (type appname) '(STR SYM))
  •     (progn
  •       (setq $skey
  •         (strcat "HKEY_CURRENT_USER\\"
  •           (vlax-product-key)
  •           "\\Profiles\\"
  •           (getvar "CPROFILE")
  •           "\\Dialogs\\Appload\\Startup"
  •         )
  •       )
  •       (setq NumStartup (vl-registry-read $skey "NumStartup"))
  •       (if (= (type NumStartup) 'STR)
  •         (progn
  •           (setq  NumStartup (atoi NumStartup) i 1)
  •           (repeat NumStartup
  •             (if  (setq keyvalue (vl-registry-read $skey (strcat (itoa i) "Startup")))
  •               (setq svlst (append svlst (list keyvalue)) i (1+ i))
  •               (setq i (1+ i))
  •             )
  •           )
  •           (if svlst
  •             (setq svlst (mapcar 'strcase svlst))
  •           )
  •         )
  •       )
  •       (member (strcase appname) svlst)
  •     )
  •   )
  • )
  • ;;在启动组加入----------------(一级)---------------
  • (defun addToStartupSuite (AppName / $akey $skey loadctrlnum numstartup)
  •   (if (null (gps->appload-filepath AppName))
  •     (progn
  •       (setq
  •         $skey (strcat "HKEY_CURRENT_USER\\"
  •                 (vlax-product-key)
  •                 "\\Profiles\\"
  •                 (getvar "CPROFILE")
  •                 "\\Dialogs\\Appload\\Startup"
  •               )
  •         $akey (strcat "HKEY_CURRENT_USER\\"
  •                 (vlax-product-key)
  •                 "\\Applications\\AcadAppload"
  •               )
  •       )
  •       (setq NumStartup (vl-registry-read $skey "NumStartup"))
  •       (if NumStartup
  •         (progn
  •           (vl-registry-write $skey "NumStartup" (itoa (1+ (atoi NumStartup))))
  •           (vl-registry-write
  •             $skey
  •             (strcat (itoa (1+ (atoi NumStartup))) "Startup")
  •             AppName
  •           )
  •         )
  •         (progn
  •           (vl-registry-write $skey "NumStartup" "1")
  •           (vl-registry-write $skey "1Startup" AppName)
  •         )
  •       )
  •       ;;读取LoadCtrls的值,将这个值与2作“或”运算,再写回。这样可以保证AutoCAD启动时会加载Appload.arx模块。
  •       (setq loadctrlnum (vl-registry-read $akey "LOADCTRLS"))
  •       (if loadctrlnum
  •         (vl-registry-write $akey "LOADCTRLS" (Boole 7 loadctrlnum 2))
  •         (vl-registry-write $akey "LOADCTRLS" 15)
  •       )
  •     )
  •   )
  • )
  • ;;删除启动组-------------------(一级)----------------------
  • ;;appname "d:\\abc.vlx"   kmsg  "abc"
  • (defun delStartupSuite (AppName kmsg / i $skey numstartup)
  •   (if (gps->appload-filepath AppName)
  •     (progn
  •       (setq $skey (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (getvar "CPROFILE") "\\Dialogs\\Appload\\Startup"))
  •       (setq NumStartup (vl-registry-read $skey "NumStartup") i 0)
  •       (if (> (atoi NumStartup) 0)
  •         (while (< i (atoi NumStartup))
  •           (if (wcmatch (vl-registry-read $skey (strcat (itoa (setq i (1+ i))) "Startup")) (strcat "*" kmsg "*"))
  •             (progn
  •               (vl-registry-delete $skey (strcat (itoa i) "Startup")) ;;删除AppName 启动项
  •               (vl-registry-write $skey "NumStartup" (itoa (1- (atoi NumStartup)))) ;;启动项-1重写
  •             )
  •           )
  •         )
  •         (princ "\n 启动组里无有加载项目....")
  •       )
  •     )
  •   )
  • )




本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 2明经币 +2 收起 理由
panliang9 + 1 很给力!
USER2128 + 1 赞一个!

查看全部评分

发表于 2021-9-3 09:38 | 显示全部楼层
很有用,谢谢分享
发表于 2021-9-4 14:42 | 显示全部楼层
怎么删除不了
 楼主| 发表于 2021-9-4 17:02 | 显示全部楼层
本帖最后由 尘缘一生 于 2021-9-4 17:16 编辑

删除启动组是我摸索写的,其他程序在晓东论坛得到的。。。我这里很完美,我是WIN7 64位,CAD版本2020。对于WIN10 64位,我没有测试。我把程序附件加上,你下载摸索下吧,那里修改修改。
发表于 2021-9-6 14:02 | 显示全部楼层
谢谢分享,很有用
发表于 2021-9-7 15:08 | 显示全部楼层
尘缘一生 发表于 2021-9-4 17:02
删除启动组是我摸索写的,其他程序在晓东论坛得到的。。。我这里很完美,我是WIN7 64位,CAD版本2020。对 ...

嗯,感谢你的回复,我再看看
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2021-10-25 12:15 , Processed in 0.536502 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表