[求助]：[0909]使用者串列座标转世界座标程序是否为此呢?

xyz518mm

[求助]：[0909]使用者串列座标转世界座标程序是否为此呢?
我写了一个将使用者座标串列转世界座标串列程序
但我不知道程序函数写法是否正确
烦请各位高手帮忙解答一下~
谢谢~

(DEFUN EACOORD (ptlsp)
(SETQ COORD (mapcar '(lambda (x) (trans x 0 1)) ptlsp))
COORD
)

EXP:
(setq ptlsp '((1518.47 7419.56 0.0)
    (1498.73 7182.97 0.0)
    (2240.81 7080.44 0.0)
    (2659.22 7624.61 0.0)
    (2047.4 7802.05 0.0)
    (1392.16 7514.2 0.0)
    ))

(SETQ TTS (EACOORD ptlsp))

_$ ((-522.241 220.496 0.0) (-582.782 450.06 0.0) (-1316.41 298.443 0.0) (-1528.68 -354.342 0.0)

(-892.748 -316.895 0.0) (-371.549 173.562 0.0))