2013-05-09 QQ群：ALISP＆VLISP(143438137) 聊天记录：[image={157A2A3E-199D-32DA-C3B9-DC955

CCarch · 发表于 2013-5-9 00:44:24

小蜜蜂(9034598)于2013-05-09 00-44-24：
用啊头发

CCarch · 发表于 2013-5-9 00:44:27

小蜜蜂(9034598)于2013-05-09 00-44-27：
atof

CCarch · 发表于 2013-5-9 00:44:50

张牙舞爪(13885696)于2013-05-09 00-44-50：
?

CCarch · 发表于 2013-5-9 00:45:15

小蜜蜂(9034598)于2013-05-09 00-45-15：
(atof (brtxt "拆旧地块139#")）

CCarch · 发表于 2013-5-9 00:45:42

张牙舞爪(13885696)于2013-05-09 00-45-42：
(and(< (ascii ss) 58)
(< (ascii ss) 47)
)

CCarch · 发表于 2013-5-9 00:45:45

小蜜蜂(9034598)于2013-05-09 00-45-45：
要整数就 atoi

CCarch · 发表于 2013-5-9 00:45:52

张牙舞爪(13885696)于2013-05-09 00-45-52：
这样可以不，

CCarch · 发表于 2013-5-9 00:46:34

小蜜蜂(9034598)于2013-05-09 00-46-34：
...

CCarch · 发表于 2013-5-9 00:46:41

小蜜蜂(9034598)于2013-05-09 00-46-41：
你这个and用的不对呀

CCarch · 发表于 2013-5-9 00:47:06

小蜜蜂(9034598)于2013-05-09 00-47-06：
第一句无效

CCarch · 发表于 2013-5-9 00:47:28

张牙舞爪(13885696)于2013-05-09 00-47-28：
(defun brtxt( s / n ss sss)
  (setq n 1 sss "")
  (repeat (strlen s)
(setq ss (substr s n 1))
(if(or(< (ascii ss) 58)
   (> (ascii ss) 47)
   )
   (setq sss (strcat sss ss)))
(setq n (+ 1 n))
)
  sss
  )

CCarch · 发表于 2013-5-9 00:47:41

张牙舞爪(13885696)于2013-05-09 00-47-41：
(if(or(< (ascii ss) 58)
(> (ascii ss) 47)
)

CCarch · 发表于 2013-5-9 00:47:52

小蜜蜂(9034598)于2013-05-09 00-47-52：
用and

CCarch · 发表于 2013-5-9 00:47:58

小蜜蜂(9034598)于2013-05-09 00-47-58：
小数点和负号呢？

CCarch · 发表于 2013-5-9 00:48:13

张牙舞爪(13885696)于2013-05-09 00-48-13：
可以了，

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