[求助]：'(1.0 2 3.33 4)变'("1.0" "2" "3.33" "

dhxf · 发表于 2007-12-22 22:03:38

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

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

×

'(1.0 2 3.33 4)怎样变成'("1.0" "2" "3.33" "4")

trystudy · 发表于 2007-12-22 22:15:17

最初由 dhxf 发布
[B]'(1.0 2 3.33 4)怎样变成'("1.0" "2" "3.33" "4") [/B]

数值转字符串

   (RTOS 数值参数 [模式 [小数字] ] )

   e.g.    (RTOS 17.23333 2 3)
Result : 12.266

若不设定模式,则依系统变量 LUNITS 的设定值转换数值为字符串

若不设定小数字,则依系统变量 LUPREC 的设定值转换

模式设定值可以是下列数值之一 :

      1 = 科学记号

      2 = 十进制

      3 = 英呎及十进制英吋

      4 = 英呎及分数位英吋

      5 = 分数

当选用的模式为3,4或5,则传回的字符串受系统变量UNITMODE影响

yy5heng · 发表于 2007-12-22 22:22:58

可以用rtos函数实现。
小数点后为0的可能要单独处理。

dhxf · 发表于 2007-12-22 22:27:28

(mapcar '(lambda (x)(rtos x 2 2)) '(1.0 2 3.33 4))
;;;;;运行
("1" "2" "3.33" "4")

xxsheng · 发表于 2007-12-24 09:31:18

(mapcar 'vl-prin1-to-string '(1.0 2 3.33 4))

carrot1983 · 发表于 2007-12-24 12:37:34

还真没想到。。。
呵呵。楼上的惊醒梦中人啊！

dhxf · 发表于 2007-12-25 13:35:05

十分之感谢

dhxf · 发表于 2007-12-25 13:41:22

十分之感谢

yitian519 · 发表于 2008-1-5 17:01:15

(mapcar 'vl-prin1-to-string '(1.0 2 3.33 4))

kohi · 发表于 2008-1-6 04:54:56

引伸一下, 如果表内元素也有字符串, 并小数点后位数不定, 可以这样:
[PHP]
(setq a '(1.0 2 "3.33" 4 5.678))
(mapcar 'vl-princ-to-string a)
[/PHP]

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：'(1.0 2 3.33 4)变'("1.0" "2" "3.33" "

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

相关帖子

Re: [求助]：'(1.0 2 3.33 4)变'("1.0" "2" "3.33" "