长风（尚品） 发表于 2020-12-16 16:51:39

求改代码

(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)
)
命令无法使用，不知道是哪里出了问题，求解

菜卷鱼 发表于 2020-12-16 18:51:58

CAD 版本多少

muwind 发表于 2020-12-16 20:54:56

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

nyistjz 发表于 2020-12-18 09:52:29

(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)
)
页: [1]
查看完整版本: 求改代码