CAD VBA求直线两点之间的中点的程序出错 求助高手来帮帮我……

mouhan

. G: @% a/ K5 ]4 U
, s  }$ t( l) W# n其实我是想设置一个新的UCS
+ Y; v8 z) h3 t程序如下 坐标系的原点为ptcenter1  因为一直报错我想做两个点，为X轴和Y轴中点，结果出现报错

! t6 }. C$ k% u2 W# d7 M( K
) ?; E1 _* J6 S8 {  t7 t$ z. @
5 [! x0 }  \3 N- N我感觉是
TempPointUcsX1 = LineUcsX.StartPoint
) Q; C/ L- e4 S! m3 uTempPointUcsX2 = LineUcsX.EndPoint
4 u; i. m( |2 ^: M( k( o0 LXAxisPoint(0) = (TempPointUcsX1(0) + TempPointUcsX2(0)) / 2

5 }! c) K/ p- q1 G这里有错，这是求中点， 两个线的夹角是90度应该没错。
求助高手来帮忙看看呀 555555