[求助]：如何用lisp(vlisp)实现点(点集)的平移和旋转变换？

liuyj · 发表于 2006-8-22 19:34:44

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

×

xd-api里有这样的功能，但在ucs下似乎有问题，而且它已经停止开发，不能老依赖着。

fsxm · 发表于 2006-8-22 21:00:12

好像lisp中的trans函数就用这个功能了吧???难道还要写什么别的吗?

liuyj · 发表于 2006-8-22 21:11:03

显然没理解我的意思，建议先看看xd-api中这两个函数的说明。不是从ucs转到wcs，是旋转变换，点集在旋转后的新位置。

fsxm · 发表于 2006-8-22 21:45:01

sorry!因为我很少用CAD工作~编程只是爱好权当开发智力之用
~所以我从来没下过xd-api~
只要你能构造合适的ucs转到wcs ->旋转变换也就搞定了
当然用纯几何算法也是可以的~加油~~!~!!

eachy · 发表于 2006-8-22 22:29:11

点集平移就是 (mapcar '(lambda (x) (mapcar '+ v x)) pts)
点集旋转首先要有基点，然后对每个点绕基点 polar 角度就是点集旋转

建议你看看关于向量的一些概念

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

[求助] [求助]：如何用lisp(vlisp)实现点(点集)的平移和旋转变换？