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)建立的坐标系如何用函数命名坐标系。