(setvar "taskbar" 1)→AutoCAD 变量设置被拒绝: "taskbar" 1

arcers

命令行执行：(setvar "taskbar" 1)
命令行提示：AutoCAD 变量设置被拒绝: "taskbar" 1

为什么被拒绝？

wen1235

;;; 方法3 改一下 没问题的
(setq ztl 0)
(defun c:test () (if (= ztl 0) (progn (command "taskbar" "1")(setq ztl 1))(progn (command "taskbar" "0")(setq ztl 0))))

永不言弃

(command "taskbar" "1")

arcers

永不言弃 发表于 2019-5-3 17:24
(command "taskbar" "1")

;;; 状态栏图标循环切换



;;; 方法1
(defun c:tbqh()(if (= (getvar "taskbar") 0) (setvar "taskbar" 1) ((setvar "taskbar" 0)) )

;;; 方法2
(defun c:tbqh()(if (= (getvar "taskbar") 0) (command "taskbar" "1") (command "taskbar" "0")) )

;;; 方法3
(setq ztl 0)
(defun c:tbqh()(if (= ztl 0) ((command "taskbar" "1")(setq ztl 1))( (command "taskbar" "0")(setq ztl 0))))

;;; 方法4
(setq ztl 0)
(defun c:tb1()(command "taskbar" "1")(setq ztl 1))
(defun c:tb0()(command "taskbar" "0")(setq ztl 0))
(defun c:tbqh()(if (= ztl 0) (c:tb1)( c:tb0)))



方法1，命令行提示：AutoCAD 变量设置被拒绝: "taskbar" 1
方法2，仅执行 (command "taskbar" "1")，不执行 (command "taskbar" "0")
方法3，实现状态栏图标循环切换，命令行提示：no function definition: nil
方法4，实现状态栏图标循环切换，命令行不提示异常；但方法比较笨，怎么简化？

永不言弃

1. (defun c:tt()
   
2.   (setvar "CMDECHO" 1)
   
3.   (command "taskbar" "")
   
4.   (setq str (getvar "lastprompt"))
   
5.   (if (= (getvar "lastprompt") "输入 TaskBar 的新值 <1>:" )
   
6.     (command "taskbar" "0")
   
7.     (command "taskbar" "1")
   
8.     )
   
9.   )

(defun c:tt()<br />   (setvar "CMDECHO" 1)<br />   (command "taskbar" "")<br />   (setq str (getvar "lastprompt"))<br />   (if (= (getvar "lastprompt") "输入 TaskBar 的新值 <1>:" )<br />     (command "taskbar" "0")<br />     (command "taskbar" "1")<br />     )<br />   )

arcers

永不言弃 发表于 2019-5-4 16:25

好像不行！

e2002

这个确实很特殊，从诞生到现在都是这样。