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

[复制链接]

xyz518mm

发表于 2006-9-9 16:56:12 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

[求助]：[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))

座标, 串列, 0.0