快速建块（属性块）

h2295

请问怎么将选中的多个text快速建成一个属性块，即先将选中的text定义属性，然后合并成一个block。这是从别的帖子找到的可以将单个文本转为属性，怎么修改可以一次转多个文本然后将其合并成一个block。


;;; ;; 文本转属性txtatt　Define the top-level function for the command "txtatt"
(defun c:tt1 (/ ent)
  (if (setq ent (entsel "\nSelect text entity: "))  ; Prompt user to select an entity
    (txt2att (car ent)) ; Call the core function with the selected entity
    (prompt "No entity was selected.")
  )
)
;;; Define the core function that converts a text entity to an attribute definition
(defun txt2att (ent / entdxf newdxf malst tem)
  (setq entdxf (entget ent)
        newdxf '((0 . "ATTDEF"))
        newdxf (append
                 newdxf
                 (list
                   (cons 1 (cdr (assoc 1 entdxf)))
                   (cons 2 (cdr (assoc 1 entdxf)))
                   (cons 3 (cdr (assoc 1 entdxf)))
                   (cons 70 0)
                 )
               )
        malst  (list 7 8 10 11 39 40 41 50 51 62 71 72 73)
  )
  (foreach mai malst
    (setq tem (assoc mai entdxf))
    (if (/= tem nil)
      (setq newdxf (append newdxf (list tem)))
    )
  )
  (entdel ent)
  (entmake newdxf)
)