求序号标注，如1写到l图上为一

品茗新秀

求序号标注，如1写到l图上为一，如2，写到图上为二，以此类推，如12写到图上为十二，如22写到图上为二十二，如-2，写到图上为负二，自已写了一个，实在太差了，求高手出手写一个学习一下。

edata

向院长致敬

1. ;;;数字转汉字by edata@mjtd
   
2. ;;;数字转汉字函数(int->str sk_n) sk_n 实数整型范围
   
3. (defun int->str(sk_n / sk- A I K LST LST2 S SK_N->STR1 SK_N->STR2 STR)
   
4.   (setq sk_n->str1'((0 "零")(1 "一")(2 "二")(3 "三")(4 "四")(5 "五")(6 "六")(7 "七")(8 "八")(9 "九"))
   
5.   sk_n->str2'((1 "")(2 "十")(3 "百")(4 "千")(5 "万")(6 "十万")(7 "百万")(8 "千万")(9 "亿万")(10 "十亿")
   
6.         (11 "百亿")(12 "万亿")(13 "兆")))
   
7.   (if (< sk_n 0)(setq sk_n(abs sk_n) sk- "负"))
   
8.   (if(= sk_n 0)(setq lst2 "零")
   
9.     (progn
   
10.       (setq str(rtos sk_n 2 0) lst'() i 0 lst2 "" )
    
11.       (while (/= (setq s(substr str (setq i(1+ i)) 1)) "")
    
12.   (setq lst(cons s lst))
    
13.   )
    
14.       (setq lst(reverse lst) k (1+(length lst)))
    
15.       (while(setq a(car lst))
    
16.   (setq lst2(strcat lst2
    
17.         (cond
    
18.           ((and (= a "0") (= k 2)) "")
    
19.           ((and (= a "0") (> k 1)(= (cadr lst) "0"))(setq k(1- k)) "")
    
20.           ((and (= a "0") (> k 1)(/= (cadr lst) "0"))(setq k(1- k)) "零")
    
21.           (t (strcat(cadr(assoc (atoi a) sk_n->str1))(cadr(assoc (setq k(1- k)) sk_n->str2)))))
    
22.         ))
    
23.   (setq lst(cdr lst))
    
24.   )
    
25.       (if sk-(setq lst2(strcat sk- lst2)))
    
26.       lst2
    
27.       )
    
28.     )
    
29.   )
    
30. ;;;写文字程序
    
31. ;;;输入实数整型范围
    
32.     (defun c:tt  (/ i p k)
    
33.       (or(and (setq i(getreal "\nEnter integer number:"))(if (< i 0)(setq k t i (1+ i))(setq i(1- i))))(setq i 0))
    
34.       (if i
    
35.       (while (setq p (getpoint "\nInsert point:"))
    
36.   (entmake (list '(0 . "TEXT")
    
37.            (cons 1 (int->str (cond
    
38.              ((and (not k) (= i -1))(setq i (1+ i)))
    
39.              (k (setq i (1- i)))
    
40.              (t (setq i (1+ i))))))
    
41.            (cons 10 p)
    
42.            (cons 40 50)
    
43.      )
    
44.   )
    
45.       ))
    
46.       (princ)
    
47.     )

;;;数字转汉字by edata@mjtd<br /> ;;;数字转汉字函数(int->str sk_n) sk_n 实数整型范围<br /> (defun int->str(sk_n / sk- A I K LST LST2 S SK_N->STR1 SK_N->STR2 STR)<br />   (setq sk_n->str1'((0 "零")(1 "一")(2 "二")(3 "三")(4 "四")(5 "五")(6 "六")(7 "七")(8 "八")(9 "九"))<br />   sk_n->str2'((1 "")(2 "十")(3 "百")(4 "千")(5 "万")(6 "十万")(7 "百万")(8 "千万")(9 "亿万")(10 "十亿")<br />         (11 "百亿")(12 "万亿")(13 "兆")))<br />   (if (< sk_n 0)(setq sk_n(abs sk_n) sk- "负"))<br />   (if(= sk_n 0)(setq lst2 "零")<br />     (progn<br />       (setq str(rtos sk_n 2 0) lst'() i 0 lst2 "" )<br />       (while (/= (setq s(substr str (setq i(1+ i)) 1)) "")<br />   (setq lst(cons s lst))<br />   )<br />       (setq lst(reverse lst) k (1+(length lst)))<br />       (while(setq a(car lst))<br />   (setq lst2(strcat lst2<br />         (cond<br />           ((and (= a "0") (= k 2)) "")<br />           ((and (= a "0") (> k 1)(= (cadr lst) "0"))(setq k(1- k)) "")<br />           ((and (= a "0") (> k 1)(/= (cadr lst) "0"))(setq k(1- k)) "零")<br />           (t (strcat(cadr(assoc (atoi a) sk_n->str1))(cadr(assoc (setq k(1- k)) sk_n->str2)))))<br />         ))<br />   (setq lst(cdr lst))<br />   )<br />       (if sk-(setq lst2(strcat sk- lst2)))<br />       lst2<br />       )<br />     )<br />   )<br /> ;;;写文字程序<br /> ;;;输入实数整型范围<br />     (defun c:tt  (/ i p k)<br />       (or(and (setq i(getreal "\nEnter integer number:"))(if (< i 0)(setq k t i (1+ i))(setq i(1- i))))(setq i 0))<br />       (if i<br />       (while (setq p (getpoint "\nInsert point:"))<br />   (entmake (list '(0 . "TEXT")<br />            (cons 1 (int->str (cond<br />              ((and (not k) (= i -1))(setq i (1+ i)))<br />              (k (setq i (1- i)))<br />              (t (setq i (1+ i))))))<br />            (cons 10 p)<br />            (cons 40 50)<br />      )<br />   )<br />       ))<br />       (princ)<br />     )

lucas_3333

又来呢?请问一下，50个币是5毛还是5块?

kwok

回楼上的1块是10明经币.

土豪.

陨落

简单，为什么不自己写

ysq101

kwok 发表于 2014-5-10 12:57
回楼上的1块是10明经币.

土豪.

错。。。。10明经币等于回贴40次

ysq101

贴出自己写的给别人看看？？或许修修就可以用了

ll_j

说真的，这个问题涉及数字汉字表达习惯问题，完全解决还是稍有难度的，不是程序算法问题，所以又不能算难。
不知该怎么说，假如我回答了这个问题，得到50个明经币，又能怎样？能买一碗馄饨么？或许不能。
实际上，没有愿意回答的人在意这几个明经币，但谁都希望自己的付出是值得的。
或许，楼主应该更关心别人为什么付出，我想，真正在这里热心的朋友，其实都并不缺这几个早餐的钱。
总有讨饭的，所以我也失去了同情心，怎么说呢，我们南京就有讨饭的比我阔绰，我能怎样？
我不知怎么说才好，总之，求渔，尽我所能(实际我也没有什么所能了)，求鱼，肯定没有。

llsheng_73

再次飘过呗

llsheng_73

把你自己写的"自已写了一个，实在太差了"贴出来，如果真能的完成了你的要求
只是程序显得太差了，估计很多人都可以帮你改了而不会要你一个币