TEXT文字（数字）如何变为数字！

tony911 · 发表于 2009-2-2 11:15

比如CAD里用TEXT写的“123.00”，“0.45”等，用lisp怎么样才能变为纯数字阿，因为要用这些数字进行计算？

谢谢了！

caoyin · 发表于 2009-2-2 11:34

(distof "123.00")

or

(read "123.00")

tony911 · 发表于 2009-2-2 12:16

谢谢版主，这个函数我知道，问题是我怎么样才能选取到CAD图上的TEXT文字，比如在图上某处有单行文字“121.00”，我用选择集还是用什么其他的函数阿？多谢了！

caoyin · 发表于 2009-2-2 14:12

选择集

(ssget '((0 . "text")(1 . "121.00")))

tony911 · 发表于 2009-2-3 08:35

谢谢4楼，问题解决了。

我是这样实现目的的：

首先：(setq tt (entget (car (entsel"\n请选择数字"))))；手动选择要转变的text数字，得到图元数据表

然后依据单行还是多行文字用下面语句：

(setq zb (nth 12 tt))；取出数据表中的文字表项
(setq zc (nth 10 tt))

(setq y (caddr zc)) ；取出表中数字元素

(setq tv (atof py))；类型转换

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