请求一个程序

283528149

请问有可以把文字合并的东西吗？

随便逛一逛

(defun c:JI (/ ss1 ed str1 ss2 ed1 str2 sw1)
  (SETQ SS1 NIL)
  (SETQ STR1 NIL)
  (if (tblsearch "layer" "txt")
    (setvar "clayer" "txt")
    (progn
      (command "-layer"  "m"    "txt"     "c"       "7"
        "txt"  "lt"    "CONTINUOUS"        "txt"
        ""
       )
    )
  )
  (IF (SETQ SS1 (ENTSEL "\n 请选取第一个字符串:_____"))
    (PROGN
      (setq ed (entget (CAR ss1)))
      (REDRAW (car ss1) 3)
      (if (= "TEXT" (cdr (assoc 0 ed)))
 (setq str1 (cdr (Assoc 1 ed)))
 (prompt "第一个实体不是字符串")
      )
    )
  )
  (IF SS1
    (PROGN
      (IF (SETQ SS2 (ENTSEL "\n 请选取第二个字符串:______"))
 (progn
   (setq ed1 (entget (CAR ss2)))
   (if (= "TEXT" (cdr (assoc 0 ed1)))
     (setq str2 (cdr (Assoc 1 ed1)))
     (prompt "第二个实体不是字符串")
   )
 )
      )
    )
  )
  (if (and str1 str2)
    (PROGN
      (SETQ SW1 (STRCAT STR1 STR2))
      (entdel (car ss2))
      (SETQ ED (SUBST (cons 1 sw1) (Assoc 1 ed) ED))
      (ENTMOD ED)
    )
  )
  (princ)
)