tssd2006的bug

tssd2006的‘选层关闭’‘选层显示’不如2.7好用。tssd2.7的只是把图层开关切换，但tssd2006还把图层给冻结了，且tssd2006中每次回复图层后把当前层给改成了操作层了。望高人出手！！！谢谢！！

trusway

2006年07月24日 08:57:03

2楼

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

jzsyzm

2006年07月24日 17:05:32

3楼

优秀的多功能CAD图形工具软件

trusway

2006年07月25日 08:24:23

4楼

(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))