lisp 怎么向剪切板中写入多行内容

bbswen

最近用到一个程序，可以向剪切板中写入文字，

但却无法写入多行文字，

本想可以在单行文字中加入转义符，就可以实现了，但是lisp却无法实现，

请帮忙看下，要怎么修改、


调用方法，

( SET-CLIP-STRING 要写入剪切板的内容)

下面是向剪切板中写入文字的程序

2. (defun SET-CLIP-STRING (STR / HTML RESULT)
   
3.     (and (= (type STR) 'STR)
   
4. (setq HTML (vlax-create-object "htmlfile"))
   
5. (setq RESULT (vlax-invoke
   
6.   (vlax-get (vlax-get HTML 'PARENTWINDOW)
   
7.     'CLIPBOARDDATA
   
8.   )
   
9.   'SETDATA
   
10.   "Text"
    
11.   STR
    
12.       )
    
13. )
    
14. (vlax-release-object HTML)
    
15.     )
    
16. )

(defun SET-CLIP-STRING (STR / HTML RESULT)<br />     (and (= (type STR) 'STR)<br /> (setq HTML (vlax-create-object "htmlfile"))<br /> (setq RESULT (vlax-invoke<br />   (vlax-get (vlax-get HTML 'PARENTWINDOW)<br />     'CLIPBOARDDATA<br />   )<br />   'SETDATA<br />   "Text"<br />   STR<br />       )<br /> )<br /> (vlax-release-object HTML)<br />     )<br /> )

bbswen

学艺不精，笑话了，
也给以后的人少走点弯路吧，

( SET-CLIP-STRING “text1\r\ntext2”)
写入剪切板就可以变成
text1
text2
了，

xyp1964

先掌握mtext→text