[討論]繪圖前儲存變數值於繪圖完成後復原的副程式

很方便的副程式
書上的範例
也可依主程式需求修改擴充
程式碼:
(defun s_acad_sysvar()
(setq acad_sysvar_list '("clayer" "osmode" "textstyle" "cmdecho" "celtype"))
(setq old_sysvar_list (mapcar 'getvar acad_sysvar_list))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "undo" "be")
)
(defun r_acad_sysvar()
(command "undo" "e")
(mapcar 'setvar acad_sysvar_list old_sysvar_list)
(prin1)
)

以前學習到的方式為：

代碼:

(DEFUN STARTLISP ()
  (SETVAR "CMDECHO" 0)
  (COMMAND "UNDO" "BE")
  (SETQ OLDOSMODE (GETVAR "OSMODE"))
  (SETQ OLDLAYEAR (GETVAR "CLAYER"))
  (SETVAR "OSMODE" 0)
)

(DEFUN ENDLISP ()
  (SETVAR "OSMODE" OLDOSMODE)
  (SETVAR "CLAYER" OLDLAYEAR)
  (COMMAND "UNDO" "E")
  (PRIN1)
)

謝謝分享，這裡學習了MAPCAR函數的使用～