新手求助：关于wcs 系统变量

xiaohuayuan

大虾们，如何用lisp取得当前cad中所有保存过的用户坐标系的名称

nzl1116

2. (defun GetEUCSs ()
   
3.   (defun func (/ Var)
   
4.     (if        (setq Var (tblnext "UCS"))
   
5.       (cons (cdr (assoc 2 Var)) (func))
   
6.     )
   
7.   )
   
8.   (cons (cdr (assoc 2 (tblnext "UCS" T))) (func))
   
9. )

(defun GetEUCSs ()<br />   (defun func (/ Var)<br />     (if        (setq Var (tblnext "UCS"))<br />       (cons (cdr (assoc 2 Var)) (func))<br />     )<br />   )<br />   (cons (cdr (assoc 2 (tblnext "UCS" T))) (func))<br /> )