由于Autolisp是小众语言，博客的代码插件并不支持Autolisp语法着色。但博客支持html语法。
原理：将着色效果转化为html 代码，效果如下：
;;------------------=={ Get Files Dialog }==------------------;;
;; ;;
;; An analog of the 'getfiled' function for multiple files. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright 2013 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
(defun LM:getfiles ( msg def ext /*error* dch dcl des dir dirdata lst rtn )
(defun*error*( msg )
(if(= 'file (type des))
(close des)
)
(if(and(= 'int (type dch))(<0 dch))
(unload_dialog dch)
)
(if(and(= 'str (type dcl))(findfile dcl))
(vl-file-delete dcl)
)
(if(and msg (not(wcmatch(strcase msg t)"*break,*cancel*,*exit*")))
(princ(strcat"
Error: " msg))
)
(princ)
) ................
实现方法之一：使用Everedit设置好代码的着色效果，并复制为Rtf格式，使用Word另存为Html 文件；或者使用rtf2html的工具软件。
实现方法之二：有高手（见过好几个版本的）使用autolisp语言编写了将lsp代码转化为html文件的源文件。
本人推荐：方法一。