如果改成如下程序,把(- n (1+ i))改成i,那就是一一对应的关系啦
defun c:test( / ss ent ss2 i) (setq ss (ssget)) (setq ent (entlast)) (command "_.copy" ss "" pause pause) (setq ss2 (ssadd)) (while (setq ent (entnext ent)) (ssadd ent ss2) ) (setq i 0 n (sslength ss)) (repeat n (redraw (ssname ss i) 3) (redraw (ssname ss2 i) 3) (getkword "按回车继续...") (setq i (1+ i)) ) (command "_.regen") )