Xin giúp đỡ sửa lisp nối text nhiều dòng một lúc

[ThAnh11 0]

Chào các bác.
Em đang tìm hiểu cách làm danh mục bản vẽ 1 cách nhanh nhất. Sau khi mày mò diễn đàn thì em đã tìm được lisp để thống kê các biến ATT thành 1 table khá ổn. Nhưng có vấn đề là sẽ có tên bản vẽ dài phải để 2, 3 dòng và sẽ được thống kê thành 2, 3 cột riêng rẽ.
Em muốn ghép các text trong 1 dòng thành 1 text nhưng chỉ tìm được lisp nối từng cặp text riêng rẽ nên khá mất thời gian để làm lần lượt. Các bác có thể giúp em sửa lisp sao cho chỉ quét 1 lần là sẽ ghép được các text trên cùng 1 dòng hàng loạt được không ạ? Em có kèm ảnh để các bác hình dung dễ hơn.
Còn dưới đây là lisp em đang dùng để ghép từng dòng.
Em cám ơn các bác rất nhiều ạ.

(defun c:at2t (/  data edata ent i sel ss str);All Text to Text
 (defun dxf (tag obj) (cdr (assoc tag obj)))
 (setq ss (ssadd))
 (while (setq sel (entsel "\nChon cac Text can noi voi nhau: "))
(setq ent (car sel))
(if (= (dxf 0 (entget ent)) "TEXT")
(progn
 (ssadd ent ss)
(redraw ent 3)
)
))
 (if (> (sslength ss) 0)
(progn
  (setq i 0    
 data (entget (ssname ss 0))
 str (dxf 1 data))
  (while (setq ent (ssname ss (setq i (1+ i))))
 (setq edata (entget ent)
 str (strcat str " " (dxf 1 edata))  )
 (entdel ent) )
  (entmod (subst (cons 1 str) (assoc 1 data) data))  )
(princ "\nKhong chon duoc Text !"))
 (princ))

 

[Nguyễn Hà Huy 54]

Mình có cách khác mà mình đang dùng, trong atttext của block att bật cái Multiple lines này lên thì text att có thể xuống dòng được. Dùng lệnh Q1 của anh duongnhatduy để truyền text vào khung bản vẽ. dùng lệnh ATTOUT hoặc lệnh DATAEXTRACTION để xuất dữ liệu block att để tạo danh mục bản vẽ hoặc mua lisp của các pro trong này có field xuất ra nó tiện hơn nhiều, re lại nó tự update