- 积分
- 6939
- 明经币
- 个
- 注册时间
- 2004-4-9
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|

楼主 |
发表于 2014-10-4 18:04:03
|
显示全部楼层
xyp1964 发表于 2014-10-4 17:10 
(setq ppp '(38344898.96 3292129.44 0.))
谢谢你的回复!我用VB写的数据格式化后等于0的数据就变成这样了,即:format(h,"*0.00")后的样子,用lisp读数据是这样的:
(defun DSJ(PB)
(setq PB (vl-string-translate "," " " PB))
(setq PB (read (strcat "(" PB ")")))
)
则报错!
我改了一下:
(defun DSJ(PB)
(setq PB (vl-string-translate ",.00" " 0.0" PB))
(setq PB (vl-string-translate "," " " PB))
(setq PB (read (strcat "(" PB ")")))
)
但这样后图形变得不正常,原来插入属性块显示属性文字的不显示了,没办法,只有用字处理软件查找替换成0.00才行。不知道在
Lisp里还有什么办法。 |
|