[求助]遇到了一个很怪的事情

torcky

<pre class="prog_in">帮助里面的一段源程序：</pre><pre class="prog_in">(defun C:TBOX ( / textent tb ll ur ul lr)</pre><pre class="prog_in">  (setq textent (car (entsel "\nSelect text: ")))</pre><pre class="prog_in">  (command "ucs" "Object" textent)</pre><pre class="prog_in">  (setq tb (textbox (list  (cons -1 textent)))</pre><pre class="prog_in">        ll (car tb)</pre><pre class="prog_in">        ur  (cadr tb)</pre><pre class="prog_in">        ul  (list (car ll) (cadr ur))</pre><pre class="prog_in">        lr (list (car ur) (cadr ll))</pre><pre class="prog_in">  )</pre><pre class="prog_in">  (command "pline" ll lr ur ul "Close")</pre><pre class="prog_in">  (command "ucs" "p")</pre><pre class="prog_in">  (princ)</pre><pre class="prog_in_end">)</pre>

zwzmh

常常会因为捕捉没关，导致程序运行的结果错误