vla-add函数建立UCS不稳定/command函数建立UCS如何用函数进行命名

（1）我用(vla-add Object origin Xaxispoint Yaxispoint Name)函数建立的坐标系，使用时很不稳定，有时会出现UCS X 轴与 Y 轴不垂直，比如下面的代码：
(defun c:myucs1()
(vl-load-com)
(setq myObj (VLAX-Get-ACAD-Object)
mydoc (VLA-Get-ActiveDocument myObj)
UCSSel(vla-get-UserCoordinateSystems mydoc)
)
(setq pto (getpoint "\n请指定原点:"))
(setq ptx (getpoint pto "\n请指定正X轴上一点:"))
(setq anglex (angle pto ptx))
(setq pty (polar pto (+ anglex (* pi 0.5)) 1))
(setq myucs (vla-add
UCSSel
(vlax-3d-point (trans pto 0 1))
(vlax-3d-point (trans ptx 0 1))
(vlax-3d-point (trans pty 0 1))
"myucs"
)
)
(vla-put-activeucs mydoc myucs)
)
不知道是不是浮点运算误差引起的，那么有什么方法消除吗；
（2）同样在使用(vla-put-XVector Object value)或(vla-put-XVector Object value)仅改变ucs坐标系X或Y方向也同样会出现类似情况；
（3）另外不使用vla函数直接用(command "_ucs" "3" pto ptx pty)建立的坐标系如何用函数命名坐标系。