[讨论]：谁有转换点列表(wcs--->ucs)的函数

lzy9788 · 发表于 2004-9-1 14:19:24

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

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

×

谁有将点列表由wcs点列表转换到ucs列表的函数。

aidraft · 发表于 2004-9-1 15:05:49

Try this...
[php]
;Joe Burke - trans points WCS to UCS
;argument: a point or point list
(defun WCS2UCS  (pts / res)
  (if (atom (car pts))
(setq pts (list pts)))
  (setq res
      (mapcar '(lambda (x) (trans x 0 1)) pts))
  (if (= 1 (length res))
(car res)
res)
  )[/php]

lsjjm · 发表于 2004-9-1 15:43:25

(mapcar '(lambda (x) (trans x 0 1)) pts) 就行了.

账号		自动登录	找回密码
密码			立即注册

[讨论]：谁有转换点列表(wcs--->ucs)的函数

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

相关帖子