乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 81|回复: 6

向量旋转

[复制链接]

8

主题

26

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2011-3-7 16:12:00 | 显示全部楼层 |阅读模式
如何实现将一个向量绕自身的Z轴旋转
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2011-3-7 16:22:00 | 显示全部楼层
何谓向量自身的Z轴?
回复

使用道具 举报

8

主题

26

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2011-3-7 16:27:00 | 显示全部楼层
谢谢你的反问,才明白这个问题问错了。我想想该怎么问。
回复

使用道具 举报

8

主题

26

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2011-3-7 16:30:00 | 显示全部楼层
能否从一个向量来获得坐标系,并将这个坐标系绕自身的Z轴旋转10度?
回复

使用道具 举报

84

主题

543

帖子

12

银币

中流砥柱

Rank: 25

铜币
886
发表于 2011-3-7 19:44:00 | 显示全部楼层

狐哥有发过一篇有关向量的帖,建议楼主看看...
回复

使用道具 举报

8

主题

26

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2011-3-7 22:03:00 | 显示全部楼层
下面这段代码能实现这个功能,只是不知道这样写是否合理,是我瞎掰的。
  1.      _
  2.     Public Sub t2()
  3.         Dim pt1 As New Point3d(100, 200, 300)
  4.         Dim pt2 As New Point3d(400, 600, 1100)
  5.         Dim vec As Vector3d = pt2 - pt1
  6.         Dim mt As Matrix3d = Matrix3d.PlaneToWorld(vec.GetNormal)
  7.         Dim A As Double = Math.PI / 4
  8.         Dim s As CoordinateSystem3d = ed.CurrentUserCoordinateSystem.CoordinateSystem3d
  9.         Dim x As Vector3d = mt.CoordinateSystem3d.Xaxis.RotateBy(A, mt.CoordinateSystem3d.Zaxis)
  10.         Dim y As Vector3d = mt.CoordinateSystem3d.Yaxis.RotateBy(A, mt.CoordinateSystem3d.Zaxis)
  11.         mt = Matrix3d.AlignCoordinateSystem(s.Origin, s.Xaxis, s.Yaxis, s.Zaxis, pt1, _
  12.                                          x, y, x.CrossProduct(y))
  13.         ed.CurrentUserCoordinateSystem = mt
  14.     End Sub

回复

使用道具 举报

32

主题

651

帖子

8

银币

中流砥柱

Rank: 25

铜币
779
发表于 2011-3-7 22:34:00 | 显示全部楼层
楼主说的应该是实体绕实体的Normal向量旋转吧?Normal属性应该是平面类型实体才有的
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 14:10 , Processed in 0.397763 second(s), 77 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表