[求助][LISP]我的问题：

xjjy · 发表于 2004-9-23 09:44:00

请问各位大哥：
我的代码如下，我希望首先获得当前的lead箭头形式，再把他该为DOT形式,尔后恢复为原值，新建一图档，运行
(setq ldr_old (getvar "DIMLDRBLK"))后，返回值为空，为何？运行完后，并不是我期望的! lead箭头仍为DOT. (defun C:test()
(setq ldr_old (getvar "DIMLDRBLK"))
(setvar "dimldrblk" "dot")
(command "dimldrblk" ldr_old)
)

yulijin608 · 发表于 2004-9-23 13:06:00

(getvar "DIMLDRBLK") 返回值为空说明cad的系统变量dimldrblk为空
恢复原值时使用(setvar "dimldrblk" ldr_old)不是(command "dimldrblk" ldr_old)

meflying · 发表于 2004-9-23 13:19:00

你不是已经恢复了原值吗,它最后返回的当然是原来的值,而不是你的DOT.

至于2楼说的第二个问题,两种都可以的

xjjy · 发表于 2004-9-23 15:44:00

问题是并没有返回原值！请看： Command: (setq ldr_old (getvar "DIMLDRBLK"))
"" <=原值 Command: (setvar "dimldrblk" "dot")
"dot" Command: (command "dimldrblk" ldr_old)
dimldrblk
Enter new value for DIMLDRBLK, or . for default <"Dot">:
Command: nil Command: (setq ldr_old (getvar "DIMLDRBLK"))
"Dot" <=变为DOT

meflying · 发表于 2004-9-23 16:32:00

明白了,那你在第一句判断一下,

(if (= (setq ldr_old (getvar "DIMLDRBLK")) "")

(setq ldr_old ".")

)

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