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

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

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

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

<p>(distof "123.00")</p><p>or</p><p>(read "123.00")</p><p></p>

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

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

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

<p>选择集</p><p>(ssget '((0 . "text")(1 . "121.00")))</p>

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

<p>谢谢4楼，问题解决了。</p><p>我是这样实现目的的：</p><p>首先：(setq tt (entget (car (entsel"\n请选择数字"))))；手动选择要转变的text数字，得到图元数据表</p><p>然后依据单行还是多行文字用下面语句：</p><p>(setq zb (nth 12 tt))；取出数据表中的文字表项<br/>(setq zc (nth 10 tt))</p><p>(setq y (caddr zc)) ；取出表中数字元素</p><p>(setq tv (atof py))；类型转换</p><p></p>
页: [1]
查看完整版本: TEXT文字（数字）如何变为数字！