用户坐标系统UCS绕世界坐标系统的Z轴旋转-90度

zzl9105

如题：用户坐标系统UCS绕世界坐标系统的Z轴旋转-90度，如何定义它，可以得到，表达式怎么写？
谢谢

zzl9105

主函数调用子函数，主函数这样调用它：(setq ptb (Q-UCS-PT_LIST ptb))
ptb为点坐标表集，是多个点坐标的集合。
子函数格式按下面写法：子函数功能是 转换wcs下的坐标点集ptb到ucs下的坐标点集pt_list，UCS坐标系统是WCS绕Z轴旋转90度。

(defun Q-UCS-PT_LIST (/ pt_list)
       (if (ssget '((0 . "TEXT")(8 . "旋转90度")))
           (progn
                (command "ucs"  "z" 90)
                (setq pt_list  nil)                     ;先定义为空集
                (foreach pt ptb
                     (setq pt_list (cons pt_list '(trans pt 0 1)))      
                )

                (setq Xmin (car (car pt_list)))
                (setq Ymin (cadr (car pt_list)))
                (foreach pt ptb
                     (if (>= Xmin (car pt)) (setq Xmin (car pt)))
                     (if (>= Ymin (cadr pt)) (setq Ymin (cadr pt)))
                )
                (command "ucs"  " ")
                pt_list
            )
        )
)

调用没有成功，不知道是子函数没有写成功，还是主函数调用子函数的格式不对，
请高手指点，谢谢！