数字转汉字(支持整数和小数)

langjs

好久没写程序了，看到群里有个数字转汉字的函数但只支持整数，觉得好玩，就写了一个支持整数和小数的函数
;;; -----------------------------------
;;; 数字转汉字    (支持整数和小数)
;;; 示例：(numtostr 30280030.6007)
;;; 返回:三千零二十八万零三十点六零零七
;;;                          by：langjs
;;; -----------------------------------
(defun numtostr (num / i j lst1 lst2 lst3 lst4 num p st str)
  (setq lst1 (list "" "十" "百" "千")
        lst2 (list '("0" "零") '("1" "一") '("2" "二") '("3" "三") ' ("4" "四")
                   '("5" "五") '("6" "六") '("7" "七") '("8" "八") '("9" "九")
             )
        num (rtos num 2 16) lst3 '() lst4 '() i -1 P nil
  )
  (repeat (strlen num)
    (setq i (1+ i)  str (substr num (- (strlen num) i) 1)   )
    (if p (setq lst4 (cons str lst4)) (if (= str ".")(setq P "Y")(setq lst3 (cons str lst3))))
  )
  (setq lst3 (reverse lst3) lst4 (reverse lst4)        i -1 j -1 st ""        P nil )
  (repeat (length lst3)
    (setq i (1+ i) j (1+ j) str (nth i lst3) )
    (if (/= str "0") (setq P "Y") )
    (if p (setq st (strcat (cadr (assoc str lst2)) st)))
  )
  (if (/= st "") (setq st (strcat "点" st)))
  (setq P nil i -1 j -1 )
  (repeat (length lst4)
    (setq i (1+ i)  j (1+ j)  str (nth i lst4)   )
    (if (= (rem i 8) 4) (setq st (strcat "万" st)) )
    (if (and (= (rem i 8) 0) (/= i 0))(setq st (strcat "亿" st)))
    (if (/= str "0") (setq P "Y"))
    (if p
      (if (not (and (= "0" str)(> i 1) (= "0" (nth (1- i) lst4))))
        (setq st (strcat (cadr (assoc str lst2)) (if (/= str "0") (nth j lst1) "" ) st))
      )
    )
    (if (= j 3)  (setq j -1  P nil  ) )
  )
  (if (= "点" (substr st 1 2)) (setq st (strcat "零" st)))
  st
)

USER2128

梦里水香 发表于 2017-10-21 12:37
我的系统变量dimzin也是8

功能及参数

    此函数将依据所给定的 mode、precision、AutoCAD 的UNITMODE 系统变量及DIMZIN尺寸变量来返回一字符串以表示 number。mode 与precision是整型数, 表示所选择的线性单位模式和精确度。AutoCAD 中所提供的mode 值如下:

RTOS 模式
编辑格式

1
科学记数 (Scientific)

2
十进制 (Decimal)

3
工程 (尺和十进位寸) (Engineering)

4
建筑 (尺和分数寸) (Architectural)

5
任意的分数单位 (Fractional)


    mode和precision参数值将分别与AutoCAD中的系统变量LUNITS和UPREC的值一致。假如您省略这些参数, 此函数将会使用目前的LUNITS与LUPR-EC值。当您选择Engineering、Architectural或Fractional等单位(即mode值为3、4或5)时, UNITMODE变量将影响所返回的字符串。

范例

例如, 我们设定 DIMZIN=0。则：   

语法范例
UNITMODE=0的返回值
UNITMODE=1的返回值

(rtos 17.5 1 4)
"1.7500E+01"
"1.7500E+01"

(rtos 17.5 2 2)
"17.50"
"17.50"

(rtos 17.5 3 2)
"1'-5.50""
"1'5.50""

(rtos 17.5 4 2)
"1'-5 1/2""
"1'5-1/2""

(rtos 17.5 5 2)
"17 1/2"
"17-1/2"

sandyvs

ynhh 发表于 2021-1-4 20:48
(numtostr 1.234) = "一点二三三九九九九九九九九九九九九"
(numtostr 123) = "零点一二三"
还是有点问 ...

(numtostr 123) = "零点一二三"  8楼说了解决方法，
(numtostr 1.234) = "一点二三三九九九九九九九九九九九九"，将(rtos num 2 16)改成(rtos num 2 15)可以，但我不知道有什么影响，我记得之前学习，点好像也占一位

USER2128

梦里水香 发表于 2017-10-20 08:47
(numtostr 0.1)
"点一"

程序没有问题的，是因你的系统变量中去掉了头部"0"造成的，
意思是：(rtos 0.1 2 16) 转成了".1" 而非正常的"0.1"

梦里水香

(numtostr 123)
"点一二三"

fsafaffa

楼主真会玩，顶一个

yoyoho

梦里水香 发表于 2017-10-17 13:41
(numtostr 123)
"点一二三"

试试!真的是这样喔!

cnks

开源的都是铁粉

Rimford

昨天又拜读了一遍您的动态轴侧图工具栏,仰慕阿

pxt2001

顶郎大师，从来都是源码。高人，好人。

USER2128

在(setq lst3 (reverse lst3) ... 行前加入:
(if (not Lst4) (setq Lst4 Lst3 Lst3 nil))
可解决(numtostr 123)的问题

liunian0524

感谢大师分享

F4164789

竟然还能这样玩，天哪