拖进绘图区域自动加载至启动组

baitang36

好东西，留个脚印

caoliu023

感谢分享

magicheno

感谢海哥分享~

guankuiwu

很好的功能！多谢分享！

slmmwan2008

路过学习了

XIAO890325

不知道是不是电脑的问题，昨天拖入黑屏，重启后启动组里一直没有拖入的文件。

xieling888

  必须给海哥一个赞

gwar

路过学习了

qazxswk

楼主的代码，我，加载不成功。我用下面的代码，加载成功

(vl-load-com)
(defun try-tuo-path(/ path str)
        (princ "\n")
        (setq path (getvar "lastprompt"));读取拖进黑框的路径
        (if (wcmatch (strcase path) "*(LOAD \"*")
                (setq str (vl-string-search "(LOAD \"" path)
                        path (substr path (+ str 8) (- (vl-string-search "\")" path) str 7))
                )
        )
        (vl-string-translate "/" "\\" path)
)
;(gps->appload-addfile "d:\\12.lsp")
(defun gps->appload-addfile (AppName /  $skey numstartup)
(if (= (type appname) 'STR)
(progn
  (setq  $skey (strcat "HKEY_CURRENT_USER\\"
                         (vlax-product-key)
                         "\\Profiles\\"
                         (getvar "CPROFILE")
                         "\\Dialogs\\Appload\\Startup")
  )
  (setq NumStartup (vl-registry-read $skey "NumStartup"))
  (if NumStartup
    (progn
    (vl-registry-write $skey (strcat (itoa (+ 1 (atoi NumStartup))) "Startup") AppName)
    (vl-registry-write $skey "NumStartup"(strcat (itoa (+ 1 (atoi NumStartup)))))
      )
    (progn
        (vl-registry-write $skey "0Startup" AppName)
    (vl-registry-write $skey "NumStartup" "1")
        )
  )
T
)
nil
)
)
(gps->appload-addfile (try-tuo-path))

sjl_fyl

谢谢