更改属性块中 标记属性文字RS-L，RS-R的值

湜１只鱼

;更改属性块中 标记属性文字RS-L，RS-R的值
(defun c:a2()
  (setvar "cmdecho" 0)
(initget "S D")
(Setq Mapan (getkword "\n请选择:"))
(if (= Mapan "S")(setq SRZ RS-L))
(if (= Mapan "D")(setq SRZ RS-R))
   (Setq abc (Strcase (Getstring "\n请输入说明:")))
   (Setq Block (Ssget '((0 . "Insert")(66 . 1))))
   (Setq N 0)
  (Repeat (Sslength Block)
    (Setq Ent (Entget (Ssname Block N)))
    (Setq Ent1 Ent)
    (setq SS (Cdr (Assoc -1 ent1)))
    (IF (/= "SEQEND" (cdr (assoc 0 ENT)))
          (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
            (cond
              ((= (CDR (ASSOC 2 ENT1)) SRZ)
               (SETQ ENT1 (SUBST (CONS 1 abc) (ASSOC 1 ENT1) ENT1))
                  (ENTMOD ENT1))
              )
            )
          )
  (entdel SS)
  (entdel SS)
  (setq n (1+ n))
  )
  (setvar "cmdecho" 1)
(princ)
)





;是那里出现问题了，请高手指点指点