乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 9|回复： 7

[编程交流] 将标题放入lisps中

[复制链接]
BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 07:26:41 | 显示全部楼层 |阅读模式
这是一个有点不同的要求，我想嵌入到每个lisp程序的顶部，用大号字母表示lisp的名称。大号字母可以说是一个单词的多行注音。有人知道任何代码或方法吗。我知道如何合并两个文件等
 
 
082643ji9sy1nfktsz55s1.jpg
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 07:42:23 | 显示全部楼层
也许这会帮助你-一定要添加其余字母和数字的定义。
  1. ;Make Headers for Files - return a list of strings (04-X-2012)
  2. (defun MakeHeader( theHeader / listHeader index item letter listPrint listLetters )
  3. (setq listLetters
  4.       '(("A" " AAAAAAA " "A       A" "A       A" "A       A" "AAAAAAAAA" "A       A" "A       A" "A       A" "A       A")
  5.         ("B" "BBBBBBBB " "B       B" "B       B" "B       B" "BBBBBBBB " "B       B" "B       B" "B       B" "BBBBBBBB ")
  6.         ("G" " GGGGGGG " "G       G" "G        " "G        " "G     GG " "G       G" "G       G" "G       G" " GGGGGGG ")
  7.         ("I" "I" "I" "I" "I" "I" "I" "I" "I" "I")
  8.         ("L" "L        " "L        " "L        " "L        " "L        " "L        " "L        " "L        " "LLLLLLLLL")))
  10. (setq index 1
  11.       listHeader '())
  13. (repeat (1- (length (car listLetters)))
  14.  (setq stringLine ";")
  15.  (setq item 1)
  17.  (repeat (strlen theHeader)
  18.   (setq letter (strcase (substr theHeader item 1)))
  20.   (if (setq listPrint (assoc letter listLetters))
  21.    (setq stringLine (strcat stringLine "   " (nth index listPrint)))
  22.   )
  24.   (setq item (1+ item))
  25.  )
  27.  (setq listHeader (append listHeader
  28.                           (list stringLine)))
  30.   (setq index (1+ index))
  31. )
  33. listHeader
  34. )

 
用法：
  1. (MakeHeader "BIGAL")
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 07:49:03 | 显示全部楼层
http://www.network-science.de/ascii/
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 07:52:56 | 显示全部楼层
谢谢李，我一直在寻找的网站上有一切你只需要知道这个词搜索。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:05:44 | 显示全部楼层 
  1. __     __                                   _                          
  2. \ \   / /                                  | |                         
  3. \ \_/ /__  _   _   _ __ ___  __      _____| | ___ ___  _ __ ___   ___ 
  4.  \   / _ \| | | | | '__/ _ \ \ \ /\ / / _ \ |/ __/ _ \| '_ ` _ \ / _ \
  5.   | | (_) | |_| | | | |  __/  \ v  v /  __/ | (_| (_) | | | | | |  __/
  6.   |_|\___/ \__,_| |_|  \___|   \_/\_/ \___|_|\___\___/|_| |_| |_|\___|

 
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 08:15:12 | 显示全部楼层
 
太酷了
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 08:20:28 | 显示全部楼层
花了半个小时的时间学习不同风格的精彩节目。
 
Msasu你们在这个阶段看过网页了吗？我会剪切粘贴。一旦你们选择了一种基于文本字符串的多行strcat样式，我可以用lisp。如果我有时间的话，我将尝试使用monotxt和mtext在lisp中作为标题。C1+A1+D1+T1+U1+T1+O1+R1下一行C2+。。。。
 
粘贴的ABCD。。。。Z TO WORD使用alt+鼠标的方式对不知道的人进行列剪切，例如下面的粘贴到记事本以获得正确的视图
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 08:28:38 | 显示全部楼层
要使用，只需将文本样式编辑为2.5高，然后将文本更改为writeline以供文件使用。
 
  2. ; banner text lisp by BIGAL Oct 2012
  4. (defun readlines ()
  5. (SETQ Y (+ Y 1))
  6. (setq new_line (nth y newfonts))
  7. (setq ans1 (strcat ans1 new_line))
  8. (SETQ Y (+ Y 1))
  9. (setq new_line (nth y newfonts))
  10. (setq ans2 (strcat ans2 new_line))
  11. (SETQ Y (+ Y 1))
  12. (setq new_line (nth y newfonts))
  13. (setq ans3 (strcat ans3 new_line))
  14. (SETQ Y (+ Y 1))
  15. (setq new_line (nth y newfonts))
  16. (setq ans4 (strcat ans4 new_line))
  17. (SETQ Y (+ Y 1))
  18. (setq new_line (nth y newfonts))
  19. (setq ans5 (strcat ans5 new_line))
  20. (SETQ Y (+ Y 1))
  21. (setq new_line (nth y newfonts))
  22. (setq ans6 (strcat ans6 new_line))
  23. (SETQ Y (+ Y 1))
  24. (setq new_line (nth y newfonts))
  25. (setq ans7 (strcat ans7 new_line))
  26. )
  27. (defun xfonts ()
  28.  (setq y 0)
  29.  (repeat z
  30.    (if (= (nth Y newfonts) newchar)
  31.    (readlines)
  32.    )
  33.    (setq y (+ y 1))
  34.  ) ;end repeat 
  35. )  ; end defun
  38. ;      this start point
  39. (setq words (getstring "\nEnter title no spaces.."))
  40. (SETQ WORDLEN (strlen words))
  41. ; need dummy value to start
  42. (SETQ ANS1 ";"
  43.      ANS2 ";"
  44.      ANS3 ";"
  45.      ANS4 ";"
  46.      ANS5 ";"
  47.      ANS6 ";"
  48.      ANS7 ";"
  49.      )
  50. ;make a list of all the lines
  51. (setq fo (open "c:/alan/stuff/extra fonts A-Z.TXT" "r"))
  52. (while     (setq new_line (read-line fo))
  53.    (setq newfonts (cons new_line newfonts))
  54. )
  55. (setq newfonts (reverse newfonts))
  56. (close fo)
  57. (setq z (length newfonts))
  58. (setq x 1)
  59. (repeat wordlen
  60. (setq newchar (substr words x 1))
  61.  (xfonts)
  62.  (setq x (+ x 1)) 
  63. )
  64. (COMMAND "TEXT" "0,0" "" ans1)
  65. (cOMMAND "TEXT" "0,-2.5" "" ans2)
  66. (cOMMAND "TEXT" "0,-5.0" "" ans3)
  67. (cOMMAND "TEXT" "0,-7.5" ""  ans4)
  68. (cOMMAND "TEXT" "0,-10.0" "" ans5)
  69. (cOMMAND "TEXT" "0,-12.5" "" ans6)
  70. (cOMMAND "TEXT" "0,-15.0" "" ans7)
  71. (setq ans1 NIL
  72. ans2 NIL
  73. ans3 NIL
  74. ans4 NIL
  75. ans5 NIL
  76. ans6 NIL
  77. ans7 NIL
  78. NEWFONTS NIL
  80. )
  83. (PRINC) ; exit quitely

 
示例文件开始时需要空行
 
  3. A
  4.    ###    
  5.   ## ##   
  6.  ##   ##  
  7. ##     ## 
  8. ######### 
  9. ##     ## 
  10. ##     ## 
  11. B
  12. ######## 
  13. ##     ##
  14. ##     ##
  15. ######## 
  16. ##     ##
  17. ##     ##
  18. ######## 
  19. C
  20.  ###### 
  21. ##    ##
  22. ##      
  23. ##      
  24. ##      
  25. ##    ##
  26.  ###### 
  27. D
  28. ######## 
  29. ##     ##
  30. ##     ##
  31. ##     ##
  32. ##     ##
  33. ##     ##
  34. ######## 
  35. E
  36. ########
  37. ##      
  38. ##      
  39. ######  
  40. ##      
  41. ##      
  42. ########
  43. F
  44. ########
  45. ##      
  46. ##      
  47. ######  
  48. ##      
  49. ##      
  50. ##      
  51. G
  52.  ######  
  53. ##    ## 
  54. ##       
  55. ##   ####
  56. ##    ## 
  57. ##    ## 
  58.  ######  
  59. H
  60. ##     ##
  61. ##     ##
  62. ##     ##
  63. #########
  64. ##     ##
  65. ##     ##
  66. ##     ##
  67. I
  68. ####
  69.  ## 
  70.  ## 
  71.  ## 
  72.  ## 
  73.  ## 
  74. ####
  75. J
  76.       ##
  77.       ##
  78.       ##
  79.       ##
  80. ##    ##
  81. ##    ##
  82.  ###### 
  83. K
  84. ##    ##
  85. ##   ## 
  86. ##  ##  
  87. #####   
  88. ##  ##  
  89. ##   ## 
  90. ##    ##
  91. L
  92. ##      
  93. ##      
  94. ##      
  95. ##      
  96. ##      
  97. ##      
  98. ########
  99. M
  100. ##     ##
  101. ###   ###
  102. #### ####
  103. ## ### ##
  104. ##     ##
  105. ##     ##
  106. ##     ##
  107. N
  108. ##    ##
  109. ###   ##
  110. ####  ##
  111. ## ## ##
  112. ##  ####
  113. ##   ###
  114. ##    ##
  115. O
  116.  ####### 
  117. ##     ##
  118. ##     ##
  119. ##     ##
  120. ##     ##
  121. ##     ##
  122.  ####### 
  123. P
  124. ######## 
  125. ##     ##
  126. ##     ##
  127. ######## 
  128. ##       
  129. ##       
  130. ##       
  131. Q
  132.  ####### 
  133. ##     ##
  134. ##     ##
  135. ##     ##
  136. ##  ## ##
  137. ##    ## 
  138.  ##### ##
  139. R
  140. ######## 
  141. ##     ##
  142. ##     ##
  143. ######## 
  144. ##   ##  
  145. ##    ## 
  146. ##     ##
  147. S
  148.  ###### 
  149. ##    ##
  150. ##      
  151.  ###### 
  152.       ##
  153. ##    ##
  154.  ###### 
  155. T
  156. ########
  157.    ##   
  158.    ##   
  159.    ##   
  160.    ##   
  161.    ##   
  162.    ##   
  163. U
  164. ##     ##
  165. ##     ##
  166. ##     ##
  167. ##     ##
  168. ##     ##
  169. ##     ##
  170.  ####### 
  171. V
  172. ##     ##
  173. ##     ##
  174. ##     ##
  175. ##     ##
  176.  ##   ## 
  177.   ## ##  
  178.    ###   
  179. W
  180. ##      ##
  181. ##  ##  ##
  182. ##  ##  ##
  183. ##  ##  ##
  184. ##  ##  ##
  185. ##  ##  ##
  186.  ###  ### 
  187. X
  188. ##     ##
  189.  ##   ## 
  190.   ## ##  
  191.    ###   
  192.   ## ##  
  193.  ##   ## 
  194. ##     ##
  195. Y
  196. ##    ##
  197.  ##  ## 
  198.   ####  
  199.    ##   
  200.    ##   
  201.    ##   
  202.    ##   
  203. Z
  204. ########
  205.      ## 
  206.     ##  
  207.    ##   
  208.   ##    
  209.  ##     
  210. ########
  211. 1
  212.   ##  
  213. ####  
  214.   ##  
  215.   ##  
  216.   ##  
  217.   ##  
  218. ######
  219. 2
  220.  ####### 
  221. ##     ##
  222.        ##
  223.  ####### 
  224. ##       
  225. ##       
  226. #########
  227. 3
  228.  ####### 
  229. ##     ##
  230.        ##
  231.  ####### 
  232.        ##
  233. ##     ##
  234.  ####### 
  235. 4
  236. ##       
  237. ##    ## 
  238. ##    ## 
  239. ##    ## 
  240. #########
  241.       ## 
  242.       ## 
  243. 5
  244. ########
  245. ##      
  246. ##      
  247. ####### 
  248.       ##
  249. ##    ##
  250.  ###### 
  251. 6
  252.  ####### 
  253. ##     ##
  254. ##       
  255. ######## 
  256. ##     ##
  257. ##     ##
  258.  ####### 
  259. 7
  260. ########
  261. ##    ##
  262.     ##  
  263.    ##   
  264.   ##    
  265.   ##    
  266.   ##    
  267. 8
  268.  ####### 
  269. ##     ##
  270. ##     ##
  271.  ####### 
  272. ##     ##
  273. ##     ##
  274.  ####### 
  275. 9
  276.  ####### 
  277. ##     ##
  278. ##     ##
  279.  ########
  280.        ##
  281. ##     ##
  282.  ####### 
  283. 0
  284.   #####  
  285.  ##   ## 
  286. ##     ##
  287. ##     ##
  288. ##     ##
  289.  ##   ##
  290.   #####
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-10 05:42 , Processed in 0.350621 second(s), 71 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表