100% Pure Full Screen Tool for AutoCAD for mac

e2002

此 AutoLISP 源代码由 kedora编写，软件许可授权为 GPL v2。

1. ;; 100% Pure Full Screen Tool for AutoCAD for mac
   
2. ;; Coder: kedora
   
3. ;; License and Copyright: GPL v2
   
4. ;; Rev:
   
5. ;;         R0.0.1:      2020/04/23:     First version
   
6. ;;         R0.0.2:      2020/04/26:     Optimized internal routine.
   
7. 
   
8. (defun C:lkpt_ui_FullScreenSwitcher (/
   
9.                                      _lkpt_ui_FullScreenExit
   
10.                                      _lkpt_ui_fullscreen
    
11.                                     
    
12.                                      sRegLocation lKeys)
    
13. 
    
14.   (defun _lkpt_ui_FullScreenExit (sRegLocation lKeys / oldvar sKey)
    
15.     (setq oldvar (getvar "CMDECHO"))
    
16.     (setvar "CMDECHO" 0)
    
17.     (vl-cmdf "_.undo" "_be")
    
18.     (foreach sKey lKeys
    
19.       (if (= sKey "DYNMODE")
    
20.         (setvar "DYNMODE" (vl-registry-read sRegLocation sKey))
    
21.         (vl-cmdf (vl-registry-read sRegLocation sKey))
    
22.       );_fi
    
23.       (vl-registry-delete sRegLocation sKey)
    
24.     );_for
    
25.     (vl-cmdf "_.fullscreen")
    
26.     (vl-cmdf "_.undo" "_e")
    
27.     (setvar "CMDECHO" oldvar)
    
28.     (princ)
    
29.   )
    
30. 
    
31.   (defun _lkpt_ui_FullScreen (sRegLocation / lOpeningUiParts lUiParts oldvar1 oldvar2 i sItem)
    
32.     (setq lOpeningUiParts '()
    
33.           lUiParts '( ("TOOLBARSTATE" "_.toolbar" "_.toolbarclose")
    
34.                       ("FILETABSTATE" "_.filetab" "_.filetabclose")
    
35.                       ("STATUSBARSTATE" "_.statusbar" "_.statusbarclose")
    
36.                       ("COMMANDWINDOWSTATE" "_.commandline" "_.commandlinehide")
    
37.                     )
    
38.           oldvar1 (getvar "CMDECHO")
    
39.           oldvar2 (getvar "DYNMODE")
    
40.     )
    
41.     (vl-registry-write sRegLocation "DYNMODE" oldvar2)
    
42.     (setvar "CMDECHO" 0)
    
43.     (vl-cmdf "_.undo" "_be")
    
44.     (cond
    
45.       ( (= oldvar2 0) (setvar "DYNMODE" 3) )
    
46.       ( (< oldvar2 0) (setvar "DYNMODE" (abs oldvar2)) )
    
47.     );_cond
    
48.     (vl-cmdf "_.fullscreen")
    
49.     (mapcar (function (lambda (x) (if (= (getvar (car x)) 1)
    
50.                                     (progn
    
51.                                       (setq lOpeningUiParts (cons (cadr x) lOpeningUiParts))
    
52.                                       (vl-cmdf (caddr x))
    
53.                                     )
    
54.                                   );_fi
    
55.                       )
    
56.             )
    
57.             lUiParts
    
58.     );_map
    
59.     (setq lOpeningUiParts (cons "_.showpalettes" lOpeningUiParts))
    
60.     (vl-cmdf "_.hidepalettes")
    
61.     (setq i -1)
    
62.     (foreach sItem lOpeningUiParts
    
63.       (vl-registry-write sRegLocation
    
64.                          (strcat "UI_Status_" (itoa (setq i (1+ i))))
    
65.                          sItem
    
66.       )
    
67.     );_for
    
68.     (vl-cmdf "_.undo" "_e")
    
69.     (setvar "CMDECHO" oldvar1)
    
70.     (princ)
    
71.   );_defun
    
72. 
    
73.   ;;==========   main   ==========
    
74.   (setq sRegLocation "HKEY_CURRENT_USER\\Software\\Lkcadway\\LKPT")
    
75.   (if (setq lKeys (vl-registry-descendents sRegLocation "*"))
    
76.     (_lkpt_ui_FullScreenExit sRegLocation lKeys)
    
77.     (_lkpt_ui_Fullscreen sRegLocation)
    
78.   );_fi
    
79.   (princ)
    
80. );_defun

;; 100% Pure Full Screen Tool for <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> for mac<br /> ;; Coder: kedora<br /> ;; License and Copyright: GPL v2 <br /> ;; Rev:<br /> ;;         R0.0.1:      2020/04/23:     First version<br /> ;;         R0.0.2:      2020/04/26:     Optimized internal routine.<br /> <br /> (defun C:lkpt_ui_FullScreenSwitcher (/<br />                                      _lkpt_ui_FullScreenExit<br />                                      _lkpt_ui_fullscreen <br />                                      <br />                                      sRegLocation lKeys)<br /> <br />   (defun _lkpt_ui_FullScreenExit (sRegLocation lKeys / oldvar sKey)<br />     (setq oldvar (getvar "CMDECHO"))<br />     (setvar "CMDECHO" 0)<br />     (vl-cmdf "_.undo" "_be")<br />     (foreach sKey lKeys<br />       (if (= sKey "DYNMODE")<br />         (setvar "DYNMODE" (vl-registry-read sRegLocation sKey))<br />         (vl-cmdf (vl-registry-read sRegLocation sKey))<br />       );_fi<br />       (vl-registry-delete sRegLocation sKey)<br />     );_for<br />     (vl-cmdf "_.fullscreen")<br />     (vl-cmdf "_.undo" "_e")<br />     (setvar "CMDECHO" oldvar)<br />     (princ)<br />   )<br /> <br />   (defun _lkpt_ui_FullScreen (sRegLocation / lOpeningUiParts lUiParts oldvar1 oldvar2 i sItem)<br />     (setq lOpeningUiParts '()<br />           lUiParts '( ("TOOLBARSTATE" "_.toolbar" "_.toolbarclose")<br />                       ("FILETABSTATE" "_.filetab" "_.filetabclose")<br />                       ("STATUSBARSTATE" "_.statusbar" "_.statusbarclose")<br />                       ("COMMANDWINDOWSTATE" "_.commandline" "_.commandlinehide")<br />                     )<br />           oldvar1 (getvar "CMDECHO")<br />           oldvar2 (getvar "DYNMODE")<br />     )<br />     (vl-registry-write sRegLocation "DYNMODE" oldvar2)<br />     (setvar "CMDECHO" 0)<br />     (vl-cmdf "_.undo" "_be")<br />     (cond<br />       ( (= oldvar2 0) (setvar "DYNMODE" 3) )<br />       ( (< oldvar2 0) (setvar "DYNMODE" (abs oldvar2)) )<br />     );_cond<br />     (vl-cmdf "_.fullscreen")<br />     (mapcar (function (lambda (x) (if (= (getvar (car x)) 1)<br />                                     (progn<br />                                       (setq lOpeningUiParts (cons (cadr x) lOpeningUiParts))<br />                                       (vl-cmdf (caddr x))<br />                                     )<br />                                   );_fi<br />                       )<br />             )<br />             lUiParts<br />     );_map<br />     (setq lOpeningUiParts (cons "_.showpalettes" lOpeningUiParts))<br />     (vl-cmdf "_.hidepalettes")<br />     (setq i -1)<br />     (foreach sItem lOpeningUiParts<br />       (vl-registry-write sRegLocation <br />                          (strcat "UI_Status_" (itoa (setq i (1+ i))))<br />                          sItem<br />       )<br />     );_for<br />     (vl-cmdf "_.undo" "_e")<br />     (setvar "CMDECHO" oldvar1)<br />     (princ)<br />   );_defun<br /> <br />   ;;==========   main   ==========<br />   (setq sRegLocation "HKEY_CURRENT_USER\\Software\\Lkcadway\\LKPT")<br />   (if (setq lKeys (vl-registry-descendents sRegLocation "*"))<br />     (_lkpt_ui_FullScreenExit sRegLocation lKeys)<br />     (_lkpt_ui_Fullscreen sRegLocation)<br />   );_fi<br />   (princ)<br /> );_defun