llsheng_73: 一直没注意留言板,以前那个是有个问题,今天去看了下
原(defun c:tt(/ss)应该改成(defun c:tt(/ ss)
因为我的疏忽给你的工作带来困扰,实在抱歉。。。
llsheng_73: (Defun STB(TAB / snl sll)
(SetQ snl '()sll (TblNext TAB T))
(While (SetQ snl (Cons (Cdr (Assoc 2 sll)) snl)sll (TblNext TAB nil)))snl)
(defun c:tt(/ss ...