[随想]山寨acet-autoload

/db_自贡黄明儒_

;;(acet-autoload '("lman.lsp" "(bns_sl ls)"))
;;我没有找到acet-autoload用法，顾名思义的猜想，是执行(bns_sl ls)时，才去加载lman.lsp。为
;;什么要这么做呢，想必是蛋疼的时候。于是我在想，是不是可以山寨一个acet-autoload，对于非安
;;装ET的人来说，可能是一个福音。

;;第一步，通用函数，必需是加载
(defun My_autoload (Lst / FILE)
  (setq file (car Lst))
  (setq Lst (read (cadr Lst)))
  (if ;;bns_sl不是函数http://bbs.mjtd.com/thread-100187-1-1.html
    (load (findfile file))
  )
)

;;第二步，写自己的函数
(defun C:w1 ()
  (My_autoload '("lman.lsp" "(bns_sl ls)"))
  (bns_sl ls);;假如lman.lsp是自己的通用函数，其中定义了bns_sl
  (princ)
)

游客，如果您要查看本帖隐藏内容请回复

q3_2006

我是能用的工具全用之....黄工研究...精神可嘉

yfywk

学习一下，这个函数有意思

iLisp

autocad 自带的 acad20xxdoc.lsp 中就定义了 autoload 函数，但是一个支持函数中少了 vlx 支持，需要修改下这个

1. (defun ai_ffile (app)
   
2.   (or (findfile (strcat app ".lsp"))
   
3.       (findfile (strcat app ".exp"))
   
4.       (findfile (strcat app ".exe"))
   
5.       (findfile (strcat app ".arx"))
   
6.       (findfile (strcat app ".fas"))
   
7.       (findfile (strcat app ".vlx"))
   
8.       (findfile app)
   
9.   )
   
10. )
    
11. (defun ai_nofile (filename)
    
12.   (princ
    
13.     (strcat "\n在支持路径中未找到 "
    
14.             filename
    
15.             "(.lsp/.exe/.arx/.fas/.vlx) 文件."
    
16.     )
    
17.   )
    
18.   (princ "\n检查你的 Support 路径并再次运行.")
    
19.   (princ)
    
20. )

(defun ai_ffile (app)<br />   (or (findfile (strcat app ".lsp"))<br />       (findfile (strcat app ".exp"))<br />       (findfile (strcat app ".exe"))<br />       (findfile (strcat app ".arx"))<br />       (findfile (strcat app ".fas"))<br />       (findfile (strcat app ".vlx"))<br />       (findfile app)<br />   )<br /> )<br /> (defun ai_nofile (filename)<br />   (princ<br />     (strcat "\n在支持路径中未找到 "<br />             filename<br />             "(.lsp/.exe/.arx/.fas/.vlx) 文件."<br />     )<br />   )<br />   (princ "\n检查你的 Support 路径并再次运行.")<br />   (princ)<br /> )

使用时需要一个个文件写

(autoload "**" '("x1“ "x2" "x3"))

批量的话可以这样
(mapcar '(lambda (x) (apply 'autoload x)) '(("**" '("x1" "x2")) ("zzz" '("z1" "z2"))))

/db_自贡黄明儒_

iLisp 发表于 2015-5-14 18:16
autocad 自带的 acad20xxdoc.lsp 中就定义了 autoload 函数，但是一个支持函数中少了 vlx 支持，需要修改下 ...

倒像是autocad的应用，定义呢？

wzg356

蕴魂呼呼的

iLisp

/db_自贡黄明儒_ 发表于 2015-5-14 20:10
倒像是autocad的应用，定义呢？

打开 acad20xxdoc.lsp 就可以看到, 其中的部分

1. ;;; ===== AutoLoad =====
   
2. 
   
3. ;;; Check list of loaded <apptype> applications ("ads" or "arx")
   
4. ;;; for the name of a certain appplication <appname>.
   
5. ;;; Returns T if <appname> is loaded.
   
6. 
   
7. (defun ai_AppLoaded (appname apptype)
   
8.    (apply 'or
   
9.       (mapcar
   
10.         '(lambda (j)
    
11.             (wcmatch
    
12.                (strcase j T)
    
13.                (strcase (strcat "*" appname "*") T)
    
14.             )   
    
15.          )
    
16.          (eval (list (read apptype)))
    
17.       )
    
18.    )
    
19. )
    
20. 
    
21. ;;  
    
22. ;;  Native Rx commands cannot be called with the "C:" syntax.  They must
    
23. ;;  be called via (command).  Therefore they require their own autoload
    
24. ;;  command.
    
25. 
    
26. (defun autonativeload (app cmdliste / qapp)
    
27.   (setq qapp (strcat "\"" app "\""))
    
28.   (setq initstring "\n正在初始化...")
    
29.   (mapcar
    
30.    '(lambda (cmd / nom_cmd native_cmd)
    
31.       (progn
    
32.         (setq nom_cmd (strcat "C:" cmd))
    
33.         (setq native_cmd (strcat "\"_" cmd "\""))
    
34.         (if (not (eval (read nom_cmd)))
    
35.             (eval
    
36.              (read (strcat
    
37.                     "(defun " nom_cmd "()"
    
38.                     "(setq m:err *error* *error* *merrmsg*)"
    
39.                     "(if (ai_ffile " qapp ")"
    
40.                     "(progn (princ initstring)"
    
41.                     "(_autoarxload " qapp ") (command " native_cmd "))"
    
42.                     "(ai_nofile " qapp "))"
    
43.                     "(setq *error* m:err m:err nil))"
    
44.                     ))))))
    
45.    cmdliste)
    
46.   nil
    
47. )
    
48. 
    
49. (defun _autoqload (quoi app cmdliste / qapp symnam)
    
50.   (setq qapp (strcat "\"" app "\""))
    
51.   (setq initstring "\n正在初始化...")
    
52.   (mapcar
    
53.    '(lambda (cmd / nom_cmd)
    
54.       (progn
    
55.         (setq nom_cmd (strcat "C:" cmd))
    
56.         (if (not (eval (read nom_cmd)))
    
57.             (eval
    
58.              (read (strcat
    
59.                     "(defun " nom_cmd "( / rtn)"
    
60.                     "(setq m:err *error* *error* *merrmsg*)"
    
61.                     "(if (ai_ffile " qapp ")"
    
62.                     "(progn (princ initstring)"
    
63.                     "(_auto" quoi "load " qapp ") (setq rtn (" nom_cmd ")))"
    
64.                     "(ai_nofile " qapp "))"
    
65.                     "(setq *error* m:err m:err nil)"
    
66.                     "rtn)"
    
67.                     ))))))
    
68.    cmdliste)
    
69.   nil
    
70. )
    
71. 
    
72. (defun autoload (app cmdliste)
    
73.   (_autoqload "" app cmdliste)
    
74. )
    
75. 
    
76. (defun autoarxload (app cmdliste)
    
77.   (_autoqload "arx" app cmdliste)
    
78. )
    
79. 
    
80. (defun autoarxacedload (app cmdliste / qapp symnam)
    
81.   (setq qapp (strcat "\"" app "\""))
    
82.   (setq initstring "\n正在初始化...")
    
83.   (mapcar
    
84.    '(lambda (cmd / nom_cmd)
    
85.       (progn
    
86.         (setq nom_cmd (strcat "C:" cmd))
    
87.         (if (not (eval (read nom_cmd)))
    
88.             (eval
    
89.              (read (strcat
    
90.                     "(defun " nom_cmd "( / oldcmdecho)"
    
91.                     "(setq m:err *error* *error* *merrmsg*)"
    
92.                     "(if (ai_ffile " qapp ")"
    
93.                     "(progn (princ initstring)"
    
94.                     "(_autoarxload " qapp ")"
    
95.                     "(setq oldcmdecho (getvar \"CMDECHO\"))"
    
96.                     "(setvar \"CMDECHO\" 0)"
    
97.                     "(command " "\"_" cmd "\"" ")"
    
98.                     "(setvar \"CMDECHO\" oldcmdecho))"
    
99.                     "(ai_nofile " qapp "))"
    
100.                     "(setq *error* m:err m:err nil)"
     
101.                     "(princ))"
     
102.                     ))))))
     
103.    cmdliste)
     
104.   nil
     
105. )
     
106. 
     
107. (defun _autoload (app)
     
108. ; (princ "Auto:(load ") (princ app) (princ ")") (terpri)
     
109.   (load app)
     
110. )
     
111. 
     
112. (defun _autoarxload (app)
     
113. ; (princ "Auto:(arxload ") (princ app) (princ ")") (terpri)
     
114.   (arxload app)
     
115. )
     
116. 
     
117. (defun ai_ffile (app)
     
118.   (or (findfile (strcat app ".lsp"))
     
119.       (findfile (strcat app ".exp"))
     
120.       (findfile (strcat app ".exe"))
     
121.       (findfile (strcat app ".arx"))
     
122.       (findfile app)
     
123.   )
     
124. )
     
125. 
     
126. (defun ai_nofile (filename)
     
127.   (princ
     
128.     (strcat "\n文件 "
     
129.             filename
     
130.             "(.lsp/.exe/.arx) 在搜索路径文件夹中未找到。"
     
131.     )
     
132.   )
     
133.   (princ "\n请检查支持文件的安装，然后重试。")
     
134.   (princ)
     
135. )
     
136. 
     
137. 
     
138. ;;;===== AutoLoad LISP Applications =====
     
139. ;  Set help for those apps with a command line inte**ce
     
140. 
     
141. (autoload "edge"  '("edge"))
     
142. (setfunhelp "C:edge" "" "edge")
     

;;; ===== AutoLoad =====<br /> <br /> ;;; Check list of loaded <apptype> applications ("ads" or "arx")<br /> ;;; for the name of a certain appplication <appname>.<br /> ;;; Returns T if <appname> is loaded.<br /> <br /> (defun ai_AppLoaded (appname apptype)<br />    (apply 'or<br />       (mapcar <br />         '(lambda (j)<br />             (wcmatch<br />                (strcase j T)<br />                (strcase (strcat "*" appname "*") T)<br />             )   <br />          )<br />          (eval (list (read apptype)))<br />       )<br />    )<br /> )<br /> <br /> ;;  <br /> ;;  Native Rx commands cannot be called with the "C:" syntax.  They must <br /> ;;  be called via (command).  Therefore they require their own autoload <br /> ;;  command.<br /> <br /> (defun autonativeload (app cmdliste / qapp)<br />   (setq qapp (strcat "\"" app "\""))<br />   (setq initstring "\n正在初始化...")<br />   (mapcar<br />    '(lambda (cmd / nom_cmd native_cmd)<br />       (progn<br />         (setq nom_cmd (strcat "C:" cmd))<br />         (setq native_cmd (strcat "\"_" cmd "\""))<br />         (if (not (eval (read nom_cmd)))<br />             (eval<br />              (read (strcat<br />                     "(defun " nom_cmd "()"<br />                     "(setq m:err *error* *error* *merrmsg*)"<br />                     "(if (ai_ffile " qapp ")"<br />                     "(progn (princ initstring)"<br />                     "(_autoarxload " qapp ") (command " native_cmd "))"<br />                     "(ai_nofile " qapp "))"<br />                     "(setq *error* m:err m:err nil))"<br />                     ))))))<br />    cmdliste)<br />   nil<br /> )<br /> <br /> (defun _autoqload (quoi app cmdliste / qapp symnam)<br />   (setq qapp (strcat "\"" app "\""))<br />   (setq initstring "\n正在初始化...")<br />   (mapcar<br />    '(lambda (cmd / nom_cmd)<br />       (progn<br />         (setq nom_cmd (strcat "C:" cmd))<br />         (if (not (eval (read nom_cmd)))<br />             (eval<br />              (read (strcat<br />                     "(defun " nom_cmd "( / rtn)"<br />                     "(setq m:err *error* *error* *merrmsg*)"<br />                     "(if (ai_ffile " qapp ")"<br />                     "(progn (princ initstring)"<br />                     "(_auto" quoi "load " qapp ") (setq rtn (" nom_cmd ")))"<br />                     "(ai_nofile " qapp "))"<br />                     "(setq *error* m:err m:err nil)"<br />                     "rtn)"<br />                     ))))))<br />    cmdliste)<br />   nil<br /> )<br /> <br /> (defun autoload (app cmdliste)<br />   (_autoqload "" app cmdliste)<br /> )<br /> <br /> (defun autoarxload (app cmdliste)<br />   (_autoqload "arx" app cmdliste)<br /> )<br /> <br /> (defun autoarxacedload (app cmdliste / qapp symnam)<br />   (setq qapp (strcat "\"" app "\""))<br />   (setq initstring "\n正在初始化...")<br />   (mapcar<br />    '(lambda (cmd / nom_cmd)<br />       (progn<br />         (setq nom_cmd (strcat "C:" cmd))<br />         (if (not (eval (read nom_cmd)))<br />             (eval<br />              (read (strcat<br />                     "(defun " nom_cmd "( / oldcmdecho)"<br />                     "(setq m:err *error* *error* *merrmsg*)"<br />                     "(if (ai_ffile " qapp ")"<br />                     "(progn (princ initstring)"<br />                     "(_autoarxload " qapp ")"<br />                     "(setq oldcmdecho (getvar \"CMDECHO\"))"<br />                     "(setvar \"CMDECHO\" 0)"<br />                     "(command " "\"_" cmd "\"" ")"<br />                     "(setvar \"CMDECHO\" oldcmdecho))"<br />                     "(ai_nofile " qapp "))"<br />                     "(setq *error* m:err m:err nil)"<br />                     "(princ))"<br />                     ))))))<br />    cmdliste)<br />   nil<br /> )<br /> <br /> (defun _autoload (app)<br /> ; (princ "Auto:(load ") (princ app) (princ ")") (terpri)<br />   (load app)<br /> )<br /> <br /> (defun _autoarxload (app)<br /> ; (princ "Auto:(arxload ") (princ app) (princ ")") (terpri)<br />   (arxload app)<br /> )<br /> <br /> (defun ai_ffile (app)<br />   (or (findfile (strcat app ".lsp"))<br />       (findfile (strcat app ".exp"))<br />       (findfile (strcat app ".exe"))<br />       (findfile (strcat app ".arx"))<br />       (findfile app)<br />   )<br /> )<br /> <br /> (defun ai_nofile (filename)<br />   (princ<br />     (strcat "\n文件 "<br />             filename<br />             "(.lsp/.exe/.arx) 在搜索路径文件夹中未找到。"<br />     )<br />   )<br />   (princ "\n请检查支持文件的安装，然后重试。")<br />   (princ)<br /> )<br /> <br /> <br /> ;;;===== AutoLoad LISP Applications =====<br /> ;  Set help for those apps with a command line inte**ce<br /> <br /> (autoload "edge"  '("edge"))<br /> (setfunhelp "C:edge" "" "edge")<br />

HLCAD

装载程序，平常用autoload方式比较多

lucas3

前来学习:D

pxt2014

是个好东西，看看。

柴月二号

haohaohao'h'hh'hhhhhhh

pengfei2010

学习一下 黄总的思路

qyming2000

学习                    
来自: 微社区

naruto018

来学习一下

ynhh

山寨acet-autoload
黄总好牛