求修改一个程序，大神来看看，这个文字合并的顺序反了，怎么修改

664571221

• (defun c:tt()
  
•   (setq ss (ssget '((0 . "text"))))
  
•   (if ss
  
•     (progn
  
•       (setq en (ssname ss 0))
  
•       (setq txt (cdr (assoc 1 (setq enl (entget en)))))
  
•       (ssdel en ss)
  
•       (repeat (sslength ss)
  
•         (setq e (ssname ss 0))
  
•         (ssdel e ss)
  
•         (setq txt (strcat txt (cdr (assoc 1 (entget e)))))
  
•         (entdel e)
  
•         )
  
•       (setq enl (subst (cons 1 txt) (assoc 1 enl) enl))
  
•       (entmod enl)
  
•       )
  
•     )
  
•   (princ)
  
•   )
  
  

自贡黄明儒

先对文字按坐标排序。

664571221

自贡黄明儒 发表于 2018-5-31 10:56
先对文字按坐标排序。

能不能弄一个我截图给你看下，就是按顺序，角度不要变

evayleung

这么标准的梁筋集中标注，还要怎么合并呢？

664571221

evayleung 发表于 2018-5-31 12:31
这么标准的梁筋集中标注，还要怎么合并呢？

是合并成一排  要有空格