VBA中画圆为什么不按用户坐标系？

taqqug · 发表于 2018-11-15 10:17:26

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

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

x

请教一下大家，我在CAD中移动了坐标原点（用UCS命令），手动画圆输入圆心坐标它是相对我UCS为0，0原点的这没错。
但是用VBA画圆时，它的圆心以最初的绝对坐标来画，这是什么原因？
代码如下：
Sub Example_Center()
   Dim circObj As AcadCircle
   Dim currCenterPt(0 To 2) As Double
   Dim newCenterPt(0 To 2) As Double
   Dim radius As Double
      ' Define the initial center point and radius for the circle
currCenterPt(0) = 20: currCenterPt(1) = 30: currCenterPt(2) = 0
radius = 3
   ' Create the circle in model space
   Set circObj = ThisDrawing.ModelSpace.AddCircle(currCenterPt, radius)
   ZoomAll
   MsgBox "The center point of the circle is " & currCenterPt(0) & ", " & currCenterPt(1) & ", " & currCenterPt(2), vbInformation, "Center 示例"
End Sub

有卡里 · 发表于 2018-11-17 19:32:53

taqqug · 发表于 2018-11-19 13:38:31

我只好通过计算的方法了

		自动登录	找回密码
密码			注册

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

通知

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

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