[原创]：轻松写CAD“启动组”函数（公开源代码）

zyhandw · 发表于 2013-7-6 17:29:49

eachy的mnu+mnl方法很好，感谢提供思路

1993063 · 发表于 2013-7-9 18:59:36

谢谢众位坛友代码分享！

杜流浪人 · 发表于 2014-5-25 11:45:48

省去了每次都加载的麻烦学习了

yhly555 · 发表于 2014-8-27 16:51:49

又是一个看不到附件的

范建威 · 发表于 2017-5-8 13:18:09

(defun Bf-PutStartup (path / getstartnum getstartup getstartupkey n)
;;获取加载文件列表
(defun GetStartup (/ n startgroup)
(if (not (zerop (setq n (read (getstartnum)))))
(progn
(repeat n
(setq startgroup
(cons (vl-registry-read
(getstartupkey)
(strcat (itoa n)
"Startup"
)
)
startgroup
)
)
(setq n (1- n))
)
)
)
startgroup
)
;;自动加载文件数量
(defun getStartNum (/ acProfile num)
(setq num
(vl-registry-read
(getstartupkey)
"NumStartup"
)
)
num
)
;;当前配置
(defun GetstartupKey ()
(strcat "HKEY_CURRENT_USER\"
(vlax-product-key)
"\\Profiles\"
(vlax-get-property
(vlax-get-property
(vlax-get-property (vlax-get-acad-object) 'Preferences)
'Profiles
)
'activeprofile
)
"\\Dialogs\\Appload\\Startup"
)
)
(setq n (atoi (getstartnum)))
(vl-registry-write
(strcat (getstartupkey) "\")
(strcat (itoa (1+ n)) "Startup")
path
)
(vl-registry-write
(strcat (getstartupkey) "\");;路径
"NumStartup" ;;路径文件下文件名
(itoa (1+ n)) ;;设置值
)
)

(defun Bf-PutStartup (path / getstartnum getstartup getstartupkey n) 
        ;;获取加载文件列表 
        (defun GetStartup (/ n startgroup) 
                (if (not (zerop (setq n (read (getstartnum))))) 
                        (progn 
                                (repeat n 
                                        (setq startgroup 
                                                (cons (vl-registry-read 
                                                                                (getstartupkey) 
                                                                                (strcat (itoa n) 
                                                                                        "Startup" 
                                                                                ) 
                                                                        ) 
                                                        startgroup 
                                                ) 
                                        ) 
                                        (setq n (1- n)) 
                                ) 
                        ) 
                ) 
                startgroup 
        ) 
        ;;自动加载文件数量 
        (defun getStartNum (/ acProfile num) 
                (setq num 
                        (vl-registry-read 
                                (getstartupkey) 
                                "NumStartup" 
                        ) 
                ) 
                num 
        ) 
        ;;当前配置 
        (defun GetstartupKey () 
                (strcat "HKEY_CURRENT_USER\" 
                        (vlax-product-key) 
                        "\\Profiles\" 
                        (vlax-get-property 
                                (vlax-get-property 
                                        (vlax-get-property (vlax-get-acad-object) 'Preferences) 
                                        'Profiles 
                                ) 
                                'activeprofile 
                        ) 
                        "\\Dialogs\\Appload\\Startup" 
                ) 
        ) 
  (setq n (atoi (getstartnum))) 
  (vl-registry-write 
                (strcat (getstartupkey)        "\") 
                (strcat (itoa (1+ n))        "Startup") 
                path 
        ) 
  (vl-registry-write 
                (strcat (getstartupkey)        "\");;路径 
                "NumStartup"                 ;;路径文件下文件名 
                (itoa (1+ n))                ;;设置值 
        ) 
)

satan421 · 发表于 2019-3-27 09:55:01

感谢分享，能少走很多弯路。

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