设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 显示屏幕光标下的文本 [grread + grvecs]
返回列表 发新帖
查看: 735|回复: 1

[每日一码] 显示屏幕光标下的文本 [grread + grvecs]

[复制链接]
marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2021-1-20 04:31:44 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×

abc.gif

  1. (defun c:test ()
  2. (eea-abc
  3.   "
  4. ***************************************************************

  6. by ElpanovEvgeniy

  8. mail: elpanov@gmail.com
  9. web: www.elpanov.com

  11. ***************************************************************

  13. Program for displaying any text near the cursor on the screen.

  15. Date of creation 01.02.2006
  16. Last edition 06.02.2008

  18. arguments:

  20. str - a text string to display
  21. cb - the background color
  22. cf - color of text

  24. ***************************************************************
  25. " 7
  26.   5
  27. )
  28. )
  29. (defun eea-abc (str cb cf / *ERROR* C GR I IL INT IY L L-ST MX S ST X Y)
  30.                ;|
  31. *****************************************************************************************

  33. by ElpanovEvgeniy

  35. mail: elpanov@gmail.com
  36. web: www.elpanov.com

  38. *****************************************************************************************

  40. Program for displaying any text near the cursor on the screen.

  42. Date of creation 01.02.2006
  43. Last edition 06.02.2008

  45. arguments:

  47. str - a text string to display
  48. cb - the background color
  49. cf - color of text

  51. *****************************************************************************************

  53. (eea-abc
  54. " !\"#$%&'()*+,-./0123456789:;<=>?@
  55. ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`
  56. abcdefghijklmnopqrstuvwxyz{|}~&#8218;&#8222;…‰&#8249;‘’“”&#8226;–—&#8482;¤|§Ё&#169;&#171;&#172;-&#174;°±·ё&#187;
  57. АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя"
  58. 7
  59. 5
  60. )

  62. (eea-abc "0.0" 1 2)

  64. (eea-abc
  65. "
  66. (setq l (append (list (list -3. (setq i (1+ i)))
  67. (list (+ x 3.) i)
  68. (list -3. (setq i (1+ i)))
  69. (list (+ x 3.) i)
  70. (list -2. (setq i (1+ i)))
  71. (list (+ x 2.) i)
  72. (list 0. (setq i (1+ i)))
  73. (list x i)
  74. ) ;_ list
  75. l
  76. ) ;_ append
  77. il nil
  78. )
  79. "
  80. 7 5
  81. )

  83. (setq str(getstring t "\n Введите строку:\t"))
  84. (eea-abc str 7 5)

  86. *****************************************************************************************
  87. |;
  88. (defun *ERROR* (m) (REDRAW) (princ))
  89. (while (setq i (VL-STRING-POSITION 10 str))
  90.   (setq il  (cons (substr str 1 i) il)
  91.         str (substr str (+ i 2))
  92.   )
  93. )
  94. (setq il   (cons str il)
  95.        int  nil
  96.        i    0
  97.        y    0
  98.        st   '(" "   "\t"  "!"   "\""  "#"   "$"   "%"   "&"   "'"   "("   ")"   "*"   "+"   ","   "-"   "."   "/"   "0"   "1"   "2"   "3"   "4"
  99.               "5"   "6"   "7"   "8"   "9"   ":"   ";"   "<"   "="   ">"   "?"   "@"   "A"   "B"   "C"   "D"   "E"   "F"   "G"   "H"   "I"   "J"
  100.               "K"   "L"   "M"   "N"   "O"   "P"   "Q"   "R"   "S"   "T"   "U"   "V"   "W"   "X"   "Y"   "Z"   "["   "\\"  "]"   "^"   "_"   "`"
  101.               "a"   "b"   "c"   "d"   "e"   "f"   "g"   "h"   "i"   "j"   "k"   "l"   "m"   "n"   "o"   "p"   "q"   "r"   "s"   "t"   "u"   "v"
  102.               "w"   "x"   "y"   "z"   "{"   "|"   "}"   "~"   "&#8218;"   "&#8222;"   "…"   "‰"   "&#8249;"   "‘"   "’"   "“"   "”"   "&#8226;"   "–"   "—"   "&#8482;"   "¤"
  103.               "|"   "§"   "Ё"   "&#169;"   "&#171;"   "&#172;"   "-"   "&#174;"   "°"   "±"   "·"   "ё"   "&#187;"   "А"   "Б"   "В"   "Г"   "Д"   "Е"   "Ж"   "З"   "И"
  104.               "Й"   "К"   "Л"   "М"   "Н"   "О"   "П"   "Р"   "С"   "Т"   "У"   "Ф"   "Х"   "Ц"   "Ч"   "Ш"   "Щ"   "Ъ"   "Ы"   "Ь"   "Э"   "Ю"
  105.               "Я"   "а"   "б"   "в"   "г"   "д"   "е"   "ж"   "з"   "и"   "й"   "к"   "л"   "м"   "н"   "о"   "п"   "р"   "с"   "т"   "у"   "ф"
  106.               "х"   "ц"   "ч"   "ш"   "щ"   "ъ"   "ы"   "ь"   "э"   "ю"   "я"
  107.              )
  108.        l-st '((" ")
  109.               ("\t")
  110.               ("!" 39 41 48 50 66 68 75 77 83 87 92 96 101 105 111 113)
  111.               ("\"" 86 88 95 97 104 106 91 93 100 102 109 111)
  112.               ("#" 113 115 104 106 86 88 77 79 68 70 50 52 41 43 38 40 47 49 55 62 65 67 74 76 83 85 91 98 101 103 110 112)
  113.               ("$" 104 106 21 23 30 32 50 52 38 42 46 48 59 61 67 69 75 77 83 85 91 93 100 102 110 114 120 122 129 131)
  114.               ("%" 51 53 42 44 31 34 39 41 48 50 58 61 46 47 55 57 65 67 75 77 85 87 95 97 105 106 91 94 102 104 111 113 99 101 108 110 118 121)
  115.               ("&" 42 44 50 52 59 61 67 71 38 41 46 48 55 57 64 66 73 75 103 105 94 96 83 86 91 93 100 102 110 113)
  116.               ("'" 93 95 102 104 111 113)
  117.               ("(" 112 114 22 24 47 49 30 32 39 41 56 58 65 67 93 95 102 104 74 76 83 85)
  118.               (")" 110 112 20 22 49 51 30 32 39 41 58 60 67 69 76 78 85 87 93 95 102 104)
  119.               ("*" 59 61 56 58 66 69 73 80 84 87 95 97 92 94)
  120.               ("+" 57 59 66 68 84 86 93 95 73 79)
  121.               ("," 21 23 31 33 39 42 48 51)
  122.               ("-" 73 79)
  123.               ("." 39 42 48 51)
  124.               ("/" 28 30 37 39 47 49 56 58 66 68 75 77 85 87 94 96 104 106 113 115)
  125.               ("0" 105 107 95 98 86 89 78 80 69 71 60 62 51 53 39 43 47 49 56 59 65 68 74 76 83 85 92 94 101 103 111 115)
  126.               ("1" 40 42 49 51 58 60 67 69 76 78 85 87 91 96 102 105 112 114)
  127.               ("2" 37 43 46 48 56 58 66 68 76 78 86 88 95 97 104 106 91 93 100 102 110 114)
  128.               ("3" 59 61 50 52 38 42 46 48 55 57 68 70 75 78 86 88 95 97 104 106 91 93 100 102 110 114)
  129.               ("4" 41 43 50 52 95 97 86 88 77 79 68 70 55 62 64 66 74 76 83 85 92 94 101 103 110 112)
  130.               ("5" 37 41 49 51 59 61 68 70 73 78 82 84 91 93 100 102 109 115)
  131.               ("6" 77 79 68 70 59 61 50 52 38 42 46 48 55 57 64 66 73 75 82 87 92 94 102 104 111 114)
  132.               ("7" 109 115 104 106 94 96 85 87 75 77 66 68 56 58 47 49 38 40)
  133.               ("8" 50 52 59 61 67 70 86 88 95 97 104 106 110 114 100 102 91 93 82 85 74 78 64 66 55 57 46 48 38 42)
  134.               ("9" 77 79 86 88 95 97 104 106 110 114 100 102 91 93 82 84 73 75 65 70 58 60 48 50 38 41)
  135.               (":" 39 42 48 51 84 87 93 96)
  136.               (";" 84 87 93 96 12 14 22 24 30 33 39 42)
  137.               ("<" 41 43 49 51 57 59 65 67 73 75 83 85 93 95 103 105 113 115)
  138.               ("=" 64 70 82 88)
  139.               (">" 109 111 101 103 93 95 85 87 77 79 67 69 57 59 47 49 37 39)
  140.               ("?" 39 41 48 50 66 68 75 77 85 87 95 97 104 106 91 93 100 102 110 114)
  141.               ("@" 78 80 69 71 58 62 66 68 75 77 85 89 96 98 105 107 37 44 45 47 54 56 63 65 72 74 81 83 90 92 99 101 109 115)
  142.               ("A" 95 97 86 88 77 79 59 61 50 52 41 43 37 39 46 48 55 57 64 70 73 75 82 84 91 93 101 105 111 113)
  143.               ("B" 104 106 95 97 86 88 68 70 59 61 50 52 37 42 46 48 55 57 64 66 73 78 82 84 91 93 100 102 109 114)
  144.               ("C" 104 106 95 97 59 61 50 52 38 42 46 48 55 57 64 66 73 75 82 84 91 93 100 102 110 114)
  145.               ("D" 103 105 95 97 86 88 77 79 68 70 59 61 49 51 37 41 46 48 55 57 64 66 73 75 82 84 91 93 100 102 109 113)
  146.               ("E" 37 43 46 48 55 57 64 66 73 78 82 84 91 93 100 102 109 115)
  147.               ("F" 109 115 100 102 91 93 82 84 73 78 64 66 55 57 46 48 37 39)
  148.               ("G" 104 106 95 97 67 70 59 61 50 52 38 43 46 48 55 57 64 66 73 75 82 84 91 93 100 102 110 114)
  149.               ("H" 113 115 104 106 95 97 86 88 68 70 59 61 50 52 41 43 37 39 46 48 55 57 64 66 73 79 82 84 91 93 100 102 109 111)
  150.               ("I" 38 42 48 50 57 59 66 68 75 77 84 86 93 95 102 104 110 114)
  151.               ("J" 113 115 104 106 95 97 86 88 77 79 68 70 59 61 50 52 38 42 46 48 55 57)
  152.               ("K" 113 115 104 106 94 96 85 87 67 69 58 60 50 52 41 43 37 39 46 48 55 57 64 66 73 77 82 84 91 93 100 102 109 111)
  153.               ("L" 37 43 46 48 55 57 64 66 73 75 82 84 91 93 100 102 109 111)
  154.               ("M" 42 44 51 53 60 62 69 71 78 80 87 89 114 116 105 107 95 98 67 68 76 77 85 86 37 39 46 48 55 57 64 66 73 75 82 84 91 94 100 102 109
  155.                111)
  156.               ("N" 42 44 51 53 60 62 68 71 76 80 87 89 96 98 105 107 114 116 109 111 100 102 91 94 82 86 73 75 64 66 55 57 46 48 37 39)
  157.               ("O" 104 106 95 97 86 88 77 79 68 70 59 61 50 52 38 42 46 48 55 57 64 66 73 75 82 84 91 93 100 102 110 114)
  158.               ("P" 104 106 95 97 86 88 37 39 46 48 55 57 64 66 73 78 82 84 91 93 100 102 109 114)
  159.               ("Q" 104 106 95 97 86 88 77 79 68 70 59 61 50 52 23 25 31 33 38 42 46 48 55 57 64 66 73 75 82 84 91 93 100 102 110 114)
  160.               ("R" 41 43 50 52 59 61 67 69 86 88 95 97 104 106 37 39 46 48 55 57 64 66 73 78 82 84 91 93 100 102 109 114)
  161.               ("S" 104 106 110 114 100 102 91 93 83 85 75 77 67 69 59 61 50 52 46 48 38 42)
  162.               ("T" 39 41 48 50 57 59 66 68 75 77 84 86 93 95 102 104 109 115)
  163.               ("U" 113 115 104 106 95 97 86 88 77 79 68 70 59 61 50 52 38 42 46 48 55 57 64 66 73 75 82 84 91 93 100 102 109 111)
  164.               ("V" 113 115 104 106 95 97 86 88 77 79 68 70 59 61 39 41 47 51 55 57 64 66 73 75 82 84 91 93 100 102 109 111)
  165.               ("W" 41 43 50 52 59 61 69 71 78 80 87 89 96 98 105 107 114 116 85 86 76 77 67 68 38 40 47 49 56 58 64 66 73 75 82 84 91 93 100 102 109
  166.                111)
  167.               ("X" 113 115 104 106 95 96 41 43 50 52 59 61 67 69 37 39 46 48 55 57 65 66 75 77 84 86 92 94 100 102 109 111)
  168.               ("Y" 113 115 104 106 95 97 86 88 39 41 48 50 57 59 66 68 74 78 82 84 91 93 100 102 109 111)
  169.               ("Z" 37 43 46 48 55 57 65 67 75 77 85 87 95 97 104 106 109 115)
  170.               ("[" 2 6 11 15 20 22 29 31 38 40 47 49 56 58 65 67 74 76 83 85 92 94 101 103 110 114)
  171.               ("\\" 32 34 41 43 49 51 58 60 66 68 75 77 83 85 92 94 100 102 109 111)
  172.               ("]" 110 114 2 6 11 15 22 24 31 33 40 42 49 51 58 60 67 69 76 78 85 87 94 96 103 105)
  173.               ("^" 113 115 109 111 119 123 129 131)
  174.               ("_" 0 8 9 17)
  175.               ("`" 112 114 120 122 128 131)
  176.               ("a" 38 43 50 52 59 61 46 48 55 57 65 70 77 79 86 88 92 96)
  177.               ("b" 50 52 59 61 68 70 77 79 86 88 37 42 46 48 55 57 64 66 73 75 82 84 91 96 100 102 109 111)
  178.               ("c" 86 88 50 52 38 42 46 48 55 57 64 66 73 75 82 84 92 96)
  179.               ("d" 86 88 77 79 68 70 59 61 50 52 38 43 46 48 55 57 64 66 73 75 82 84 92 97 104 106 113 115)
  180.               ("e" 86 88 77 79 38 42 46 48 55 57 64 70 73 75 82 84 92 96)
  181.               ("f" 111 115 101 103 92 94 83 85 73 79 65 67 56 58 47 49 38 40)
  182.               ("g" 86 88 77 79 68 70 59 61 50 52 1 6 10 15 23 25 32 34 38 43 46 48 55 57 64 66 73 75 82 84 92 97)
  183.               ("h" 41 43 50 52 59 61 68 70 77 79 86 88 37 39 46 48 55 57 64 66 73 75 82 84 91 96 100 102 109 111)
  184.               ("i" 37 43 48 50 57 59 66 68 75 77 84 86 91 95 111 113 120 122)
  185.               ("j" 1 5 10 14 22 24 31 33 40 42 49 51 58 60 67 69 76 78 85 87 92 96 112 114 121 123)
  186.               ("k" 41 43 50 52 58 60 95 97 86 88 76 78 37 39 46 48 55 57 64 68 73 75 82 84 91 93 100 102 109 111)
  187.               ("l" 37 43 48 50 57 59 66 68 75 77 84 86 93 95 102 104 109 113)
  188.               ("m" 42 44 51 53 60 62 69 71 78 80 87 89 85 86 76 77 67 68 58 59 49 50 37 39 46 48 55 57 64 66 73 75 82 84 91 97)
  189.               ("n" 41 43 50 52 59 61 68 70 77 79 86 88 37 39 46 48 55 57 64 66 73 75 82 84 91 96)
  190.               ("o" 50 52 59 61 68 70 77 79 86 88 92 96 82 84 73 75 64 66 55 57 46 48 38 42)
  191.               ("p" 50 52 59 61 68 70 77 79 86 88 1 3 10 12 19 21 28 30 37 42 46 48 55 57 64 66 73 75 82 84 91 96)
  192.               ("q" 5 7 14 16 23 25 32 34 50 52 59 61 68 70 77 79 86 88 38 43 46 48 55 57 64 66 73 75 82 84 92 97)
  193.               ("r" 95 97 85 88 37 39 46 48 55 57 64 66 73 76 82 84 91 93)
  194.               ("s" 37 42 50 52 59 61 65 69 73 75 82 84 92 97)
  195.               ("t" 39 43 47 49 56 58 65 67 74 76 83 85 91 97 101 103 110 112)
  196.               ("u" 95 97 86 88 77 79 68 70 59 61 50 52 38 43 46 48 55 57 64 66 73 75 82 84 91 93)
  197.               ("v" 95 97 86 88 77 79 68 70 59 61 39 41 47 51 55 57 64 66 73 75 82 84 91 93)
  198.               ("w" 96 98 87 89 78 80 69 71 60 62 41 43 50 52 85 86 76 77 67 68 58 59 38 40 47 49 55 57 64 66 73 75 82 84 91 93)
  199.               ("x" 95 97 86 88 41 43 37 39 50 52 46 48 56 60 66 68 74 78 82 84 91 93)
  200.               ("y" 0 4 9 13 21 23 31 33 95 97 86 88 77 79 68 70 59 61 50 52 38 42 46 48 55 57 64 66 73 75 82 84 91 93)
  201.               ("z" 37 43 46 48 56 58 66 68 76 78 86 88 91 97)
  202.               ("{" 22 24 30 32 39 41 48 50 56 58 64 66 74 76 84 86 93 95 102 104 112 114)
  203.               ("|" 3 5 12 14 21 23 30 32 39 41 48 50 57 59 66 68 75 77 84 86 93 95 102 104 111 113)
  204.               ("}" 20 21 30 32 39 41 48 50 58 60 68 70 76 78 84 86 93 95 102 104 110 112)
  205.               ("~" 115 116 105 107 94 97 102 104 90 91 99 101 109 112)
  206.               ("&#8218;" 21 23 31 33 39 42 48 51)
  207.               ("&#8222;" 23 25 33 35 41 44 50 53 19 21 29 31 37 40 46 49)
  208.               ("…" 36 38 45 47 42 44 51 53 39 41 48 50)
  209.               ("‰" 43 44 33 34 51 52 30 31 40 42 38 39 48 49 36 37 45 47 55 57 65 67 75 77 85 87 95 97 105 106 100 101 110 111 108 109 118 119)
  210.               ("&#8249;" 40 42 48 50 56 58 64 66 74 76 84 86 94 96)
  211.               ("‘" 103 104 111 113 120 121)
  212.               ("’" 103 104 112 114 122 123)
  213.               ("“" 104 105 112 114 121 122 101 102 109 111 118 119)
  214.               ("”" 123 124 113 115 104 105 101 102 110 112 120 121)
  215.               ("&#8226;" 66 68 74 78 84 86)
  216.               ("–" 74 78)
  217.               ("—" 73 79)
  218.               ("&#8482;" 97 98 106 107 114 116 104 105 93 94 102 103 91 92 100 101 108 113)
  219.               ("¤" 59 61 55 57 86 88 77 79 65 69 73 75 82 84 104 106 92 96 100 102)
  220.               ("|" 3 5 12 14 21 23 30 32 39 41 48 50 75 77 84 86 93 95 102 104 111 113)
  221.               ("§" 19 21 2 6 11 15 23 25 32 34 39 42 47 51 59 61 68 70 55 57 64 66 74 78 104 106 83 86 91 93 100 102 110 114)
  222.               ("Ё" 37 43 46 48 55 57 64 66 73 78 82 84 91 93 100 102 109 115 131 133 140 142 127 129 136 138)
  223.               ("&#169;" 86 87 68 69 57 59 65 66 74 75 83 84 93 95 105 107 97 98 88 89 79 80 70 71 61 62 51 53 37 43 45 47 54 55 63 64 72 73 81 82 90 91 99
  224.                101 109 115)
  225.               ("&#171;" 42 44 50 52 58 60 68 70 78 80 38 40 46 48 54 56 64 66 74 76)
  226.               ("&#172;" 59 61 68 70 73 79)
  227.               ("-" 73 79)
  228.               ("&#174;" 86 87 77 78 59 60 56 57 65 68 74 75 83 84 92 95 105 107 97 98 88 89 79 80 70 71 61 62 51 53 37 43 45 47 54 55 63 64 72 73 81 82 90
  229.                91 99 101 109 115)
  230.               ("°" 113 115 104 106 92 96 100 102 109 111 119 123)
  231.               ("±" 37 43 57 59 66 68 73 79 84 86 93 95)
  232.               ("·" 75 78 84 87)
  233.               ("ё" 38 43 46 48 55 57 86 88 77 79 64 70 73 75 82 84 92 96 113 115 122 124 109 111 118 120)
  234.               ("&#187;" 40 42 50 52 60 62 68 70 76 78 36 38 46 48 56 58 64 66 72 74)
  235.               ("А" 95 97 86 88 77 79 59 61 50 52 41 43 37 39 46 48 55 57 64 70 73 75 82 84 91 93 101 105 111 113)
  236.               ("Б" 77 79 68 70 59 61 50 52 37 42 46 48 55 57 64 66 73 75 82 87 91 93 100 102 105 106 109 115)
  237.               ("В" 104 106 95 97 86 88 68 70 59 61 50 52 37 42 46 48 55 57 64 66 73 78 82 84 91 93 100 102 109 114)
  238.               ("Г" 37 39 46 48 55 57 64 66 73 75 82 84 91 93 105 106 100 102 109 115)
  239.               ("Д" 33 35 50 52 59 61 68 70 77 79 86 88 95 97 104 106 27 29 36 44 46 48 55 57 64 66 73 75 82 84 91 93 100 102 110 115)
  240.               ("Е" 37 43 46 48 55 57 64 66 73 78 82 84 91 93 100 102 109 115)
  241.               ("Ж" 43 44 51 53 60 61 69 70 39 41 48 50 57 59 66 68 36 37 45 47 55 56 64 65 73 79 83 87 105 106 114 116 111 113 102 104 91 97 100 101
  242.                108 110)
  243.               ("З" 38 42 46 48 55 56 50 52 59 61 68 70 75 78 84 87 95 97 104 106 91 92 100 102 110 114)
  244.               ("И" 42 44 51 53 60 62 69 71 114 116 105 107 96 98 86 89 76 80 37 39 46 48 55 58 64 68 73 75 82 84 91 93 100 102 109 111)
  245.               ("Й" 42 44 51 53 60 62 69 71 114 116 105 107 96 98 86 89 76 80 37 39 46 48 55 58 64 68 73 75 82 84 91 93 100 102 112 113 121 123 131 132
  246.                109 111)
  247.               ("К" 41 43 50 52 58 60 67 69 85 87 94 96 104 106 113 115 37 39 46 48 55 57 64 66 73 77 82 84 91 93 100 102 109 111)
  248.               ("Л" 41 43 50 52 59 61 68 70 77 79 86 88 95 97 104 106 36 38 46 48 55 57 64 66 73 75 82 84 91 93 100 102 110 115)
  249.               ("М" 42 44 51 53 60 62 69 71 78 80 87 89 114 116 105 107 95 98 67 68 76 77 85 86 37 39 46 48 55 57 64 66 73 75 82 84 91 94 100 102 109
  250.                111)
  251.               ("Н" 42 44 51 53 60 62 69 71 87 89 96 98 105 107 114 116 37 39 46 48 55 57 64 66 73 80 82 84 91 93 100 102 109 111)
  252.               ("О" 104 106 95 97 86 88 77 79 68 70 59 61 50 52 38 42 46 48 55 57 64 66 73 75 82 84 91 93 100 102 110 114)
  253.               ("П" 42 44 51 53 60 62 69 71 78 80 87 89 96 98 105 107 37 39 46 48 55 57 64 66 73 75 82 84 91 93 100 102 109 116)
  254.               ("Р" 104 106 95 97 86 88 37 39 46 48 55 57 64 66 73 78 82 84 91 93 100 102 109 114)
  255.               ("С" 96 97 104 106 60 61 50 52 38 42 46 48 55 57 64 66 73 75 82 84 91 93 100 102 110 114)
  256.               ("Т" 39 41 48 50 57 59 66 68 75 77 84 86 93 95 102 104 109 115)
  257.               ("У" 46 48 38 42 50 52 59 61 65 70 77 79 86 88 95 97 104 106 113 115 73 75 82 84 91 93 100 102 109 111)
  258.               ("Ф" 69 71 78 80 87 89 96 98 93 95 84 86 75 77 66 68 39 41 48 50 55 61 63 65 72 74 81 83 90 92 100 106 111 113)
  259.               ("Х" 41 43 50 52 59 60 67 69 37 39 46 48 56 57 65 66 75 77 84 86 113 115 104 106 95 96 92 94 100 102 109 111)
  260.               ("Ц" 33 35 50 52 59 61 68 70 77 79 86 88 95 97 104 106 113 115 37 44 46 48 55 57 64 66 73 75 82 84 91 93 100 102 109 111)
  261.               ("Ч" 113 115 104 106 95 97 86 88 77 79 41 43 50 52 59 61 65 70 73 75 82 84 91 93 100 102 109 111)
  262.               ("Ш" 51 53 60 62 69 71 78 80 87 89 96 98 105 107 114 116 112 113 103 104 94 95 85 86 76 77 67 68 58 59 49 50 37 44 46 48 55 57 64 66 73
  263.                75 82 84 91 93 100 102 109 111)
  264.               ("Щ" 114 116 105 107 96 98 87 89 78 80 69 71 60 62 51 53 112 113 103 104 94 95 85 86 76 77 67 68 58 59 49 50 33 35 37 44 46 48 55 57 64
  265.                66 73 75 82 84 91 93 100 102 109 111)
  266.               ("Ъ" 68 70 59 61 50 52 37 42 46 48 55 57 64 66 73 78 82 84 91 93 99 102 108 111)
  267.               ("Ы" 114 116 105 107 96 98 87 89 78 80 42 44 67 71 58 62 49 53 37 41 46 48 55 57 64 66 73 77 82 84 91 93 100 102 109 111)
  268.               ("Ь" 68 71 59 62 50 53 37 43 46 48 55 57 64 66 73 79 82 84 91 93 100 102 109 111)
  269.               ("Э" 55 56 46 48 38 42 50 52 59 61 68 70 75 79 86 88 95 97 104 106 91 92 100 102 110 114)
  270.               ("Ю" 57 59 48 50 40 43 51 53 60 62 69 71 78 80 87 89 96 98 105 107 93 95 102 104 112 115 36 38 45 47 54 56 63 68 72 77 81 86 90 92 99
  271.                101 108 110)
  272.               ("Я" 41 43 37 39 50 52 59 61 46 48 56 58 66 70 74 79 86 87 82 84 95 97 91 93 104 106 100 102 110 115)
  273.               ("а" 42 44 50 52 59 61 38 41 46 48 55 57 65 70 77 79 86 88 92 96)
  274.               ("б" 68 70 59 61 50 52 38 42 46 48 55 57 64 66 73 78 82 84 92 97 105 106)
  275.               ("в" 86 88 77 79 59 61 50 52 37 42 46 48 55 57 64 69 73 75 82 84 91 96)
  276.               ("г" 37 39 46 48 55 57 64 66 73 75 82 84 91 97)
  277.               ("д" 86 88 77 79 68 70 59 61 50 52 33 35 28 30 37 44 47 49 56 58 65 67 74 76 83 85 92 97)
  278.               ("е" 86 88 77 79 38 43 46 48 55 57 64 70 73 75 82 84 92 96)
  279.               ("ж" 43 44 51 53 40 41 49 50 37 38 46 48 56 61 66 69 87 89 97 98 94 95 85 86 74 79 82 84 91 92)
  280.               ("з" 50 52 38 42 46 48 59 61 66 69 77 79 86 88 82 84 92 96)
  281.               ("и" 95 97 85 88 76 79 59 61 50 52 41 43 37 39 46 49 55 58 64 70 73 75 82 84 91 93)
  282.               ("й" 41 43 50 52 59 61 76 79 85 88 95 97 122 123 112 114 102 104 91 93 82 84 73 75 64 70 55 58 46 49 37 39)
  283.               ("к" 42 43 50 52 58 60 76 78 86 88 96 97 37 39 46 48 55 57 64 68 73 75 82 84 91 93)
  284.               ("л" 77 79 68 70 59 61 50 52 41 43 37 39 47 48 56 58 66 67 75 76 84 88 94 97)
  285.               ("м" 42 44 51 53 60 62 69 71 96 98 86 89 77 80 58 59 67 68 37 39 46 48 55 57 64 66 73 75 82 85 91 93)
  286.               ("н" 41 43 50 52 59 61 77 79 86 88 95 97 91 93 82 84 73 75 64 70 55 57 46 48 37 39)
  287.               ("о" 50 52 59 61 68 70 77 79 86 88 92 96 82 84 73 75 64 66 55 57 46 48 38 42)
  288.               ("п" 41 43 50 52 59 61 68 70 77 79 86 88 37 39 46 48 55 57 64 66 73 75 82 84 91 97)
  289.               ("р" 50 52 59 61 68 70 77 79 86 88 1 3 10 12 19 21 28 30 37 42 46 48 55 57 64 66 73 75 82 84 91 96)
  290.               ("с" 50 52 38 42 46 48 55 57 64 66 73 75 82 84 86 88 92 96)
  291.               ("т" 39 41 48 50 57 59 66 68 75 77 84 86 91 97)
  292.               ("у" 19 21 2 6 11 15 23 25 32 34 41 43 47 52 59 61 68 70 77 79 86 88 95 97 55 57 64 66 73 75 82 84 91 93)
  293.               ("ф" 60 62 69 71 78 80 87 89 85 86 76 77 67 68 58 59 31 32 40 41 47 52 55 57 64 66 73 75 82 84 103 104 92 97)
  294.               ("х" 41 43 50 52 37 39 46 48 56 60 66 68 95 97 86 88 74 78 82 84 91 93)
  295.               ("ц" 95 97 86 88 77 79 68 70 59 61 50 52 33 35 37 44 46 48 55 57 64 66 73 75 82 84 91 93)
  296.               ("ч" 95 97 86 88 77 79 68 70 41 43 50 52 56 61 64 66 73 75 82 84 91 93)
  297.               ("ш" 51 53 60 62 69 71 78 80 87 89 96 98 49 50 58 59 67 68 76 77 85 86 94 95 91 93 82 84 73 75 64 66 55 57 46 48 37 44)
  298.               ("щ" 33 35 49 50 58 59 67 68 76 77 85 86 94 95 96 98 87 89 78 80 69 71 60 62 51 53 37 44 46 48 55 57 64 66 73 75 82 84 91 93)
  299.               ("ъ" 60 62 51 53 38 43 47 49 56 58 65 70 74 76 82 85 91 94)
  300.               ("ы" 96 98 87 89 78 80 69 71 58 62 49 53 42 44 37 41 46 48 55 57 64 68 73 75 82 84 91 93)
  301.               ("ь" 59 61 50 52 37 42 46 48 55 57 64 69 73 75 82 84 91 93)
  302.               ("э" 46 48 38 42 50 52 59 61 66 70 77 79 86 88 82 84 92 96)
  303.               ("ю" 85 86 94 97 87 89 78 80 69 71 60 62 51 53 49 50 40 43 37 39 46 48 55 59 64 68 73 77 82 84 91 93)
  304.               ("я" 50 52 41 43 37 39 47 49 57 61 65 70 77 79 86 88 73 75 82 84 92 97)
  305.              )
  306.        l-st (mapcar (function (lambda (b)
  307.                                (cons (car b)
  308.                                      (mapcar (function (lambda (a)
  309.                                                         (if a
  310.                                                          (list (rem a 9) (/ a 9))
  311.                                                         )
  312.                                                        )
  313.                                              )
  314.                                              (cdr b)
  315.                                      )
  316.                                )
  317.                               )
  318.                     )
  319.                     l-st
  320.             )
  321.        iy   (* (length il) 16)
  322.        mx   (* (apply (function max) (mapcar (function strlen) il)) 8)
  323. )
  324. (repeat (length il)
  325.   (setq i   0
  326.         str (car il)
  327.   )
  328.   (repeat (strlen str)
  329.    (setq c (substr str 1 1))
  330.    (cond ((= c " ")
  331.           (setq i   (+ i 8)
  332.                 str (substr str 2)
  333.           )
  334.          )
  335.          ((= c "\t")
  336.           (setq i   (+ i 32)
  337.                 str (substr str 2)
  338.           )
  339.          )
  340.          ((= c ""))
  341.          (t
  342.           (setq int (cons (mapcar (function (lambda (a)
  343.                                              (if a
  344.                                               (list (+ (car a) i) (+ (cadr a) y))
  345.                                              )
  346.                                             )
  347.                                   )
  348.                                   (cdr (nth (vl-position c st) l-st))
  349.                           )
  350.                           int
  351.                     )
  352.                 str (substr str 2)
  353.                 i   (+ i 8)
  354.           )
  355.          )
  356.    )
  357.   )
  358.   (setq y  (+ y 16)
  359.         il (cdr il)
  360.   )
  361. )
  362. (setq int (apply (function append) int)
  363.        x   mx
  364.        i   0
  365.        y   iy
  366.        l   (list '(0. -3.)
  367.                  (list x -3.)
  368.                  '(-2. -2.)
  369.                  (list (+ x 2.) -2.)
  370.                  '(-3. -1.)
  371.                  (list (+ x 3.) -1.)
  372.                  '(-3. 0.)
  373.                  (list (+ x 3.) 0.)
  374.            )
  375. )
  376. (repeat y (setq l (cons (list -4. (setq i (1+ i))) (cons (list (+ x 4.) i) l))))
  377. (setq l (append (list (list -3. (setq i (1+ i)))
  378.                        (list (+ x 3.) i)
  379.                        (list -3. (setq i (1+ i)))
  380.                        (list (+ x 3.) i)
  381.                        (list -2. (setq i (1+ i)))
  382.                        (list (+ x 2.) i)
  383.                        (list 0. (setq i (1+ i)))
  384.                        (list x i)
  385.                  )
  386.                  l
  387.          )
  388. )
  389. (while (= (car (setq gr (grread nil 5 0))) 5)
  390.   (setq s  (/ (getvar "viewsize") (cadr (getvar "SCREENSIZE")))
  391.         gr (trans (cadr gr) 1 3)
  392.   )
  393.   (redraw)
  394.   (grvecs (append (cons cb l) (cons cf int))
  395.           ((lambda (c x y) (list (list c 0. 0. x) (list 0. c 0. y) (list 0. 0. c 0.) '(0. 0. 0. 1.))) s
  396.                                                                                                       (+ (car gr) (* 15 s))
  397.                                                                                                       (+ (cadr gr) (* 15 s))
  398.           )
  399.   )
  400. )
  401. (redraw)
  402. (princ)
  403. )
  404. ;|&#171;Visual LISP&#169; Format Options&#187;
  405. (150 1 16 2 nil nil 90 90 0 0 0 nil nil nil T)
  406. ;*** DO NOT add text below the comment! ***|;
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

bonny123

已领礼包: 41个

财富等级: 招财进宝
发表于 2021-1-23 12:52:42 | 显示全部楼层
不支持中文？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-15 08:37 , Processed in 0.249855 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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