找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1864|回复: 17

[他山之石] 测试带注释的LISP代码高亮显示。

[复制链接]

已领礼包: 145个

财富等级: 日进斗金

发表于 2013-4-14 15:57:27 | 显示全部楼层 |阅读模式

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

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

×
添加上注释灰色显示,看看效果。

[pcode=lisp,true](defun c:ttt()
  (setq _file "d:\\lisp.lsp")
  (if (setq file-dsec (open _file "r"))
    (progn
      (setq file-dsec2 (open "d:\\lisp-func2.txt" "w")) ;;这里插入单行注释(单行注释请用两个;;)
      (setq str1 "'" i 1)
;|整段注释
      (while (and (setq str (read-line file-dsec))
                  (setq str (xdrx_string_trimleft str))
                  (setq str (xdrx_string_trimright str))
             )
        (if (= 0 (rem i 6))
           (progn
              (setq str1 (strcat (xdrx_string_trimright str1) "' +"))
              (write-line str1 file-dsec2)
              (setq str1 "'")
           )
           (setq str1 (strcat str1 str " "))
        )
        (setq i (1+ i))
      )
整段注释结束|;
      (close file-dsec2)
      (princ "\nok!")
    )
  )
)[/pcode]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2013-4-14 16:01:21 | 显示全部楼层
貌似成功了,LISP代码高亮显示大家还有啥建议,跟帖说明,谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-4-15 08:03:00 | 显示全部楼层
个人觉得背景颜色统一直观些
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2013-4-15 08:29:39 | 显示全部楼层
看看下面这两种哪个更舒服点, 隔行颜色区分能缓解眼睛的疲劳,更方便眼睛聚焦。尤其是代码量很大的情况。



                               
登录/注册后可看大图



隔行换背景色的:



                               
登录/注册后可看大图


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-4-15 09:59:42 | 显示全部楼层
XDSoft 发表于 2013-4-15 08:29
看看下面这两种哪个更舒服点, 隔行颜色区分能缓解眼睛的疲劳,更方便眼睛聚焦。尤其是代码量很大的情况。
...

统一灰白色的背景好些吧,
函数着色,尽量不要用深红的,浅一点点
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2013-4-15 10:46:48 | 显示全部楼层
炫翔 发表于 2013-4-15 09:59
统一灰白色的背景好些吧,
函数着色,尽量不要用深红的,浅一点点

那就是现在这种背景色了?

你觉得现在函数名太红了吗?

[pcode=lisp,true](defun c:ttt()
  (setq _file "d:\\lisp.lsp")
  (if (setq file-dsec (open _file "r"))
    (progn
      (setq file-dsec2 (open "d:\\lisp-func2.txt" "w")) ;;这里插入单行注释(单行注释请用两个;;)
      (setq str1 "'" i 1)
;|整段注释
      (while (and (setq str (read-line file-dsec))
                  (setq str (xdrx_string_trimleft str))
                  (setq str (xdrx_string_trimright str))
             )
        (if (= 0 (rem i 6))
           (progn
              (setq str1 (strcat (xdrx_string_trimright str1) "' +"))
              (write-line str1 file-dsec2)
              (setq str1 "'")
           )
           (setq str1 (strcat str1 str " "))
        )
        (setq i (1+ i))
      )
整段注释结束|;
      (close file-dsec2)
      (princ "\nok!")
    )
  )
)[/pcode]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-4-15 11:18:06 | 显示全部楼层
XDSoft 发表于 2013-4-15 10:46
那就是现在这种背景色了?

你觉得现在函数名太红了吗?

差不多了,看大家的意见吧!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2869个

财富等级: 家财万贯

发表于 2013-4-15 11:30:51 | 显示全部楼层
XDSoft 发表于 2013-4-15 10:46
那就是现在这种背景色了?

你觉得现在函数名太红了吗?

就这种,感觉不错
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2688个

财富等级: 家财万贯

发表于 2013-4-15 11:31:35 | 显示全部楼层
个人认为,那个隔行换背景的淡绿色的效果就很好!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2013-4-15 14:36:40 | 显示全部楼层
zyhandw 发表于 2013-4-15 11:31
个人认为,那个隔行换背景的淡绿色的效果就很好!

晕了,众口难调啊。我记下了,没事咱就换换背景玩玩,免得大家枯燥了。 :)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-4-15 16:20:32 | 显示全部楼层
大家看看下面这种效果如何,很多论坛都是这样!
也许是看顺眼了,个人觉得不错!


未命名.jpg

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6530个

财富等级: 富甲天下

发表于 2013-4-15 16:57:42 | 显示全部楼层
个人以为,还是cad自带的vlide配色好一些,虽然大红大绿从美学上来说格调低一点,但是很清晰明了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2013-4-15 17:10:48 | 显示全部楼层
ll_j 发表于 2013-4-15 16:57
个人以为,还是cad自带的vlide配色好一些,虽然大红大绿从美学上来说格调低一点,但是很清晰明了。

LL-Jl来了啊,多提意见。按 LL-J的意思改了下,看看现在的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6468个

财富等级: 富甲天下

发表于 2013-5-6 18:30:28 | 显示全部楼层
什么意思?在命令行打TTT,除了在D盘生成一个0KB的lisp-func2.txt之外,啥也没有。

点评

兄弟,这个帖子是测试论坛代码高亮显示的,所有帖子都是只看“样子”,不看内容的。 说实在的,已经有太多人看过这个帖子了,不过知道晓东贴出的程序内容的大概没几个,也许你算一个。  详情 回复 发表于 2013-5-6 18:41
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6530个

财富等级: 富甲天下

发表于 2013-5-6 18:41:34 | 显示全部楼层
sicky111 发表于 2013-5-6 18:30
什么意思?在命令行打TTT,除了在D盘生成一个0KB的lisp-func2.txt之外,啥也没有。

兄弟,这个帖子是测试论坛代码高亮显示的,所有帖子都是只看“样子”,不看内容的。
说实在的,已经有太多人看过这个帖子了,不过知道晓东贴出的程序内容的大概没几个,也许你算一个。
:)

点评

琢磨了半个小时,终于搞明白了。:lol  发表于 2013-5-6 22:06
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-4-26 14:09 , Processed in 0.329305 second(s), 63 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表