[求助]怎样用VLISP保存和恢复UCS设置？

小菜123

(command "UCS" "R" "saved_ucs")可以用下面的程序段实现：
(setq acaddoc (vla-get-activedocument (vlax-get-acad-object)))
(setq ucs1 (vla-get-usercoordinatesystems acaddoc))
(setq actucs (vla-item ucs1 "saved_ucs"))
(vla-put-activeucs acaddoc actucs)
同样：(command "ucs" "s" "saved_ucs")或(command "ucs" "s" "saved_ucs" “Y”)用VLISP怎样实现呢？

yoyoho

同样：(command "ucs" "s" "saved_ucs")或(command "ucs" "s" "saved_ucs" “Y”)用VLISP怎样实现呢？
(setq  AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq  UCS (vla-get-UserCoordinateSystems AcDoc)
       save_ucs
       (vla-add UCS
         (vlax-3d-point '(0.0 0.0 0.0))
         (vlax-3d-point (getvar "UCSXDIR"))
         (vlax-3d-point (getvar "UCSYDIR"))
         "saved_ucs"
      )
)