让CAD启动的时候自动加入LSP程序

another2121

      每次在用到LSP程序的时候，不是用LOAD、就是APPLOAD这两个命令，比较烦琐。。。。故在注册表中发现加入一个键值就能让CAD在每次启动的时候，自动加载LSP程序。。。。

     方法如下：
       1.打开注册表如下位置：（例：AutoCAD 2006)
    HKEY_CURRENT_USER\software\autodesk\autocad\R16.2\acad-400:804\profies\<<未命名配置>>\dialogs\appload\startup
         《不同版本的CAD请选择相应的版本号（红色部分）》
          <使用CASS的朋友请选择   CASS XX   >   

       2.新建字符串值       1startup                 内容：  lsp文件所在路径及文件名。（如：C:\ABC\123.LSP)
          《如有多个文件，可以再建    2startup    3startup ................nstartup    内容都是相应lsp程序的路径》

       3.新建字符串值        numstartup          内容： 1
           《如有多个文件， 只须把上面的键值内容改成相应的数值就行了》

     4.关闭注册表，打开CAD...试试看。。。。。

    由于本人的CAD知识，都是从电脑上面“摸”出来的，所以有很多更加方便快捷的知识对于我来说是未知的。。。也是我所学习的。。。谢谢

szboy

APPLOAD命令在启动组中添加是否方便些

sachindkini

2. ;;----------------------=={ AutoLoader }==--------------------;;
   
3. ;;                                                            ;;
   
4. ;;  Prompts for a directory selection and proceeds to write   ;;
   
5. ;;  AutoLoad statements for all LISP files found in the       ;;
   
6. ;;  selected directory to an output text file.                ;;
   
7. ;;------------------------------------------------------------;;
   
8. ;;  Author: Lee Mac, Copyright &copy; 2011        ;;
   
9. ;;------------------------------------------------------------;;
   
10. 
    
11. (defun c:AutoLoader ( / *error* dir lst out file ) (vl-load-com)
    
12. 
    
13.   (defun *error* ( msg )
    
14.     (if (and file (eq 'FILE (type file))) (close file))
    
15.     (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
    
16.         (princ (strcat "\n** Error: " msg " **")))
    
17.     (princ)
    
18.   )
    
19. 
    
20.   (if
    
21.     (and
    
22.       (setq dir
    
23.         (LM:DirectoryDialog
    
24.           (strcat
    
25.             "Select Directory of LISP files for which to generate AutoLoad expressions.\n"
    
26.             "\nNote: Subdirectories of the selected directory will not be processed."
    
27.           )
    
28.           nil 832
    
29.         )
    
30.       )
    
31.       (setq lst  (vl-directory-files (setq dir (vl-string-translate "\" "/" dir)) "*.lsp" 1))
    
32.       (setq out  (getfiled "Create Output File" "" "txt" 1))
    
33.       (setq file (open out "w"))
    
34.     )
    
35.     (progn
    
36.       (mapcar
    
37.         (function
    
38.           (lambda ( lsp / syn )
    
39.             (if (setq syn (LM:GetSyntax (strcat dir "/" lsp)))
    
40.               (write-line
    
41.                 (strcat "(autoload "
    
42.                   (vl-prin1-to-string (strcat dir "/" lsp)) " '" (vl-prin1-to-string syn) ")"
    
43.                 )
    
44.                 file
    
45.               )
    
46.             )
    
47.           )
    
48.         )
    
49.         lst
    
50.       )
    
51.       (setq file (close file)) (startapp "notepad" out)
    
52.     )
    
53.   )
    
54. 
    
55.   (princ)
    
56. )
    
57. 
    
58. ;;--------------------=={ Get Syntax }==----------------------;;
    
59. ;;                                                            ;;
    
60. ;;  Returns a list of syntax for all defined commands in a    ;;
    
61. ;;  supplied LISP file.                                       ;;
    
62. ;;------------------------------------------------------------;;
    
63. ;;  Author: Lee Mac, Copyright &copy; 2011 -        ;;
    
64. ;;------------------------------------------------------------;;
    
65. ;;  Arguments:                                                ;;
    
66. ;;  file - filename of LISP file to read                      ;;
    
67. ;;------------------------------------------------------------;;
    
68. ;;  Returns:  List of defined commands in supplied LISP file  ;;
    
69. ;;------------------------------------------------------------;;
    
70. 
    
71. (defun LM:GetSyntax ( file / _GetSyntax line syntax )
    
72. 
    
73.   (defun _GetSyntax ( p s / x )
    
74.     (if (setq x (vl-string-search p s))
    
75.       (cons
    
76.         (substr (setq s (substr s (+ x 1 (strlen p)))) 1
    
77.           (setq x
    
78.             (car
    
79.               (vl-sort
    
80.                 (vl-remove 'nil
    
81.                   (mapcar
    
82.                     (function
    
83.                       (lambda ( d ) (vl-string-position d s))
    
84.                     )
    
85.                    '(32 9 40 41)
    
86.                   )
    
87.                 )
    
88.                 '<
    
89.               )
    
90.             )
    
91.           )
    
92.         )
    
93.         (if x (_GetSyntax p (substr s (1+ x))))
    
94.       )
    
95.     )
    
96.   )
    
97. 
    
98.   (if (setq file (open file "r"))
    
99.     (apply 'append
    
100.       (progn
     
101.         (while (setq line (read-line file))
     
102.           (setq syntax (cons (_GetSyntax "(DEFUN C:" (strcase line)) syntax))
     
103.         )
     
104.         (setq file (close file)) (reverse syntax)
     
105.       )
     
106.     )
     
107.   )
     
108. )
     
109. 
     
110. ;;-------------------=={ Directory Dialog }==-----------------;;
     
111. ;;                                                            ;;
     
112. ;;  Displays a dialog prompting the user to select a folder   ;;
     
113. ;;------------------------------------------------------------;;
     
114. ;;  Author: Lee Mac, Copyright &copy; 2011 -       ;;
     
115. ;;------------------------------------------------------------;;
     
116. ;;  Arguments:                                                ;;
     
117. ;;  msg  - message to display at top of dialog                ;;
     
118. ;;  dir  - root directory (or nil)                            ;;
     
119. ;;  flag - bit coded flag specifying dialog display settings  ;;
     
120. ;;------------------------------------------------------------;;
     
121. ;;  Returns:  Selected folder filepath, else nil              ;;
     
122. ;;------------------------------------------------------------;;
     
123. 
     
124. (defun LM:DirectoryDialog ( msg dir flag / Shell HWND Fold Self Path ac )
     
125.   (vl-load-com)
     
126.   ;; &copy; Lee Mac 2010
     
127. 
     
128.   (setq Shell (vla-getInterfaceObject (setq ac (vlax-get-acad-object)) "Shell.Application")
     
129.         HWND  (vl-catch-all-apply 'vla-get-HWND (list ac))
     
130.         Fold  (vlax-invoke-method Shell 'BrowseForFolder (if (vl-catch-all-error-p HWND) 0 HWND)  msg flag dir))
     
131.   (vlax-release-object Shell)
     
132.   
     
133.   (if Fold
     
134.     (progn
     
135.       (setq Self (vlax-get-property Fold 'Self) Path (vlax-get-property Self 'Path))
     
136.       (vlax-release-object Self)
     
137.       (vlax-release-object Fold)      
     
138.       
     
139.       (and (= "\" (substr Path (strlen Path)))
     
140.            (setq Path (substr Path 1 (1- (strlen Path)))))
     
141.     )
     
142.   )
     
143.   Path
     
144. )
     
145. 
     
146. (princ)
     
147. (princ "\n:: AutoLoader.lsp | &copy; Lee Mac 2011 ::")
     
148. (princ "\n:: Type "AutoLoader" to generate autoload expressions ::")
     
149. (princ)
     
150. 
     
151. ;;------------------------------------------------------------;;
     
152. ;;                      End of File                           ;;
     
153. ;;------------------------------------------------------------;;

;;----------------------=={ AutoLoader }==--------------------;;<br /> ;;                                                            ;;<br /> ;;  Prompts for a directory selection and proceeds to write   ;;<br /> ;;  AutoLoad statements for all LISP files found in the       ;;<br /> ;;  selected directory to an output text file.                ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright &copy; 2011        ;;<br /> ;;------------------------------------------------------------;;<br /> <br /> (defun c:AutoLoader ( / *error* dir lst out file ) (vl-load-com)<br /> <br />   (defun *error* ( msg )<br />     (if (and file (eq 'FILE (type file))) (close file))<br />     (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")<br />         (princ (strcat "\n** Error: " msg " **")))<br />     (princ)<br />   )<br /> <br />   (if<br />     (and<br />       (setq dir<br />         (LM:DirectoryDialog<br />           (strcat<br />             "Select Directory of LISP files for which to generate AutoLoad expressions.\n"<br />             "\nNote: Subdirectories of the selected directory will not be processed."<br />           )<br />           nil 832<br />         )<br />       )<br />       (setq lst  (vl-directory-files (setq dir (vl-string-translate "\" "/" dir)) "*.lsp" 1))<br />       (setq out  (getfiled "Create Output File" "" "txt" 1))<br />       (setq file (open out "w"))<br />     )<br />     (progn<br />       (mapcar<br />         (function<br />           (lambda ( lsp / syn )<br />             (if (setq syn (LM:GetSyntax (strcat dir "/" lsp)))<br />               (write-line<br />                 (strcat "(autoload "<br />                   (vl-prin1-to-string (strcat dir "/" lsp)) " '" (vl-prin1-to-string syn) ")"<br />                 )<br />                 file<br />               )<br />             )<br />           )<br />         )<br />         lst<br />       )<br />       (setq file (close file)) (startapp "notepad" out)<br />     )<br />   ) <br /> <br />   (princ)<br /> )<br /> <br /> ;;--------------------=={ Get Syntax }==----------------------;;<br /> ;;                                                            ;;<br /> ;;  Returns a list of syntax for all defined commands in a    ;;<br /> ;;  supplied LISP file.                                       ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright &copy; 2011 -        ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Arguments:                                                ;;<br /> ;;  file - filename of LISP file to read                      ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Returns:  List of defined commands in supplied LISP file  ;;<br /> ;;------------------------------------------------------------;;<br /> <br /> (defun LM:GetSyntax ( file / _GetSyntax line syntax )<br /> <br />   (defun _GetSyntax ( p s / x )<br />     (if (setq x (vl-string-search p s))<br />       (cons<br />         (substr (setq s (substr s (+ x 1 (strlen p)))) 1<br />           (setq x<br />             (car<br />               (vl-sort<br />                 (vl-remove 'nil<br />                   (mapcar<br />                     (function<br />                       (lambda ( d ) (vl-string-position d s))<br />                     )<br />                    '(32 9 40 41)<br />                   )<br />                 )<br />                 '<<br />               )<br />             )<br />           )<br />         )<br />         (if x (_GetSyntax p (substr s (1+ x))))<br />       )<br />     )<br />   ) <br /> <br />   (if (setq file (open file "r"))<br />     (apply 'append<br />       (progn<br />         (while (setq line (read-line file))<br />           (setq syntax (cons (_GetSyntax "(DEFUN C:" (strcase line)) syntax))<br />         )<br />         (setq file (close file)) (reverse syntax)<br />       )<br />     )<br />   )<br /> )<br /> <br /> ;;-------------------=={ Directory Dialog }==-----------------;;<br /> ;;                                                            ;;<br /> ;;  Displays a dialog prompting the user to select a folder   ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright &copy; 2011 -       ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Arguments:                                                ;;<br /> ;;  msg  - message to display at top of dialog                ;;<br /> ;;  dir  - root directory (or nil)                            ;;<br /> ;;  flag - bit coded flag specifying dialog display settings  ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Returns:  Selected folder filepath, else nil              ;;<br /> ;;------------------------------------------------------------;;<br /> <br /> (defun LM:DirectoryDialog ( msg dir flag / Shell HWND Fold Self Path ac )<br />   (vl-load-com)<br />   ;; &copy; Lee Mac 2010<br /> <br />   (setq Shell (vla-getInterfaceObject (setq ac (vlax-get-acad-object)) "Shell.Application")<br />         HWND  (vl-catch-all-apply 'vla-get-HWND (list ac))<br />         Fold  (vlax-invoke-method Shell 'BrowseForFolder (if (vl-catch-all-error-p HWND) 0 HWND)  msg flag dir))<br />   (vlax-release-object Shell)<br />   <br />   (if Fold<br />     (progn<br />       (setq Self (vlax-get-property Fold 'Self) Path (vlax-get-property Self 'Path))<br />       (vlax-release-object Self)<br />       (vlax-release-object Fold)      <br />       <br />       (and (= "\" (substr Path (strlen Path)))<br />            (setq Path (substr Path 1 (1- (strlen Path)))))<br />     )<br />   )<br />   Path<br /> )<br /> <br /> (princ)<br /> (princ "\n:: AutoLoader.lsp | &copy; Lee Mac 2011 ::")<br /> (princ "\n:: Type "AutoLoader" to generate autoload expressions ::")<br /> (princ)<br /> <br /> ;;------------------------------------------------------------;;<br /> ;;                      End of File                           ;;<br /> ;;------------------------------------------------------------;;

chengx2000

不错，可以在启动组和acad2006.lsp中添加启动的文件，注册表还没玩过，学习了。

icefrog

这个正是我想找的 谢谢了

gzbccy

使用注册表来启动，还真没玩过，学习了。

yxl88168

谢谢楼主，这是个好程序

mgame168

用此方法設定好後, 還可將注册表直匯出, 下次安裝CAD
再匯入即可, 簡單方便

dcl1214

这个lsp有点像病毒哦，用过后是不是无法删除的啊，我用过一次自动加载的lsp，最后只能重装系统了

urdiafa

謝謝,學習了....