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

taqqug

请教一下大家，我在CAD中移动了坐标原点（用UCS命令），手动画圆输入圆心坐标它是相对我UCS为0，0原点的这没错。
5 G( L% A% z) v, ^7 N, b, s 但是用VBA画圆时，它的圆心以最初的绝对坐标来画，这是什么原因？
  \) U4 l! ^# O 代码如下：
Sub Example_Center()
     Dim circObj As AcadCircle
     Dim currCenterPt(0 To 2) As Double
     Dim newCenterPt(0 To 2) As Double
" z8 \4 ^* a/ r  ^4 `6 s     Dim radius As Double
) Z4 F3 A* i$ v2 Q9 t2 S         ' Define the initial center point and radius for the circle
' y: j+ x! y7 L8 ?4 q$ R  X    currCenterPt(0) = 20: currCenterPt(1) = 30: currCenterPt(2) = 0
% \4 i& o6 @4 q    radius = 3  
8 _1 b; Q1 R( I: U       ' Create the circle in model space
" _" [4 W/ \% n0 h6 \7 v+ G     Set circObj = ThisDrawing.ModelSpace.AddCircle(currCenterPt, radius)
     ZoomAll
     MsgBox "The center point of the circle is " & currCenterPt(0) & ", " & currCenterPt(1) & ", " & currCenterPt(2), vbInformation, "Center 示例"
6 f0 ~' L- {% P! D4 ~) BEnd Sub

有卡里

:$

taqqug

我只好通过计算的方法了