[编程交流] 将多行文字分离到单个t

(defun c:PSTSP (/ _GetClipBoardText ent_last last_ent pt str)
(vl-load-com)
 (defun _GetClipBoardText (/ htmlfile result)
   (setq result
          (vlax-invoke
            (vlax-get
              (vlax-get
                (setq htmlfile (vlax-create-object "htmlfile"))
                'ParentWindow
              )
              'ClipBoardData
            )
            'GetData
            "Text"
          )
   )
   (vlax-release-object htmlfile)
   result
 )
 (if (not (setq ent_last (entlast)))
   (progn
     (entmake '(
                (0 . "POINT")
                (100 . "AcDbEntity")
                (100 . "AcDbPoint")
                (10 . (0.0 0.0 0.0))
               )
     )
     (setq ent_last (entlast)
           last_ent ent_last
     )
   )
 )
 (if (and (setq str (_GETCLIPBOARDTEXT))
          (setq pt (getpoint "\nSpecify text start point: "))
     )
   (progn
     (setq str (strcase str))
     (entmake (list
                '(0 . "MTEXT")
                '(100 . "AcDbEntity")
                '(100 . "AcDbMText")
                (cons 10 pt)
                (cons 1 str)
              )
     )
     
     (command "_.explode" "_L")
   )
 )
 (if last_ent
   (entdel last_ent)
 )
 (princ)
)