[求助]：能使Visual LISP编程窗口的文字打印出来后也是彩色吗？

changyq · 发表于 2006-4-10 10:01:43

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

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

×

Visual LISP编程窗口的文字是彩色,但打印出来后是黑色的。有打印出彩色Visual LISP原程序的简便办法吗？

qjcpj · 发表于 2006-4-10 14:16:16

估计没有！

changyq · 发表于 2006-4-10 15:54:40

最初由 qjcpj 发布
[B]估计没有！ [/B]

我的间接处理办法是：先进入论坛“你的回复栏目”，然后放入PHP代码之间，再“回复预览”，最后剪切彩色程序到word中打印。
不过有的时候，后半部分都成了蓝色。其原因尚不明了。

snoopychen · 发表于 2006-4-10 16:41:49

最简单的莫过于抓屏软件，jpg,png之类就可以了吧

changyq · 发表于 2006-4-10 18:32:18

最初由 snoopychen 发布
[B]最简单的莫过于抓屏软件，jpg,png之类就可以了吧 [/B]

我用过SuperCapture软件抓过图，也好用。美中不足的是，用“控件”之后，总带着右边和下边的滑动条。选取矩形又太慢了些。还有更好的简便办法吗？

snoopychen · 发表于 2006-4-10 21:46:31

用hyersnap或者snagit或者spx吧，都很好，滚屏效果也很好，没有滚动边的

oyxx_1023 · 发表于 2006-4-11 19:19:41

抓屏以后再处理一下抓到的东西应该就可以了

snoopychen · 发表于 2006-5-21 12:09:08

今天去afralisp逛了一圈，有些收获
其中，发现有这么一个软件
http://www.afralisp.net/zip1/WLSPHTML.zip
它是把lisp文件导出为html文件，按照注释、函数等来改变颜色的
效果如http://www.afralisp.net/lisp/lsp2htlm.htm所示
这样子打印html文件应该就可以用彩打了吧
以后在主页上放lisp文件可以考虑这样的方法了，不过刚才测试了一下对于变量的颜色似乎还有点问题。

于是再上网狂找，发现这样一个程序。
效果似乎比上述软件还好。不知道为什么，我转贴到这里总是有问题，用code和php都不行，只好硬贴这个，版主别怪，若违规我就删掉下面的代码。
http://www.bugman123.com/Programs/Lisptohtml.html

代码如下
<pre>
;*******************************************************************************************
;* Here is a simple lisp routine to convert a lisp file to html in Visual Lisp format *
;*******************************************************************************************

(defun html-format (str) (vl-string-subst "&lt;" "<" (vl-string-subst "&amp;" "&" str)))

(defun c:lsp->html (/ file rf wf t1 str char i f argument)
(setq
file (getfiled "Select Lisp File" (getvar "dwgprefix") "lsp" 0)

rf (open file "r")
wf (open (strcat (vl-filename-directory file) "/" (vl-filename-base file) ".html") "w")

);s
(write-line "<pre>" wf)
(while (setq t1 (read-line rf)) (setq str "" i 1)

 (while (<= i (strlen t1)) (setq word "")

(while (not (member (setq char (substr t1 i 1)) '("" " " ";" "(" ")" "\"")))

(setq word (strcat word char) i (1+ i))

);w
(if (= word "") (setq word char i (+ i (strlen char))))

(if (= word ";")
(setq
 str (strcat str "" (html-format (substr t1 (1- i))) "")

 i (1+ (strlen t1))
);s
(cond

 ((member word '("(" ")"))
 (setq str (strcat str "") i (1- i))

 (while (member (setq char (substr t1 i 1)) '("(" ")"))

 (setq str (strcat str char) i (1+ i))

 );w
 (setq str (strcat str "") f (= (substr t1 (1- i) 1) "("))

 )
 ((= word "\"")
 (setq str (strcat str "" word))

 (while (and (/= (setq char (substr t1 i 1)) "") (or (/= char "\"") (and (> i 1) (= (substr t1 (1- i) 1) "\\") (or (= i 2) (/= (substr t1 (- i 2) 1) "\\")))))

 (setq str (strcat str (html-format char)) i (1+ i))

 );w
 (setq str (strcat str char "") i (1+ i))

 )
 ((= word "'") (setq str (strcat str "'")))

 ((= word "/") (setq str (strcat str "/") argument nil f nil))

 ((= word ".") (setq str (strcat str word)))

 ((numberp (read word)) (setq str (strcat str "" word "") f nil))

 (f (if argument
 (setq str (strcat str (html-format word)) argument nil f nil)

 (setq str (strcat str "" (html-format word) "") argument (= (strcase word) "DEFUN") f nil)

 ));f
 (T (setq str (strcat str (html-format word))))

);c
);i
 );w
 (write-line str wf)

);f
(write-line "</pre>" wf)
(close rf)

(close wf)
(princ)
);d
(prompt "\nType \"lsp->html\" at the command prompt to run routine.")

(princ)
</pre>

效果如下

changyq · 发表于 2006-5-22 10:13:04

我最初提这个问题的时间已经过了月余。非常感谢snoopychen先生还记得这个问题。试了试，效果那是相当的好。
再次感谢snoopychen先生的执著。

fsxm · 发表于 2006-5-22 14:35:20

这个东东还是用明经的lsp附件预朗要好点比如下面的:
http://mjtd.com/bbs/dispFile.asp?Boardid=3&id=25878
在明经中就可以看到:

[iframe h=700 w=500]http://mjtd.com/bbs/dispFile.asp?Boardid=3&id=25878[/iframe]

snoopychen · 发表于 2006-10-14 20:14:58

现在有时候也用gvim（一个著名的文本编辑工具的win版本）来实现这个功能
其实其他具有语法高亮HTML输出的编辑器也可以做到这个。

在gvim中，选择语法－>转化成html，即可得到彩色的html文件，便于打印及输出到网页中

它山之石 · 发表于 2006-10-16 12:42:24

还真被找到了
这种精神值得致敬学习

不过明经已经实现了直接转换

这个比较适合写博客
还看到过可以折叠括号的呢

不知如何转换的

e2002 · 发表于 2006-10-16 23:40:16

vim 处理这个如此简单...8-)

看看帮助怎么说:

:help hardcopy

自从学了 vim , 别的编辑器全部下岗了...

haibinpro · 发表于 2006-10-17 01:01:04

vim容易学么？
是否有必要学？

e2002 · 发表于 2006-10-17 15:48:47

1. 编程者必须学会 vim 或 emacs 之一.
2. 按快速教程 ,20min 应该能建立概念.
3. 学习 vim 感觉和学习 AutoCAD 一样, 如要熟练掌握,需要长期的使用和深入研究.不过按用户手册, 常用的那些可以很快学到,关键是不断实践和操作.

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

[求助] [求助]：能使Visual LISP编程窗口的文字打印出来后也是彩色吗？

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

相关帖子