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

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

把所有的(setvar "dimsd1"...)都去掉，哪怎么让dimsd2、dimse2还原呢？

meflying · 发表于 2003-10-14 16:34: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 (/)
  (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)
)

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

不对呀，meflying兄，VL控制台还是会显示：
错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "dimsd2" 13

麻烦你在那里去试一下，谢谢！！！

meflying · 发表于 2003-10-14 17:04:00

我知道，因为你的var2已经被设置成13了，这样之后就不会对它进行操作了，它就一直是13，而系统变量是不接受13这个值的，所以你那会出错。你想将两个变量都设置成空再试。

其实这些都是调试中的一般错误，你可以根据跟踪程序进行调试，很快会发现问题所在的。
那些错误处理及系统变量的恢复，可以根据自己的习惯及需要适当设置，不要一成不变调用一个格式，要真正搞懂是怎么回事，这样一旦出现错误就能发现错在哪儿

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

我把它们两个均设为nil，运行成功了。但是从上面的程序看，我并没意思去把var2设为13，这个13从何而来的呢？

meflying · 发表于 2003-10-14 17:26:00

你问我，我问谁？
可能你之前用到别的程序，也是将这两个变量设置成全局变量，所以这个程序再使用时就没有重新设置了。
设置全局变量应尽量保证变量的唯一性，最好不要用通用的变量名，尤其是全局变量和局部变量有重复。这样会把你自己搞的晕头转向的

tukuitk · 发表于 2003-10-15 12:06:00

多谢meflying大哥！我会注意了。
另：
我见很多CAD软件把线性标注和对齐标注集成在一个命令中了，运用时是根据光标的位置来定的，这是怎样实现的呢？？？

————————
多谢指教！！！
————————

tukuitk · 发表于 2003-10-15 12:08:00

飞哥能编一个出来吗？把我上面的半边标注集成在一起就更好了。

meflying · 发表于 2003-10-15 12:27:00

这些都是根据一些习惯用法来做程序的，我没这样试过，不知道集成后的效果是怎样的。

tukuitk · 发表于 2003-10-15 13:01:00

集成后，光标上下和左右移动时，就同线性标注；斜着移动时，就同对齐标注。

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