求改代码

长风（尚品）

(defun C:1ee();本变量必须为全局变量
        (setvar "cmdecho" 0)
        (if (= (getvar "tilemode") 1)(setvar "tilemode" 0));去布局
        (if (/= vpviewportvar 0)
                (progn(command-s "VPMIN")(setq vpviewportvar 0))
                (progn(command-s "VPMAX")(setq vpviewportvar 1))
        )
        (setvar "cmdecho" 1)
        (princ)
)
命令无法使用，不知道是哪里出了问题，求解

菜卷鱼

CAD 版本多少

muwind

cad 2012及以上才有 command-s，cad2012以下用command

nyistjz

(defun C:1ee();本变量必须为全局变量
        (princ "-->缓存视窗最大化开关")
        (setvar "cmdecho" 0)
        (if (= (getvar "tilemode") 1)(setvar "tilemode" 0));去布局
        (if (/= vpviewportvar 0)
                (progn(vl-cmdf "VPMIN")(setq vpviewportvar 0))
                (progn(vl-cmdf "VPMAX")(setq vpviewportvar 1))
        )
        (setvar "cmdecho" 1)
        (princ)
)