QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
查看: 1402|回复: 1
收起左侧

[求助] 用VBA怎么提取所选对象相对某点的坐标?

[复制链接]
发表于 2018-11-14 13:13:59 | 显示全部楼层 |阅读模式

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
请教大家,用VBA怎么提取所选对象相对到某点的坐标?
! \/ I* z1 b; ^/ x9 _3 w 逻辑过程如下:
0 _, F2 L& e2 j' y$ I1.先框选要提取的对象(都是圆);! Y/ B" Q8 s# }  c8 t! \. U5 \8 T
2.选取一个点为坐标原点;6 O4 |& F( X4 k( R6 m( X+ q
3.提取1中所有的圆心坐标(相对于2中选的点的坐标)。; r, H+ Q% [$ y  n5 f! @  W5 W) d1 _6 L
* b. F: U2 q, d8 A4 S* V5 d6 D2 c+ p/ g
我用UCS手动移动坐标到了某点,然后查看快捷特性圆心坐标确实更新了,但在VBA中用圆.center属性得到的圆心坐标还是老的。, _. V2 j& t$ P0 Z0 R% I3 i* }+ t
请老师们能给段代码,谢谢!
 楼主| 发表于 2018-11-19 13:39:27 | 显示全部楼层
只好通过计算的方法了得到了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备13008828号-1 )

快速回复 返回顶部 返回列表