[求助]：请大家帮忙修改一个控制靶框的lisp程序

123456abc · 发表于 2008-1-24 10:38:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

程序是这样的

(princ "\nr 靶心大小切换")
(defun c:r (/ s)
(setq s (getar "pickbox"))
(if (and (/= s 3) (/= s 10))
(setar "pickbox" 3)
)
(if (= s 3)
(setar "pickbox" 10)
(progn
(if (= s 10)
(setar "pickbox" 3)
)
)
)
(princ)
)

这段程序执行有问题，提示“no function definition: GETAR”

另外我想利用这个程序实现无论靶框多大，用这个程序后让它变回2，可以吗？请高手指点

carrot1983 · 发表于 2008-1-24 12:45:53

(setq s (getar "pickbox"))　getvar

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

[求助] [求助]：请大家帮忙修改一个控制靶框的lisp程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子