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

lucas_3333

品茗新秀 发表于 2014-5-17 21:05
这一句没看懂   (setq str(rtos sk_n 2 8) lst'() i 0 lst2 "" )

一句谢谢都没有？

品茗新秀

edata 发表于 2014-5-10 11:45
向院长致敬

测试了一下，最好再改进一下

edata

1. (defun int->str2(sk_n sk_flag / sk- A I K LST LST2 S SK_N->STR1 SK_N->STR2 STR)
   
2.   (setq sk_n->str1(list(list 0 (if sk_flag "〇" "零"))
   
3.                        (list 1 (if sk_flag "一" "壹"))
   
4.                        (list 2 (if sk_flag "二" "贰"))
   
5.                        (list 3 (if sk_flag "三" "叁"))
   
6.                        (list 4 (if sk_flag "四" "肆"))
   
7.                        (list 5 (if sk_flag "五" "伍"))
   
8.                        (list 6 (if sk_flag "六" "陆"))
   
9.                        (list 7 (if sk_flag "七" "柒"))
   
10.                        (list 8 (if sk_flag "八" "捌"))
    
11.                        (list 9 (if sk_flag "九" "玖")))
    
12.         sk_n->str2(list'(1 "")
    
13.                        (list 2 (if sk_flag "十" "拾"))
    
14.                        (list 3 (if sk_flag "百" "佰"))
    
15.                        (list 4 (if sk_flag "千" "仟"))
    
16.                        (list 5 "万")
    
17.                        (list 6 (if sk_flag "十万" "拾万"))
    
18.                        (list 7 (if sk_flag "百万" "佰万"))
    
19.                        (list 8 (if sk_flag "千万" "仟万"))
    
20.                        (list 9 "亿万")
    
21.                        (list 10 (if sk_flag "十亿" "拾亿"))
    
22.                        (list 11 (if sk_flag "百亿" "佰亿"))
    
23.                        (list 12 "万亿")
    
24.                        (list 13 "兆")))
    
25.   (if (< sk_n 0)(setq sk_n(abs sk_n) sk- "负"))
    
26.   (if(= sk_n 0)(setq lst2 "零")
    
27.     (progn
    
28.       (setq str(rtos sk_n 2 0) lst'() i 0 lst2 "" )
    
29.       (while (/= (setq s(substr str (setq i(1+ i)) 1)) "")
    
30.         (setq lst(cons s lst))
    
31.         )
    
32.       (setq lst(reverse lst) k (1+(length lst)))
    
33.       (while(setq a(car lst))
    
34.         (setq lst2(strcat lst2
    
35.                           (cond
    
36.                             ((and (= a "1")(= (length lst) 2 ))(strcat(cadr(assoc (setq k(1- k)) sk_n->str2))))
    
37.                             ((and (= a "0") (= k 2)) "")
    
38.                             ((and (= a "0") (> k 1)(= (cadr lst) "0"))(setq k(1- k)) "")
    
39.                             ((and (= a "0") (> k 1)(/= (cadr lst) "0"))(setq k(1- k)) "零")
    
40.                             (t (strcat(cadr(assoc (atoi a) sk_n->str1))(cadr(assoc (setq k(1- k)) sk_n->str2)))))
    
41.                           ))
    
42.         (setq lst(cdr lst))
    
43.         )
    
44.       (if sk-(setq lst2(strcat sk- lst2)))
    
45.       lst2
    
46.       )
    
47.     )
    
48.   )
    
49. ;;;写文字程序
    
50. ;;;输入实数整型范围
    
51.     (defun c:tt(/ i p k)
    
52.       (or(and (setq i(getreal "\nEnter integer number:"))(if (< i 0)(setq k t i (1+ i))(setq i(1- i))))(setq i 0))
    
53.       (if i
    
54.       (while (setq p (getpoint "\nInsert point:"))
    
55.         (entmake (list '(0 . "TEXT")
    
56.                        (cons 1 (int->str2 (cond
    
57.                                             ((and (not k) (= i -1))(setq i (1+ i)))
    
58.                                             (k (setq i (1- i)))
    
59.                                             (t (setq i (1+ i))))
    
60.                                  t
    
61.                                  )
    
62.                              )
    
63.                        (cons 10 p)
    
64.                        (cons 40 50)
    
65.                  )
    
66.         )
    
67.       ))
    
68.       (princ)
    
69.     )
    
70. (defun c:tt2(/ i p k)
    
71.       (or(and (setq i(getreal "\nEnter integer number:"))(if (< i 0)(setq k t i (1+ i))(setq i(1- i))))(setq i 0))
    
72.       (if i
    
73.       (while (setq p (getpoint "\nInsert point:"))
    
74.         (entmake (list '(0 . "TEXT")
    
75.                        (cons 1 (int->str2 (cond
    
76.                                             ((and (not k) (= i -1))(setq i (1+ i)))
    
77.                                             (k (setq i (1- i)))
    
78.                                             (t (setq i (1+ i))))
    
79.                                  nil
    
80.                                  )
    
81.                              )
    
82.                        (cons 10 p)
    
83.                        (cons 40 50)
    
84.                  )
    
85.         )
    
86.       ))
    
87.       (princ)
    
88.     )

(defun int->str2(sk_n sk_flag / sk- A I K LST LST2 S SK_N->STR1 SK_N->STR2 STR)<br />   (setq sk_n->str1(list(list 0 (if sk_flag "〇" "零"))<br />                        (list 1 (if sk_flag "一" "壹"))<br />                        (list 2 (if sk_flag "二" "贰"))<br />                        (list 3 (if sk_flag "三" "叁"))<br />                        (list 4 (if sk_flag "四" "肆"))<br />                        (list 5 (if sk_flag "五" "伍"))<br />                        (list 6 (if sk_flag "六" "陆"))<br />                        (list 7 (if sk_flag "七" "柒"))<br />                        (list 8 (if sk_flag "八" "捌"))<br />                        (list 9 (if sk_flag "九" "玖")))<br />         sk_n->str2(list'(1 "")<br />                        (list 2 (if sk_flag "十" "拾"))<br />                        (list 3 (if sk_flag "百" "佰"))<br />                        (list 4 (if sk_flag "千" "仟"))<br />                        (list 5 "万")<br />                        (list 6 (if sk_flag "十万" "拾万"))<br />                        (list 7 (if sk_flag "百万" "佰万"))<br />                        (list 8 (if sk_flag "千万" "仟万"))<br />                        (list 9 "亿万")<br />                        (list 10 (if sk_flag "十亿" "拾亿"))<br />                        (list 11 (if sk_flag "百亿" "佰亿"))<br />                        (list 12 "万亿")<br />                        (list 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 "1")(= (length lst) 2 ))(strcat(cadr(assoc (setq k(1- k)) sk_n->str2))))<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->str2 (cond<br />                                             ((and (not k) (= i -1))(setq i (1+ i)))<br />                                             (k (setq i (1- i)))<br />                                             (t (setq i (1+ i))))<br />                                  t<br />                                  )<br />                              )<br />                        (cons 10 p)<br />                        (cons 40 50)<br />                  )<br />         )<br />       ))<br />       (princ)<br />     )<br /> (defun c:tt2(/ 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->str2 (cond<br />                                             ((and (not k) (= i -1))(setq i (1+ i)))<br />                                             (k (setq i (1- i)))<br />                                             (t (setq i (1+ i))))<br />                                  nil<br />                                  )<br />                              )<br />                        (cons 10 p)<br />                        (cons 40 50)<br />                  )<br />         )<br />       ))<br />       (princ)<br />     )

start4444