大虾们，帮我看看这个程序为什么会有问题？

tukuitk · 发表于 2003-10-14 15:56:00

(if (not var2) (setq var2 (getvar "dimsd2")))
(if (not var3) (setq var3 (getvar "dimse2")))
(if (not errtmp) (setq errtmp *error*))
(defun err (msg)
  (setq *error* errtmp)
  (setvar "dimsd2" var2)
  (setvar "dimse2" var3)
  (princ)
)

;;;
(defun c:db (/ var2 var3)
  (setvar "cmdecho" 0)
  (setvar "dimsd2" 1)
  (setvar "dimse2" 1)
  (setq *error* err)
  (initget 1 "L A")
  (setq a (getkword "\n线性标注(L)/对齐标注(A): "))
  (cond ((= a "L")
   (princ "\n")
   (command "dimlinear" pause pause pause)
)
((= a "A")
   (princ "\n")
   (command "dimaligned" pause pause pause)
)
  )
  (setvar "dimsd2" var2)
  (setvar "dimse2" var3)
  (setq *error* errtmp)
  (princ)
)

meflying · 发表于 2003-10-14 16:00:00

既然VAR2 VAR3在开始就作为全局变量来用，DB命令函数中就不应该将它定义为局部变量。

先说说你的问题吧，我没调试

tukuitk · 发表于 2003-10-14 16:00:00

meflying大哥，我照你的程序来用*error*函数，但为什么有错？？？

tukuitk · 发表于 2003-10-14 16:01:00

错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "dimsd2" nil

tukuitk · 发表于 2003-10-14 16:05:00

meflying兄，你编的那个画垂直、平行、角平分线程序中，*error*函数像这样用都没问题，这里为啥就有呢？？？

meflying · 发表于 2003-10-14 16:09:00

一看就明白了，这里不是*error*函数出问题，而是(setvar "dimsd2...)出问题，这个变量是不能这个设置的，它是只读的

tukuitk · 发表于 2003-10-14 16:13:00

我把它们两个取消局部变量性质了，但有如下错误：
错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "dimsd2" 13

tukuitk · 发表于 2003-10-14 16:18:00

这是系统提示的错误信息。
那该怎样弄呢？

meflying · 发表于 2003-10-14 16:21:00

什么该怎么弄？你都没说要干什么，这两个变量是不能这样设置的。你把所有的(setvar "dimsd1"...)都去掉，程序就不会出错了

tukuitk · 发表于 2003-10-14 16:24:00

这样——
(defun c:db ()
  (setq var2 (getvar "dimsd2"))
  (setq var3 (getvar "dimse2"))
  (setvar "cmdecho" 0)
  (setvar "dimsd2" 1)
  (setvar "dimse2" 1)
  (initget 1 "L A")
  (setq a (getkword "\n线性标注(L)/对齐标注(A): "))
  (cond ((= a "L")
   (princ "\n")
   (command "dimlinear" pause pause pause)
)
((= a "A")
   (princ "\n")
   (command "dimaligned" pause pause pause)
)
  )
  (setvar "dimsd2" var2)
  (setvar "dimse2" var3)
  (princ)
)

运行程序没问题，但没有*error*错误处理

账号		自动登录	找回密码
密码			注册