（完成）[编程申请]：cad 中的文本copy至粘贴板

xdq931220

请写一段程序，将cad 中的文本copy至粘贴板，让word等程序使用，不要通过ddedit后再复制

XDSoft

最初由 xdq931220 发布
[B]请写一段程序，将cad 中的文本copy至粘贴板，让word等程序使用，不要通过ddedit后再复制 [/B]

程序写好了，现在只考虑的TEXT文字，欢迎提意见完善它。
;|
   命令：txt2clip
   
   功能：该程序可以把ACAD的字符(text)实体拷贝到剪切板上，一行一个字符串。
        
        程序配合XDRX_API build 20630＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的
          LISP目录，自己加入到菜单里面就可以非常方便的使用了。
          关于程序的建议请到“晓东CAD空间-编程申请”论坛
          http://www.xdcad.net/forum留言         

|;

2. 
   
3. [FONT=courier new]
   
4. (defun c:txt2clip (/ str len ss)
   
5.   (prompt "\n请选取要拷贝到剪切板的字符串实体<退出>:")
   
6.   (if (setq ss (ssget '((0 . "text"))))
   
7.     (progn
   
8.       (xdrx_setsstodb ss 0)
   
9.       (setq str ""
   
10.             len (itoa (sslength ss))
    
11.       )
    
12.       (while (xdrx_getentdata 0)
    
13.         (setq str (strcat str (xdrx_getentdxf 1) "\r\n"))
    
14.       )
    
15.       (if (xdrx_setclipboard str)
    
16.         (prompt (strcat "已经将 " len " 个字符串拷贝到了剪切板!"))
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )[/FONT]

<br /> [FONT=courier new]<br /> (defun c:txt2clip (/ str len ss)<br />   (prompt "\n请选取要拷贝到剪切板的字符串实体<退出>:")<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (setq str ""<br />             len (itoa (sslength ss))<br />       )<br />       (while (xdrx_getentdata 0)<br />         (setq str (strcat str (xdrx_getentdxf 1) "\r\n"))<br />       )<br />       (if (xdrx_setclipboard str)<br />         (prompt (strcat "已经将 " len " 个字符串拷贝到了剪切板!"))<br />       )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

下载下面附件的LISP文件：

欧特

收到了，谢谢！
先用一用再说。

zxcv1111

能把word中的文字转到 acad中用吗?

zxcv1111

能把word中的文字转到 pkpm中用吗?