用秋枫老大程序制作的安装程序，问题出在哪里？

9701519

2. ;;; 判断是否加载本文件
   
3. (if (car (atoms-family 1 '("vl-load-com")))
   
4.    (vl-load-com)
   
5.    ;;else
   
6.    (progn
   
7.        (Alert
   
8.            "这个程序集是为AutoCAD 2000以及更高的版本设计的，许多程序有可能在没有Visual Lisp for R14支持的AutoCAD R14上不能正确地运行。"
   
9.        )
   
10.        (exit) ; 版本不符，退出加载。
    
11.    )
    
12. )
    
13. ;;; 以下定义文件中用到的函数
    
14. ;;;----------------------------------------------------------------------------------;;; 取得本程序的路径
    
15. ;;; ---------------------------------------------------------------------------------
    
16. (defun GetMyApplicationPath (AppID)
    
17.    (vl-registry-read
    
18.        (strcat
    
19.            "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\"
    
20.            AppID
    
21.            "_is1"
    
22.        )
    
23.        "Inno Setup: App Path"
    
24.    )
    
25. )(defun GetLZToolsPath ()
    
26.    (GetMyApplicationPath "Leon's Tools")
    
27. );;; 解析字符串为表（函数来自明经通道转载）
    
28. ;;; ---------------------------------------------------------------------------------
    
29. (defun strParse (Str Delimiter / SearchStr StringLen return n char)
    
30.    (setq SearchStr Str)
    
31.    (setq StringLen (strlen SearchStr))
    
32.    (setq return '())
    
33.    (while (> StringLen 0)
    
34.        (setq n 1)
    
35.        (setq char (substr SearchStr 1 1))
    
36.        (while (and (/= char Delimiter) (/= char ""))
    
37.            (setq n (1+ n))
    
38.            (setq char (substr SearchStr n 1))
    
39.        ) ;_ end of while
    
40.        (setq return (cons (substr SearchStr 1 (1- n)) return))
    
41.        (setq SearchStr (substr SearchStr (1+ n) StringLen))
    
42.        (setq StringLen (strlen SearchStr))
    
43.    ) ;_ end of while
    
44.    (reverse return)
    
45. ) ;_ end of defun;;; 反解析表为字符串（函数来自明经通道转载）
    
46. ;;; ---------------------------------------------------------------------------------
    
47. (defun StrUnParse (Lst Delimiter / return)
    
48.    (setq return "")
    
49.    (foreach str Lst
    
50.        (setq return (strcat return Delimiter str))
    
51.    ) ;_ end of foreach
    
52.    (substr return 2)
    
53. ) ;_ end of defun;;; 移除支持文件搜索路径
    
54. ;;; ---------------------------------------------------------------------------------
    
55. (defun LZ_RemoveSupportPath (PathToRemove / supportlist)
    
56.    (setq supportlist (strparse (getenv "ACAD") ";"))
    
57.    (setq supportlist (vl-remove "" supportlist))
    
58.    (setq supportlist
    
59.                  (vl-remove-if
    
60.                      '(lambda (x) (= (strcase x) (strcase PathToRemove)))
    
61.                      supportlist
    
62.                  )
    
63.    )
    
64.    (setenv "ACAD" (strUnParse supportlist ";"))
    
65. );;; 添加支持文件搜索路径
    
66. ;;; ---------------------------------------------------------------------------------
    
67. ;;; note:   第二个参数如果为真, 插最前，否则插最后
    
68. ;;;               
    
69. (defun LZ_AddSupportPath (PathToAdd isFirst / supportlist)
    
70.    (LZ_RemoveSupportPath PathToAdd)
    
71.    (setq supportlist (strparse (getenv "ACAD") ";"))
    
72.    (setq supportlist (vl-remove "" supportlist))
    
73.    (if isFirst
    
74.        (setq supportlist (cons PathToAdd supportlist))
    
75.        (setq supportlist (append supportlist (list PathToAdd)))
    
76.    )
    
77.    (setenv "ACAD" (strUnParse supportlist ";"))
    
78. )
    
79. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
80. (defun Init_LZools ()
    
81.     ;; 添加支持路径
    
82.    (LZ_AddSupportPath (GetLZToolsPath) nil)
    
83.    (LZ_AddSupportPath (strcat (GetLZToolsPath) "\\LISP") nil) (princ))
    
84.    
    
85. 
    
86. 
    
87. 
    

;;; 判断是否加载本文件<br /> (if (car (atoms-family 1 '("vl-load-com")))<br />    (vl-load-com)<br />    ;;else<br />    (progn<br />        (Alert<br />            "这个程序集是为<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2000以及更高的版本设计的，许多程序有可能在没有Visual Lisp for R14支持的AutoCAD R14上不能正确地运行。"<br />        )<br />        (exit) ; 版本不符，退出加载。<br />    )<br /> )<br /> ;;; 以下定义文件中用到的函数<br /> ;;;----------------------------------------------------------------------------------;;; 取得本程序的路径<br /> ;;; ---------------------------------------------------------------------------------<br /> (defun GetMyApplicationPath (AppID)<br />    (vl-registry-read<br />        (strcat<br />            "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\"<br />            AppID<br />            "_is1"<br />        )<br />        "Inno Setup: App Path"<br />    )<br /> )(defun GetLZToolsPath ()<br />    (GetMyApplicationPath "Leon's Tools")<br /> );;; 解析字符串为表（函数来自明经通道转载）<br /> ;;; ---------------------------------------------------------------------------------<br /> (defun strParse (Str Delimiter / SearchStr StringLen return n char)<br />    (setq SearchStr Str)<br />    (setq StringLen (strlen SearchStr))<br />    (setq return '())<br />    (while (> StringLen 0)<br />        (setq n 1)<br />        (setq char (substr SearchStr 1 1))<br />        (while (and (/= char Delimiter) (/= char ""))<br />            (setq n (1+ n))<br />            (setq char (substr SearchStr n 1))<br />        ) ;_ end of while<br />        (setq return (cons (substr SearchStr 1 (1- n)) return))<br />        (setq SearchStr (substr SearchStr (1+ n) StringLen))<br />        (setq StringLen (strlen SearchStr))<br />    ) ;_ end of while<br />    (reverse return)<br /> ) ;_ end of defun;;; 反解析表为字符串（函数来自明经通道转载）<br /> ;;; ---------------------------------------------------------------------------------<br /> (defun StrUnParse (Lst Delimiter / return)<br />    (setq return "")<br />    (foreach str Lst<br />        (setq return (strcat return Delimiter str))<br />    ) ;_ end of foreach<br />    (substr return 2)<br /> ) ;_ end of defun;;; 移除支持文件搜索路径<br /> ;;; ---------------------------------------------------------------------------------<br /> (defun LZ_RemoveSupportPath (PathToRemove / supportlist)<br />    (setq supportlist (strparse (getenv "ACAD") ";"))<br />    (setq supportlist (vl-remove "" supportlist))<br />    (setq supportlist<br />                  (vl-remove-if<br />                      '(lambda (x) (= (strcase x) (strcase PathToRemove)))<br />                      supportlist<br />                  )<br />    )<br />    (setenv "ACAD" (strUnParse supportlist ";"))<br /> );;; 添加支持文件搜索路径<br /> ;;; ---------------------------------------------------------------------------------<br /> ;;; note:   第二个参数如果为真, 插最前，否则插最后<br /> ;;;               <br /> (defun LZ_AddSupportPath (PathToAdd isFirst / supportlist)<br />    (LZ_RemoveSupportPath PathToAdd)<br />    (setq supportlist (strparse (getenv "ACAD") ";"))<br />    (setq supportlist (vl-remove "" supportlist))<br />    (if isFirst<br />        (setq supportlist (cons PathToAdd supportlist))<br />        (setq supportlist (append supportlist (list PathToAdd)))<br />    )<br />    (setenv "ACAD" (strUnParse supportlist ";"))<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun Init_LZools ()<br />     ;; 添加支持路径<br />    (LZ_AddSupportPath (GetLZToolsPath) nil)<br />    (LZ_AddSupportPath (strcat (GetLZToolsPath) "\\LISP") nil) (princ))<br />    <br /> <br /> <br /> <br />

用此命令 (LZ_AddSupportPath (GetLZToolsPath) nil) 可以导入安装路径添加到CAD支持文件搜索路径，但命令行会出现如附件图片显示

写成以下这样就不能导入安装路径添加到CAD支持文件搜索路径
(defun Init_LZools ()
    ;; 添加支持路径
   (LZ_AddSupportPath (GetLZToolsPath) nil)
   (LZ_AddSupportPath (strcat (GetLZToolsPath) "\\LISP") nil) (princ))

byghbcx

vl-registry-read，在64位win7系统中读不出,有什么解决办法？

9701519

用秋枫老大程序制作的安装程序，问题出在哪里？

9701519

用秋枫老大程序制作的安装程序，问题出在哪里？

soly2006

不顶不行，不要让他给沉了！
楼下继续。

shenyanggang

请高手出来帮忙啊！

9701519

用秋枫老大程序制作的安装程序，问题出在哪里？

9701519

问题出在哪里？

9701519

9701519

没人知道吗？

革天明

9701519 发表于 2012-4-3 11:52
没人知道吗？

我的就没有出过问题，直接用2011-4-20的那个程序