社区 › AutoLISP/Visual LISP 编程技术 › [求助]怎样用VLISP保存和恢复UCS设置？

小菜123 发表于 2006-10-10 10:04:00

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

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

yoyoho 发表于 2023-9-6 09:15:05

同样：(command "ucs" "s" "saved_ucs")或(command "ucs" "s" "saved_ucs" “Y”)用VLISP怎样实现呢？
(setqAcDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setqUCS (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"
      )
)

查看完整版本: [求助]怎样用VLISP保存和恢复UCS设置？