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

taqqug

请教一下大家，我在CAD中移动了坐标原点（用UCS命令），手动画圆输入圆心坐标它是相对我UCS为0，0原点的这没错。
但是用VBA画圆时，它的圆心以最初的绝对坐标来画，这是什么原因？
代码如下：
8 y0 L: ^( D  p& USub Example_Center()
     Dim circObj As AcadCircle
     Dim currCenterPt(0 To 2) As Double
3 K% u3 `  T1 W* u. t/ I. w- y7 r; h     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
# X" D" ]/ `/ ?3 V; ~8 T3 c    radius = 3  
/ U; T+ ^5 y1 p       ' Create the circle in model space
     Set circObj = ThisDrawing.ModelSpace.AddCircle(currCenterPt, radius)
2 G6 f2 p' l4 i6 A/ B) y5 d5 `4 E     ZoomAll
/ y  X4 u) V! N- f0 L$ a; q. i0 q     MsgBox "The center point of the circle is " & currCenterPt(0) & ", " & currCenterPt(1) & ", " & currCenterPt(2), vbInformation, "Center 示例"
End Sub

有卡里

:$

taqqug

我只好通过计算的方法了