[2010.12.04] Lisp转换为Html ☆七月·信☆ 修改版

elitefish · 发表于 2010-12-4 03:47

本帖最后由 elitefish 于 2010-12-4 03:50 编辑

01.
02.
03.
04.
05.
06.
07.
08.
09.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.

;|  Lisp转换Html ☆[七月·信] 改进版
改进信息：
1.原版程序复制到论坛上可能会出现行合并的问题，现在应该不会了
2.原版程序行号会影响复制，现在复制可以避开行号了
|;

;;;  ==================================
;;;  |　 LISP文件转换成HTML文件程序 |
;;;  | ★[七月·信]改进版★ |
;;;  | [[晓东论坛]] |
;;;  | [[同是土木人论坛]] |
;;;  | [[它山之石图形工作室]图形工作室] |
;;;  | [七月·信]改进版 |
;;;  ==================================

;|
1、此程序仅作为一种应用上的参考，更多功能请自
　行定制或关注作者发布的应用程序。
2、程序主框架来自于[晓东论坛]，原作者为snoopychen，
　参考了zml84的一小部分代码（html文件头部）。
3、原程序未对行内注释进行处理，增加此功能。
4、有特殊前缀的自定义函数颜色设定为特殊着色，
　主要用来与内部函数进行区分。
5、增加链接跳转功能，文件中的外部链接会指向特定的网页，
　内部链接会指向子函数的定义处。
6、增加了行号，方便阅读。缩进好象变得有问题，待查。
7、原程序需手工输入目录，修改为对话框选择的方式。
8、原程序为将整个目录（含子目录）下的LISP文件全部转换，
　增加了只转换一个文件的命令。
9、对原程序增加了部分简单的注释说明，不一定正确。
10、增加了个显示程序正在运行的小把戏，纯属好玩而已。
11、将LISP转换为HTML方便网络发布及程序的管理。
　　目前还有些想法没有实现，慢慢研究。
|;

;;;命令一，仅转换选择的一个LSP文件
(defun C:LISP2HTML (/ file)
  (princ"\nLISP2HTML转换器 ★[七月·信]★修改版 ver 1.0 原作者：[它山之石图形工作室]")
  (setq file (getfiled "Select Lisp File" (getvar "dwgprefix") "lsp" 0))
  (setq file (EF_Lisp2Html:Lisp->Html file))
  (startapp "explorer" file)
  (princ)
) ;_ 结束defun

;;;命令二，转换选择的目录下（包括子目录）的所有LSP文件
(defun C:LISPS2HTML (/ direc directree x y direcfile)
  (setq direc (EF_Lisp2Html:GetDir))
  (setq directree (EF_Lisp2Html:GetSubFolders direc))
  (foreach x directree
(setq direcfile (EF_Lisp2Html:GetOnlyFiles x))
(foreach y direcfile
   (if (= (vl-filename-extension y) ".lsp")
      (EF_Lisp2Html:Lisp->Html y)
   ) ;_ 结束if
) ;_ 结束foreach
  ) ;_ 结束foreach
  (princ "\n*** LISP文件转换为HTML文件软件 [七月·信]修改版 <原作者：[它山之石图形工作室]> ***")
  (princ "\n [[七月·信]]修改")
  (princ)
) ;_ 结束defun

LISP2HTML - 副本.lsp 以上只是样例完整版见附件

yoyoho · 发表于 2010-12-4 08:27

感谢楼主分享
下载研究了!

zwqgdhl · 发表于 2011-7-11 10:51

好东东，先下载再研究了

cdm1999 · 发表于 2019-7-28 17:19

好东西，下载收藏

账号		自动登录	找回密码
密码			注册

[资源] [2010.12.04] Lisp转换为Html ☆七月·信☆ 修改版

本帖子中包含更多资源

评分