asdfxx
发表于 2009-8-25 17:21:00
leslie114
发表于 2009-8-27 13:50:00
我也想知道，期盼高手解答
phoenixdjq
发表于 2009-8-27 14:23:00
<p>为什么要取消</p><p>(command)</p><p>或</p><p>(exit)</p><p>都应该可以</p><p></p>
caoyin
发表于 2009-8-27 14:54:00
<p></p><p>(defun c:TT (/ tag e)<br/> (setq tag T)<br/> (while tag<br/> (setq e (vl-catch-all-apply 'entsel))<br/> (if (vl-catch-all-error-p e)<br/> (princ "拒绝ESC!")<br/> (setq tag nil)<br/> )<br/> )<br/> e<br/>)</p>
asdfxx
发表于 2009-8-27 21:39:00
xhq1954425
发表于 2009-8-28 08:25:00
<p>3楼说得就应该满足你的要求了呀？</p><p>向4楼的学了一招，留着以后用！谢谢！</p>
nonsmall
发表于 2009-8-28 09:21:00
<p>楼主的意思不大明白</p><p>不知道是不是要这个效果：命令杀手~</p><p>警告：程序加载后绝大部分命令将失效，请慎用！</p><p> </p>
页:
[1]