如何用VLISP 程序实现：把CAD里面文字复制粘贴板里面，可以用CTRL+V，在文本里粘贴

zhb236623

如何用VLISP 程序实现如下功能：


在图形里面有文字   “砖”     利用LISP程序复制这个文字。。然后可以把这个文字放到粘贴板里面。也就是说可以打开一个文本文件，然后可以把这个文字粘贴在这个文本文件里面。。。

用_.ddedit命令可以实现，如何用命令方式怎么实现呢。


想实现的功能是图纸里面文字“123/456/789”  －》“123-456-789”到剪切板里面，然后可以在打开的文本文本文件里面粘贴得到“123-456-789”

lzh720

Gu_xl 发表于 2011-12-2 18:02
为何不直接用(open filename "a")方法将文字写入文件？
下面提供两个剪贴板操作函数！

这东西怎么用啊，我加载之后按a没反应啊

菜鸟初来乍到

zhb236623 发表于 2011-12-3 19:13
借用了yucpp 的程序   http://bbs.mjtd.com/thread-85614-1-1.html
也谢谢Gu_xl

非常感谢您的分享

758586

真好用 感谢您的分享
CTRL+V，在文本里粘贴时 不能换行,
能换行就更好用,

Gu_xl

为何不直接用(open filename "a")方法将文字写入文件？
下面提供两个剪贴板操作函数！

1. ;;;将文本复制到剪贴板
   
2. (defun CopytoClipboard(text / Clip_board)
   
3. (setq Clip_board (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipboardData))
   
4. (Vlax-Invoke Clip_board 'SetData "text" text)
   
5.   (vlax-release-object Clip_board)
   
6.   text
   
7. )
   
8. ;;;从剪贴板拷贝文本
   
9. defun GetClipboard(/ Clip_board text)
   
10. (setq Clip_board (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipboardData))
    
11. (setq text (Vlax-Invoke Clip_board 'GetData "text"))
    
12.   (vlax-release-object Clip_board)
    
13.   text
    
14. )
    

;;;将文本复制到剪贴板<br /> (defun CopytoClipboard(text / Clip_board)<br /> (setq Clip_board (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipboardData))<br /> (Vlax-Invoke Clip_board 'SetData "text" text)<br />   (vlax-release-object Clip_board)<br />   text<br /> )<br /> ;;;从剪贴板拷贝文本<br /> defun GetClipboard(/ Clip_board text)<br /> (setq Clip_board (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipboardData))<br /> (setq text (Vlax-Invoke Clip_board 'GetData "text"))<br />   (vlax-release-object Clip_board)<br />   text<br /> )<br />

zhb236623

Gu_xl 发表于 2011-12-2 18:02
为何不直接用(open filename "a")方法将文字写入文件？
下面提供两个剪贴板操作函数！

谢谢楼主。下来看一下。宗地图里面有地号：350000/222/222/222/000   然后图形存盘的时候要把这个地号加在DWG图形文件名中 即   宗地图.dwg  ->      宗地图(350000-222-222-222-000).dwg  所以需要这个功能。。。

zyhandw

同行啊！

zhb236623

借用了yucpp 的程序   http://bbs.mjtd.com/thread-85614-1-1.html
也谢谢Gu_xl

1. 
   
2. ;;程序中的字符串哪里来的？我有个从cad中复制到剪切板的。
   
3. ;;;=================================================================*
   
4. ;;;功能：向系统剪贴板写入文字                                       *
   
5. (defun ZML-CLIP-SETSTRING (STR / HTML RESULT)
   
6.   (and (= (type STR) 'STR)
   
7.        (setq HTML (vlax-create-object "htmlfile"))
   
8.        (setq RESULT (vlax-invoke
   
9.                       (vlax-get        (vlax-get HTML 'PARENTWINDOW)
   
10.                                 'CLIPBOARDDATA
    
11.                       )
    
12.                       'SETDATA
    
13.                       "Text"
    
14.                       STR
    
15.                     )
    
16.        )
    
17.        (vlax-release-object HTML)
    
18.   )
    
19. )
    
20. ;;;=================================================================*
    
21. ;;函数测试
    
22. (defun c:wc ()
    
23. (vl-load-com)
    
24.   (setq txtss (ssget '((0 . "*TEXT"))))
    
25.   (while (> (sslength txtss) 1)
    
26.     (alert "只能选择一个文字串，请重新选择！")
    
27.     (setq txtss (ssadd))
    
28.     (setq txtss (ssget '((0 . "*TEXT"))))
    
29.   )
    
30.   (setq txtcon (cdr (assoc 1 (entget (ssname txtss 0)))))
    
31.   (setq ent_str_last (vl-string-translate "/" "-" txtcon))
    
32.   (setq ent_str_last_kuahao (strcat "(" ent_str_last ")"))
    
33.   (ZML-CLIP-SETSTRING ent_str_last_kuahao)
    
34.   (princ "\n文字已复制到剪切板,可以直接粘贴了！")
    
35.   (princ)
    
36. )
    
37. 
    

<br /> ;;程序中的字符串哪里来的？我有个从cad中复制到剪切板的。<br /> ;;;=================================================================*<br /> ;;;功能：向系统剪贴板写入文字                                       *<br /> (defun ZML-CLIP-SETSTRING (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 /> )<br /> ;;;=================================================================*<br /> ;;函数测试<br /> (defun c:wc ()<br /> (vl-load-com)<br />   (setq txtss (ssget '((0 . "*TEXT"))))<br />   (while (> (sslength txtss) 1)<br />     (alert "只能选择一个文字串，请重新选择！")<br />     (setq txtss (ssadd))<br />     (setq txtss (ssget '((0 . "*TEXT"))))<br />   )<br />   (setq txtcon (cdr (assoc 1 (entget (ssname txtss 0)))))<br />   (setq ent_str_last (vl-string-translate "/" "-" txtcon))<br />   (setq ent_str_last_kuahao (strcat "(" ent_str_last ")"))<br />   (ZML-CLIP-SETSTRING ent_str_last_kuahao)<br />   (princ "\n文字已复制到剪切板,可以直接粘贴了！")<br />   (princ)<br /> )<br /> <br />

zhb236623

zyhandw 发表于 2011-12-3 15:21
同行啊！

程序弄好，欢迎试用下。。。

zhb236623

Gu_xl 发表于 2011-12-2 18:02
为何不直接用(open filename "a")方法将文字写入文件？
下面提供两个剪贴板操作函数！

再次麻烦下版主。如何去掉字符串是的引号 ""  呢。。http://bbs.mjtd.com/forum.php?mo ... #pid495181pid495181    谢谢。。

zyhandw

zhb236623 发表于 2011-12-3 19:23
程序弄好，欢迎试用下。。。

试用了一下，不错！谢谢！！

zhb236623

zyhandw 发表于 2011-12-4 20:49
试用了一下，不错！谢谢！！

可以再试一下这个。http://bbs.mjtd.com/forum.php?mo ... #pid495181pid495181
如果一张图上有新老地号都要的话可以用这个。。。

wei982984

天天为这个问题困扰，现在终于找到解决的方法，谢谢各位！