QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

[求助] VBA中画圆为什么不按用户坐标系?

[复制链接]
发表于 2018-11-15 10:17:26 | 显示全部楼层 |阅读模式

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

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

x
请教一下大家,我在CAD中移动了坐标原点(用UCS命令),手动画圆输入圆心坐标它是相对我UCS为0,0原点的这没错。* p+ T1 d" L( n* x
但是用VBA画圆时,它的圆心以最初的绝对坐标来画,这是什么原因?
4 _6 L5 N  G1 E 代码如下:
2 ]1 _" b% I5 q; L# A- R- ]3 PSub Example_Center()* R( m9 ?' s% w
     Dim circObj As AcadCircle
! k% j% q8 }. f' d) ~3 N     Dim currCenterPt(0 To 2) As Double! m$ A' t  R( r/ A' j
     Dim newCenterPt(0 To 2) As Double; X. \/ v4 |, {% C4 C0 S
     Dim radius As Double+ `" d- h. f' H% i3 J
         ' Define the initial center point and radius for the circle
% W6 u- c4 u' X, z* I    currCenterPt(0) = 20: currCenterPt(1) = 30: currCenterPt(2) = 0
& R5 V# Q4 w' J: W/ W' H* a" Y! t    radius = 3  0 E% L& M) U) Q' G5 R, {6 ?3 Q
       ' Create the circle in model space4 x1 B" d7 x$ t/ V5 N+ z
     Set circObj = ThisDrawing.ModelSpace.AddCircle(currCenterPt, radius)
, K! z7 u8 k* F+ L, @  }! _     ZoomAll
( [( ^' }' h6 D: \$ ~' x* c! ~     MsgBox "The center point of the circle is " & currCenterPt(0) & ", " & currCenterPt(1) & ", " & currCenterPt(2), vbInformation, "Center 示例"( b# f$ ^# q) g9 y" Z
End Sub
发表于 2018-11-17 19:32:53 | 显示全部楼层
:$
 楼主| 发表于 2018-11-19 13:38:31 | 显示全部楼层
我只好通过计算的方法了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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