[求助]：如何使汉字数字“一”“二”递增？

jinsong-liao

在编写图纸图号时可以通过程序自动生成图号，如12.10035.07250.3-1（1），12.10035.07250.3-1（2）
有没有办法生成12.10035.07250.3-1（一），然后12.10035.07250.3-1（二），12.10035.07250.3-1（三）。
也就是阿拉伯数字与汉字数字建立对应关系？我单位图书档案馆的同志说（1）不符合规定，而应用（一）。
请高手们帮帮忙，先谢谢了！

mkhsj927

把汉字的数字先建成表嘛，然后程序对应处理

雪山飞狐(lzh)

1到10的：
(defun sz(num) (strcat (chr 162) (chr (+ 228 num))))

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;汉字数字递增
    
14. (defun c:test ()
    
15.   (CMDLASC0)
    
16.   (jzhz)
    
17.   (setq        lst '("一"          "二"              "三"          "四"
    
18.               "五"          "六"              "七"          "八"
    
19.               "九"          "十"              "十一"          "十二"
    
20.               "十三"          "十四"      "十五"          "十六"
    
21.               "十七"          "十八"      "十九"          "二十"
    
22.               "二十一"          "二十二"    "二十三"          "二十四"
    
23.               "二十五"          "二十六"    "二十七"          "二十八"
    
24.               "二十九"          "三十"      "三十一"          "三十二"
    
25.               "三十三"          "三十四"    "三十五"          "三十六"
    
26.               "三十七"          "三十八"    "三十九"          "四十"
    
27.               "四十一"          "四十二"    "四十三"          "四十四"
    
28.               "四十五"          "四十六"    "四十七"          "四十八"
    
29.               "四十九"          "五十"      "五十一"          "五十二"
    
30.               "五十三"          "五十四"    "五十五"          "五十六"
    
31.               "五十七"          "五十八"    "五十九"          "六十"
    
32.               "六十一"          "六十二"    "六十三"          "六十四"
    
33.               "六十五"          "六十六"    "六十七"          "六十八"
    
34.               "六十九"          "七十"      "七十一"          "七十二"
    
35.               "七十三"          "七十四"    "七十五"          "七十六"
    
36.               "七十七"          "七十八"    "七十九"          "八十"
    
37.               "八十一"          "八十二"    "八十三"          "八十四"
    
38.               "八十五"          "八十六"    "八十七"          "八十八"
    
39.               "八十九"          "九十"      "九十一"          "九十二"
    
40.               "九十三"          "九十四"    "九十五"          "九十六"
    
41.               "九十七"          "九十八"    "九十九"          "一○○"
    
42.              )
    
43.         i   -1
    
44.   )
    
45.   (while (and (<= i 98)
    
46.               (setq pt1 (getpoint "\n标注点 : "))
    
47.          )
    
48.     (setq i    (1+ i)
    
49.           #txt (nth i lst)
    
50.     )
    
51.     (XIEZI pt1 #txt)
    
52.   )
    
53.   (CMDLA1)
    
54. )
    
55. [/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;汉字数字递增<br /> (defun c:test ()<br />   (CMDLASC0)<br />   (jzhz)<br />   (setq        lst '("一"          "二"              "三"          "四"<br />               "五"          "六"              "七"          "八"<br />               "九"          "十"              "十一"          "十二"<br />               "十三"          "十四"      "十五"          "十六"<br />               "十七"          "十八"      "十九"          "二十"<br />               "二十一"          "二十二"    "二十三"          "二十四"<br />               "二十五"          "二十六"    "二十七"          "二十八"<br />               "二十九"          "三十"      "三十一"          "三十二"<br />               "三十三"          "三十四"    "三十五"          "三十六"<br />               "三十七"          "三十八"    "三十九"          "四十"<br />               "四十一"          "四十二"    "四十三"          "四十四"<br />               "四十五"          "四十六"    "四十七"          "四十八"<br />               "四十九"          "五十"      "五十一"          "五十二"<br />               "五十三"          "五十四"    "五十五"          "五十六"<br />               "五十七"          "五十八"    "五十九"          "六十"<br />               "六十一"          "六十二"    "六十三"          "六十四"<br />               "六十五"          "六十六"    "六十七"          "六十八"<br />               "六十九"          "七十"      "七十一"          "七十二"<br />               "七十三"          "七十四"    "七十五"          "七十六"<br />               "七十七"          "七十八"    "七十九"          "八十"<br />               "八十一"          "八十二"    "八十三"          "八十四"<br />               "八十五"          "八十六"    "八十七"          "八十八"<br />               "八十九"          "九十"      "九十一"          "九十二"<br />               "九十三"          "九十四"    "九十五"          "九十六"<br />               "九十七"          "九十八"    "九十九"          "一○○"<br />              )<br />         i   -1<br />   )<br />   (while (and (<= i 98)<br />               (setq pt1 (getpoint "\n标注点 : "))<br />          )<br />     (setq i    (1+ i)<br />           #txt (nth i lst)<br />     )<br />     (XIEZI pt1 #txt)<br />   )<br />   (CMDLA1)<br /> )<br /> [/FONT]

jinsong-liao

谢谢二位，我还得好好琢磨才能理解。

fylinwater

我去年贴过 处理阿拉伯数字和中文整数的相互转换，可以到上亿的数字

狂刀

白银长老不妨把那个帖子的链接贴出来：）

aeo

最初由 xyp1964 发布
[B][CODE](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp... [/B]

只要1~10就可以
n/10 加十
n/100加百 ...

swghjk

太好了.