[LISP程序]：lsp文件转换为HTM（按照语法着色）

zml84 · 发表于 2007-5-28 20:18:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

为了发帖更好看，这是我啃了一个星期的HTM语法，用lisp语言写的一个小程序。
其功能是将lsp文件转换成htm语言格式显示，转换后保持了vlisp编辑器默认的语法着色。
 
转换后的效果如下所示：

<center><h1>批量定义命令示例.LSP</h1></center>
<hr><pre>;;; eval函数示例------定义以表中元素为名称的命令
;;;日期：zml84 于 2007-05-24
;;;============================================================
;;;功能：定义系列命令，用于标注管径
(defun C:TT (/ LST I A B)
(setvar "CMDECHO" 0)
(setq LST '(15 20 25 32 40 50 70 80 100 125 150 200 250 300))
(princ "\n定义命令")
(foreach I LST
(setq A (itoa I)
B (list
'defun
(read (strcat "C:" A))
(list '/)
(list 'if
(list 'setq 'PT (list 'getpoint "\n插入点:"))
(list 'command "_.text" 'PT 20 0 (strcat "DN" A))
)
(list 'princ)
)
)
(eval B)
(princ (strcat " " A))
) ;_结束 foreach
(princ " 完成！")
(princ)
) ;_结束 defun
;;;============================================================
;|;;后话：看eval的功能说明是：返回一个AutoLISP表达式的求值结果。
但每个表达式均返回结果，从这方面去想，这个函数似乎无多大用处；
而事实上，通过灵活的组织其参数就可以达到意想不到的完美效果。
上面的代码就是一个经典的应用。
;;|;
</pre>

<center><h1>批量定义命令示例.LSP</h1></center> 
 
<hr><pre>;;;      eval函数示例------定义以表中元素为名称的命令 
;;;日期：zml84 于 2007-05-24 
;;;============================================================ 
;;;功能：定义系列命令，用于标注管径 
(defun C:TT (/ LST I A B) 
    (setvar "CMDECHO" 0) 
    (setq LST '(15 20 25 32 40 50 70 80 100 125 150 200 250 300)) 
    (princ "\n定义命令") 
    (foreach I LST 
        (setq A        (itoa I) 
              B        (list 
                    'defun 
                    (read (strcat "C:" A)) 
                    (list '/) 
                    (list 'if 
                          (list 'setq 'PT (list 'getpoint "\n插入点:")) 
                          (list 'command "_.text" 'PT 20 0 (strcat "DN" A)) 
                    ) 
                    (list 'princ) 
                ) 
        ) 
        (eval B) 
        (princ (strcat "  " A)) 
    ) ;_结束 foreach 
    (princ "  完成！") 
    (princ) 
) ;_结束 defun 
;;;============================================================ 
;|;;后话：看eval的功能说明是：返回一个AutoLISP表达式的求值结果。 
        但每个表达式均返回结果，从这方面去想，这个函数似乎无多大用处； 
        而事实上，通过灵活的组织其参数就可以达到意想不到的完美效果。 
        上面的代码就是一个经典的应用。 
;;|; 
</pre>

更多效果见：http://zml84.blog.sohu.com/entry/3933137/

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

[LISP程序]：lsp文件转换为HTM（按照语法着色）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子