;;;;;输出文字到粘贴板的
(defun c:mini_text_2_clipboard ( / old_cmd ss tt )
  (mai_start nil)
  (mai_last_com "mini_text_2_clipboard")
  (setq ss (mai_select_first '((0 . "TEXT")) "选择需要输出到粘贴板的文字 Text:" "没有选择文字实体.")
        tt (mai_lst2str 
             (mapcar
                '(lambda(x) (apply 'strcat (mapcar '(lambda(y) (mai_dxf 1 y)) x)))
                 (mai_order_text ss)
             )
             "\n"
           )
  )
  (mai_setClipText tt)
  (princ (strcat "\n共<" (itoa (sslength ss)) ">个文字实体被输出到粘贴板."))
  (mai_end)
)

