[求助]：请帮忙编一个自动处理的程序

围棋

自动处理以下一些内容：
1、增加图层A、B等数个图层；
2、删除图层1、2等数个图层里的对象；
3、修改图层4、5等数个图层线宽、颜色；
4、替换文字“A”为“B”；
5、关闭图层4、5、6等；
程序是开放式的，我自己根据需要来调整。
哪位高手能帮助一下。谢谢！

zxq0220

2. 
   
3. (DEFUN C:TEST ()
   
4. (SETVAR "CMDECHO" 0)
   
5. (COMMAND ".UNDO" "BE")
   
6. (COMMAND "LAYER" "N" "A,B" "")
   
7. (IF (SETQ SS (SSGET "X" '((8 . "1,2"))))
   
8.   (COMMAND "ERASE" SS "")
   
9. )
   
10. (COMMAND "LAYER" "C" "RED" "4" "C" "3" "5" "")
    
11. (COMMAND "LAYER" "LW" "0.3" "4" "LW" "0.5" "5" "")
    
12. (IF (SETQ SS (SSGET "X" '((0 . "*TEXT") (1 . "A")))) (PROGN
    
13.   (SETQ I -1)
    
14.   (REPEAT (SSLENGTH SS)
    
15.    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
    
16.          ENT (SUBST (CONS 1 "B") (ASSOC 1 ENT) ENT))
    
17.    (ENTMOD ENT)
    
18.   )
    
19. ))
    
20. (COMMAND "LAYER" "OFF" "4,5,6" "")
    
21. (COMMAND ".UNDO" "E")
    
22. (PRINC)
    
23. )
    

<br /> (DEFUN C:TEST ()<br /> (SETVAR "CMDECHO" 0)<br /> (COMMAND ".UNDO" "BE")<br /> (COMMAND "LAYER" "N" "A,B" "")<br /> (IF (SETQ SS (SSGET "X" '((8 . "1,2"))))<br />   (COMMAND "ERASE" SS "")<br /> )<br /> (COMMAND "LAYER" "C" "RED" "4" "C" "3" "5" "")<br /> (COMMAND "LAYER" "LW" "0.3" "4" "LW" "0.5" "5" "")<br /> (IF (SETQ SS (SSGET "X" '((0 . "*TEXT") (1 . "A")))) (PROGN<br />   (SETQ I -1)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))<br />          ENT (SUBST (CONS 1 "B") (ASSOC 1 ENT) ENT))<br />    (ENTMOD ENT)<br />   )<br /> ))<br /> (COMMAND "LAYER" "OFF" "4,5,6" "")<br /> (COMMAND ".UNDO" "E")<br /> (PRINC)<br /> )<br />

围棋

感谢zxq0220 ！
我对程序按自己的要求进行了修改后,
(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(COMMAND ".UNDO" "BE")
(IF (SETQ SS (SSGET "X" '((8 . "0污水,0污水井,0管径坡度,dm,gx-标注"))))
  (COMMAND "ERASE" SS "")
)
(IF (SETQ SS (SSGET "X" '((0 . "*TEXT") (1 . "污水")))) (PROGN
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
         ENT (SUBST (CONS 1 "给水") (ASSOC 1 ENT) ENT))
   (ENTMOD ENT)
  )
(IF (SETQ SS (SSGET "X" '((0 . "*TEXT") (1 . "WS")))) (PROGN
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
         ENT (SUBST (CONS 1 "YS") (ASSOC 1 ENT) ENT))
   (ENTMOD ENT)
  )
))
(COMMAND ".UNDO" "E")
(PRINC)
)
调入CADR2002中出现:  错误: 输入的列表有缺陷
我再调整后,
(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(COMMAND ".UNDO" "BE")
(IF (SETQ SS (SSGET "X" '((8 . "0污水,0污水井,0管径坡度,dm,gx-标注"))))
  (COMMAND "ERASE" SS "")
)
(IF (SETQ SS (SSGET "X" '((0 . "*TEXT") (1 . "污水")))) (PROGN
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
         ENT (SUBST (CONS 1 "给水") (ASSOC 1 ENT) ENT))
   (ENTMOD ENT)
  )
))
(COMMAND ".UNDO" "E")
(PRINC)
)
查找"污水"替换为"给水"没有成功.
请高手再帮我查查原因,我是不懂LISP,只是照瓣画葫芦而已.
(最好的能做多个替换.)