[LISP函数]：同下面的功能相似，只不过改为批量加字尾罢了。

风清清

呵呵，不好意思，刚来，穷得紧，搞点爱心币再说...

addtxt1.lsp  在文本内容后加一段内容的批量修改

;;本文件用于批处理AUTOCAD中的文本内容修改，是chtext.lsp的简化。
;;主要语句取材chtext.lsp


(defun c:ctE (/ last_o tot_o ent o_str n_str st s_temp n_slen o_slen si chf chm cont ans class)
                       
                                                                  ;; Select objects if running standalone
  
  (setq objs (ssget))

  (setq chm 0)                                                               ;统计修改次数
  (if objs                        
    (progn                                                      ;; If any objects selected
      (if (= (type objs) 'ENAME)                                       ;如果objs为一个实体名
        (progn
          (setq ent (entget objs))                                     ;将以OBJS为名的表抽出放入ENT
          (princ (strcat "\nExisting string: " (cdr (assoc 1 ent))))
        )                                                        ;搜出ENT中的文字内容
        (if (= (sslength objs) 1)                                ;又或OBJS集合里只有一个内容
          (progn
            (setq ent (entget (ssname objs 0)))                 ;将集里的东西的表抽出
            (princ (strcat "\nExisting string: " (cdr (assoc 1 ent))))
          )                                                        ;将其文字内容搜出来
        )
      )
      
      (setq n_str (getstring "\nNew string     : " t))                ;输入！
      (setq n_slen (strlen n_str))                                ;求输入的字长
      (setq last_o 0
            tot_o  (if (= (type objs) 'ENAME)                ;tot_o设为集合的实体数量
                       1
                       (sslength objs)
                   )
      )
                                                                  ;; For each selected object...
      (while (< last_o tot_o)
            (setq class (cdr (assoc 0 (setq ent (entget (ssname objs last_o))))))
            (if (or (= "TEXT" class)                                ;ENT为被动手术的表
                    (= "MTEXT" class) )
              (progn
                (setq s_temp (cdr (assoc 1 ent)))                ;ENT中的文字内容放入s_temp
                (setq s_temp (strcat s_temp n_str))                ;合并成为新的内容
                              
                (entmod (subst (cons 1 s_temp) (assoc 1 ent) ent));; 修正 the TEXT 实体
                (setq chm (1+ chm))                                ;统计修改次数
              )
            )
            (setq last_o (1+ last_o))                                ;做下一个目标的手术
      )                                                        ;; else go on to the next line...
        
                                                               
    );PROGN
  );IF
  
  (if (/= (type objs) 'ENAME)
                                                                    ;; Print total lines changed
    (if (/= (sslength objs) 1)
      (princ (strcat (rtos chm 2 0) " text lines changed."))
    )
  )
  (terpri)
)
(princ "\n\t Add some new words behind the text that you select!")
(princ "\n\tCTE command loaded.")
(princ)