tssd2006的bug

(defun layonf(tf / cly e l lay si ss getlay)(defun getlay(lon lof / e e62 e70 lay sof son)
(setq e(tblnext"layer"t)son nil sof nil)(while e(setq lay(strcase(cdr(assoc 2 e)))
e70(cdr(assoc 70 e))e62(cdr(assoc 62 e)))(cond((and(or(and lon(not(member lay lon)))
(and lof(member lay lof)))(if(and lof(= lay cly))
(prompt(strcat"\n***不能关闭当前图层["cly"]!"))T)(/=(logand e70 1)1)(>= e62 0))(setq sof(cons lay sof)))((and(=(logand e70 1)1)
(< e62 0))(setq son(cons lay son)))(t))(setq e(tblnext"layer")))(if(or lon lof)sof son))(setvar"cmdecho"0)(setq cly(strcase(getvar"clayer")))
(princ(strcat"\n选择要"(if tf"保留显示""关闭")"图层上的实体<显示所有图层>: "))(if(setq ss(ssget))(progn(setq si 0)(while(setq e(ssname ss si))
(setq si(1+ si)lay(&GENT e 8))(if(not(member lay l))(setq l(cons lay l))))(setq lay(if tf(getlay l nil)(getlay nil l)))(command".layer")
(if(and tf(member cly lay))(progn(princ(strcat"\n当前层由["cly"]变为["(car l)"]!"))(command"s"(car l))))(foreach x lay(command"f"x"off"x))
(command""))(progn(setq lay(getlay nil nil))(command".layer")(foreach x lay(command"t"x"on"x))(command"")))(if(zerop(getvar"regenmode"))
(command"regen"))(princ))(setfunhelp"c:XCXSH""tssd.hlp""XCXSH")(defun c:XCXSH()(layonf’T))(setfunhelp"c:XCGB""tssd.hlp""XCGB")
(defun c:XCGB()(layonf nil))

tssd2006下的lisp程序，哪位高手帮我修改下！！！！