CAD自动加载LSP脚本技巧

[code="lisp] ;(gps->appload-addfile "d:\\12.lsp") (defun gps->appload-addfile (AppName / $akey $skey loadctrlnum numstartup) (if (= (type appname) 'STR) (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) )   T ) nil );end if )[/code]