cad问题 需要编程好手帮忙

请达人帮忙
遇到一棘手问题哦,在cad中算土方量的软件,一般都是将高程点形成块格式的文件后,计算土方.
比如cass的无编码格式,点号,,x,y,h
而且一些软件都支持将图上的点"点旁标注高程"(. 3.6)自动形成块格式.其中.包含地理x,y坐标值.
我碰到的问题是我的原始文件输出格式全部都是"数字加小数点加数字(3 . 6)"其中小数点表示高程点的坐标位置,一个数字分成三份散的.而我用土方软件生成块的话,
就是
x.0(数字加小数点加数字)=. x.0(高程点加标注的块) 比如6.0=.  6.0
x.y(数字加小数点加数字)=. y.0(高程点加标注的块) 比如6.1=.  1.0
十分位y不等于0就认y,y等于0就认x.
所以我只有一个个地改正.
不知道有没有能人用vba lisp arx语言辅助速度完成批量将n个x . y变成. x.y
各种方法都可以想想,反正是为了一个目的.