乐筑天下

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

acDisplayDCS矩阵

[复制链接]

69

主题

875

帖子

15

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1146
发表于 2006-9-6 01:06:04 | 显示全部楼层
不错
围绕矢量旋转的最简单方法是移动ucs,使矢量为z轴(旋转轴),它不'不管x和y指向哪个方向,只要它们#039;re仍然是正交的,因为您仅围绕z轴旋转给定量。
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-9-10 13:13:37 | 显示全部楼层
要使用这个矩阵,我仍然需要找到一些幻数
我认为它与acad帮助中提到的3d视图的中心有关。
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-9-10 16:18:23 | 显示全部楼层
这是一个混淆I#039;我有
运行此子命令,然后运行3dorbit命令
目的是找到三维轨道的中心;这在一段时间内效果很好
再次运行,然后'这不好
  1. Sub OrbitCenter()
  2.     Dim C, T, O, P As AcadPoint
  3.     Dim Util As AcadUtility
  4.    
  5.     Set Util = ThisDrawing.Utility
  6.     ThisDrawing.SetVariable "PDSIZE", 0.5
  7.     ThisDrawing.SetVariable "PDMODE", 35
  8.     C = ThisDrawing.GetVariable("viewctr")
  9.     C = Util.TranslateCoordinates(C, acUCS, acWorld, 0)
  10.    
  11.     T = ThisDrawing.GetVariable("target")
  12.     T = Util.TranslateCoordinates(T, acUCS, acWorld, 0)
  13.    
  14.     Set P = ThisDrawing.ModelSpace.AddPoint(C)
  15.     P.color = acGreen
  16.     Set P = ThisDrawing.ModelSpace.AddPoint(T)
  17.     Dim dMid(2) As Double
  18.     dMid(0) = (C(0) + T(0)) / 2
  19.     dMid(1) = (C(1) + T(1)) / 2
  20.     dMid(2) = (C(2) + T(2)) / 2
  21.    
  22.     Set P = ThisDrawing.ModelSpace.AddPoint(dMid)
  23.     P.color = acYellow
  24.     ThisDrawing.ModelSpace.AddLine C, T
  25. End Sub
在新图形中,目标getvar为0,0,0,键入摄像机,命令:ca摄像机指定新摄像机位置<6.0000,4.8571,18.3799>:&nbsp
指定新的摄像机目标(<6.0000,4.8571,0.0000>: 再生模型
自I'm在英寸dwg中,x和y值是;极限(12,9)(我假设实际数随分辨率而变化)
新的目标值似乎从旧的z值开始,并取屏幕中心x和y。但是18.3799来自哪里
回复

使用道具 举报

69

主题

875

帖子

15

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1146
发表于 2006-9-10 18:23:38 | 显示全部楼层
是的,那'这很难。当使用内部函数进行放大、缩小和平移时,视图目标可能会发生变换,因此实际上,除非您要求或将其交给您的函数(可能通过将其作为几何体的边界框的中心),否则您永远不会知道目标将在何处。请注意,在使用鼠标滚轮缩放和移动鼠标时,它也会平移,从而有效地移动目标
也就是说,我认为目标会随着相机移动,除非你在缩放,然后将目标移开;这是一个棘手的问题,没有看到它如何滴答作响。也许值得一看,看看这是不是真的发生了什么
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-9-10 18:56:23 | 显示全部楼层
本人'我一直在寻找p>
回复

使用道具 举报

69

主题

875

帖子

15

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1146
发表于 2006-9-10 20:23:17 | 显示全部楼层
本人'我一直在寻找摄像机命令中目标的关系。在vba中,没有摄像机,但有一个目标不随更新;平移或缩放
如您所知,camera命令中的目标确实会更新
到目前为止,z值似乎是viewsize的0.52855倍,我还没有将其与扭曲视图联系起来。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-6 13:03 , Processed in 1.555333 second(s), 62 queries .

© 2020-2025 乐筑天下

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