添加当前文件路径到搜索路径只能拖拽不能AP加载

qmqyqj

可通过拖拽的方式将当前lisp程序的路径添加到支持的搜索目录，但通过AP加载的方式就不行，不知道什么原因造成的，希望有高手指点一下

2. ;;添加当前文件路径
   
3. ;;;运行路径设置常数
   
4. (setq envstr(getenv "processor_architecture"))
   
5.    (if(vl-string-search "64" envstr)
   
6.       (setq X64 T)
   
7.       (setq X64 nil)
   
8. )
   
9. (vl-load-com)
   
10. (vl-catch-all-apply
    
11. '(lambda ( / nn str html)
    
12.   (while (= (logand (getvar "CmdActive") 1) 1) (command))
    
13.   (princ "\n")
    
14.   (command "_.copyhist")
    
15.   (and (setq html (vlax-create-object "htmlfile"))
    
16.        (setq str (vlax-invoke-method (vlax-get (vlax-get html 'parentwindow) 'clipboarddata) 'getdata "text")
    
17.              str (strcase (if (= (type str) 'variant) (vlax-variant-value str) str))
    
18.        )
    
19.        (progn
    
20.         (if (getvar "secureload") (setvar "secureload" 0))
    
21.           (setq str (vl-string-right-trim ""\) " str))
    
22.           (while (setq nn (vl-string-position 34 str)) ;(ascii """) = 34
    
23.                 (setq str (substr str (+ nn 2)))
    
24.           )
    
25.           (while (vl-string-search "\r\n" str)
    
26.                  (setq str (vl-string-subst "" "\r\n" str))
    
27.           )
    
28.           (setq str (vl-filename-directory (vl-string-translate "/" "\"  str)))
    
29.        )
    
30.        (progn
    
31.           (setq cadver(substr (getvar"ACADVER") 1 4))
    
32. ;添加文件路径程序
    
33. (setq dfg '(getenv "acad"))
    
34. (vl-load-com)
    
35. (setq var (vlax-get (setq tmp (vlax-get (vlax-get (vlax-get-acad-object)"Preferences") "Files")) "SupportPath"))
    
36. (if (= (member "  " dfg) nil)
    
37. (vlax-put tmp "SupportPath" (strcat (strcat str "\\系统;") var)));添加当前lisp路径到文件搜索路径
    
38. )
    
39.   )
    
40.   (and html (vlax-release-object html))
    
41.   (princ)
    
42. )
    
43. nil
    
44. )
    
45. (princ)

;;添加当前文件路径<br /> ;;;运行路径设置常数<br /> (setq envstr(getenv "processor_architecture"))<br />    (if(vl-string-search "64" envstr)<br />       (setq X64 T)<br />       (setq X64 nil)<br /> )<br /> (vl-load-com)<br /> (vl-catch-all-apply<br /> '(lambda ( / nn str html)<br />   (while (= (logand (getvar "CmdActive") 1) 1) (command))<br />   (princ "\n")<br />   (command "_.copyhist")<br />   (and (setq html (vlax-create-object "htmlfile"))<br />        (setq str (vlax-invoke-method (vlax-get (vlax-get html 'parentwindow) 'clipboarddata) 'getdata "text")<br />              str (strcase (if (= (type str) 'variant) (vlax-variant-value str) str))<br />        )<br />        (progn<br />         (if (getvar "secureload") (setvar "secureload" 0))<br />           (setq str (vl-string-right-trim ""\) " str))<br />           (while (setq nn (vl-string-position 34 str)) ;(ascii """) = 34<br />                 (setq str (substr str (+ nn 2)))<br />           )<br />           (while (vl-string-search "\r\n" str)<br />                  (setq str (vl-string-subst "" "\r\n" str))<br />           )<br />           (setq str (vl-filename-directory (vl-string-translate "/" "\"  str)))<br />        )<br />        (progn<br />           (setq cadver(substr (getvar"ACADVER") 1 4))<br /> ;添加文件路径程序<br /> (setq dfg '(getenv "acad"))<br /> (vl-load-com)<br /> (setq var (vlax-get (setq tmp (vlax-get (vlax-get (vlax-get-acad-object)"Preferences") "Files")) "SupportPath"))<br /> (if (= (member "  " dfg) nil)<br /> (vlax-put tmp "SupportPath" (strcat (strcat str "\\系统;") var)));添加当前lisp路径到文件搜索路径<br /> )<br />   )<br />   (and html (vlax-release-object html))<br />   (princ)<br /> )<br /> nil<br /> )<br /> (princ)

zhangkui9070

因为ap加载获取不到程序路径

自贡黄明儒

记得虾版写过，你可以找来对比一下。搜Shrimp