[LISP程序]：小数点前没有数值的小数

guohq · 发表于 2007-6-3 22:20:54

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

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

×

已知data的值为"F001 3692761.9254 .0021 508218.8788 .0013"
(setq data1 (read (strcat "(" data ")"　)　)　)　　

此时会返回:ERROR: 输入中的点位置不正确*取消*
请问出现这样的错误该如何解决？？

eachy · 发表于 2007-6-4 05:44:09

_$ (distof ".3")
0.3
_$ (distof "23")
23.0
_$

guohq · 发表于 2007-6-4 06:34:21

能不能直接先将"F001 3692761.9254 .0021 508218.8788 .0013"变成"F001 3692761.9254 0.0021 508218.8788 0.0013"呢？如果能的话，就可以再通过read读取里面的内容。

zml84 · 发表于 2007-6-5 14:06:44

根据3楼的思路，函数如下：

<CENTER><H1>通用函数_字符串转换成表.lsp</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>
;;;===================================================
;|;;函数名称：STR->list
功能：通用函数，将字符串中的内容转换成表的形式
参数说明：str---欲操作的内容，类型：字符串
返回值：表
示例：(STR->LIST "F01 .1 .03")
返回：(F01 0.1 0.03)
日期：zml84 于 2007-06-05
;;|;
(defun STR->LIST (STR / I TMP STR_N)
(setq STR_N ""
I 1
)
(repeat (strlen STR)
(setq TMP (substr STR I 1))
(if (and (= TMP ".")
(or (= I 1)
(= (substr STR (1- I) 1) " ")
)
)
(setq STR_N (strcat STR_N "0."))
(setq STR_N (strcat STR_N TMP))
)
(setq I (1+ I))
)
(read (strcat "(" STR_N ")"))
) ;_结束defun
;;;===================================================
</PRE>

<CENTER><H1>通用函数_字符串转换成表.lsp</H1></CENTER> 
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified) 
</SCRIPT> 
<HR SIZE=5><PRE> 
;;;=================================================== 
;|;;函数名称：STR-&gt;list                               
        功能：通用函数，将字符串中的内容转换成表的形式 
    参数说明：str---欲操作的内容，类型：字符串         
      返回值：表                                       
        示例：(STR-&gt;LIST "F01 .1 .03")                
              返回：(F01 0.1 0.03)                     
        日期：zml84 于 2007-06-05                      
;;|; 
(defun STR->LIST (STR / I TMP STR_N) 
    (setq STR_N        "" 
          I 1 
    ) 
    (repeat (strlen STR) 
        (setq TMP (substr STR I 1)) 
        (if (and (= TMP ".") 
                 (or (= I 1) 
                     (= (substr STR (1- I) 1) " ") 
                 ) 
            ) 
            (setq STR_N (strcat STR_N "0.")) 
            (setq STR_N (strcat STR_N TMP)) 
        ) 
        (setq I (1+ I)) 
    ) 
    (read (strcat "(" STR_N ")")) 
) ;_结束defun 
;;;=================================================== 
 
</PRE>

guohq · 发表于 2007-6-5 23:41:34

谢谢

carrot1983 · 发表于 2007-6-6 08:49:27

试了一下。
[php]
(setq str "F001 3692761.9254 .0021 508218.8788 .0013")
(STR->LIST str)
;;;结果：(F001 3.69276e+006 0.0021 508219.0 0.0013)
[/php]
这里面有三种：
1.没有小数
2.整数+点+小数
3.点+小数
这里可是偏差不是很大。。。看楼主的用途了。精确到几位罢了。。

雨箭风刀 · 发表于 2007-6-9 09:39:09

(setq st "F001 3692761.9254 .0021 508218.8788 .0013"
   a " ."
   b " 0.")
(while (vl-string-search a st)
  (setq st (vl-string-subst b a st))
)
(read (strcat "(" st ")"))
)

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

[LISP程序]：小数点前没有数值的小数

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

相关帖子