[求助]：[0304]关于"属性标签值"内容替换问题?

xyz518mm

请问:
我以达到选取带有"number"标签名称的数值,
并自动为其数量依序增加编号,
但无法按照所选取的方向来更改,
如:增加由上往下排序或由左而右,
等等的选项来使物件编号照其规则运行.
请各位高手帮忙看看,以下这程序该怎样修正.
谢谢~


(defun c:ts ()
(setq newprice (getint "number:"))
(setq ss (ssget))
(setq i 0)
(repeat (setq ss:nu (sslength ss))
(setq ent (ssname ss i))
(setq endata (entget ent))
(setq atten (entnext ent))
(setq attendata (entget atten))
(while (/= (cdr (assoc 0 attendata)) "SEQEND")
(setq attlabel (cdr (assoc 2 attendata)))
(setq attval (cdr (assoc 1 attendata)))
(if (= attlabel "NUMBER") ;attname
(PROGN
(setq newlist (cons 1 (itoa newprice)))
(setq oldlist (assoc 1 attendata))
(setq attendata (subst newlist oldlist attendata))
(entmod attendata)
(entupd atten)
)) ;_if
(setq atten (entnext atten))
(setq attendata (entget atten))
) ;_while
(setq i (1+ i))
(setq newprice (+ newprice 1))
)
(prin1))