[求助]请大家帮忙修改一个控制靶框的lisp程序
<p>程序是这样的</p><p>(princ "\nr 靶心大小切换")<br/>(defun c:r (/ s)<br/>(setq s (getar "pickbox"))<br/>(if (and (/= s 3) (/= s 10))<br/>(setar "pickbox" 3)<br/>)<br/>(if (= s 3)<br/>(setar "pickbox" 10)<br/>(progn<br/>(if (= s 10)<br/>(setar "pickbox" 3)<br/>)<br/>)<br/>)<br/>(princ)<br/>)<br/></p><p>这段程序执行有问题，提示“no function definition: GETAR”</p><p>另外我想利用这个程序实现无论靶框多大，用这个程序后让它变回2，可以吗？请高手指点</p> getvar (defun c:r (/ s)<br/> (princ "\nr 靶心大小切换")<br/> (setq s (getvar "pickbox"))<br/> (if (and (/= s 3) (/= s 10))<br/> (setvar "pickbox" 3)<br/> )<br/> (cond ((= s 3) (setvar "pickbox" 10))<br/> ((= s 10) (setvar "pickbox" 3))<br/> )<br/> (princ)<br/>)
页:
[1]