Question

autolisp中getpoint函数的问题

我想用getpoint函数得到几个点的坐标但是，得到的结果只保留到小数点后一位，而且还是用科学计数法表示的，请问怎样才能得到点的4位坐标呢？
如图：

J1点的坐标应该为 X = 634893.0665 Y = 9973348.1579
而我代码： (setq a1 (getpoint "\n 选取第一个点坐标" ))
得到的坐标是(634893.0 9.97335e+006 0.0)
我想得到的结果是 （634893.0665 9973348.1579 0）
请问应该怎么做？
另外，用lisp语言怎么能实现矩阵运算？

Answer 1

在程序开始的时候，加一句话：
(setvar "dimzin" 0);这样就可以保留小数点后的数据
把坐标转换为字串符：
(setq x1 (car &p1));取得X坐标
(setq x1 (rtos x1 2 4));转换为字串符，保留小数点后4位就可以实现你的数据
矩阵计算的话，还不懂。