几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   text文字(数字)如何变为数字! (http://www.dimcax.com/hust/showthread.php?t=10702)

yang686526 2009-04-25 09:03 PM

text文字(数字)如何变为数字!
 
text文字(数字)如何变为数字!
www.dimcax.com
text文字(数字)如何变为数字!
比如cad里用text写的“123.00”,“0.45”等,用lisp怎么样才能变为纯数字阿,因为要用这些数字进行计算?
谢谢了!
d
(distof "123.00")
or
(read "123.00")
d
谢谢版主,这个函数我知道,问题是我怎么样才能选取到cad图上的text文字,比如在图上某处有单行文字“121.00”,我用选择集还是用什么其他的函数阿?多谢了!
d
选择集
(ssget '((0 . "text")(1 . "121.00")))
d
谢谢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));类型转换
d


所有的时间均为北京时间。 现在的时间是 02:13 PM.