em muốn xin hiển thị nhiều tab bản vẽ

[em muốn xin hiển thị nhiều tab bản vẽ]

Đổi sang cad đời cao đi bác, nặng hơn có chút thôi chứ rất nhiều chức năng hữu ích mà, cad 2007 cũ quá rồi.

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

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))