[LISP程序]：Vlisp 读写剪贴板文字

eachy · 发表于 2005-12-20 22:55:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

以前 xdapi 第一次实现了CAD 中读写剪贴板，现在 Vlisp 也可以做到了:)

;;读剪贴板文字
(defun xdl-getcliptext (/ ieobj str)
(setq
ieobj (vlax-get-or-create-object "Internetexplorer.application")
)
(vlax-invoke ieobj 'navigate "about:blank")
(setq str
(vlax-invoke
(vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
'clipboarddata
)
'getdata
"text"
)
)
(vlax-release-object ieobj)
str
)
;;往剪贴板写文字
(defun xdl-setcliptext (str / ieobj)
(setq
ieobj (vlax-get-or-create-object "Internetexplorer.application")
)
(vlax-invoke ieobj 'navigate "about:blank")
(vlax-invoke
(vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
'clipboarddata
)
'setdata
"text"
str
)
(vlax-release-object ieobj)
)

jiega · 发表于 2005-12-21 20:59:49

使用DOSLib的函数(dos_clipboard [string])也是一个很好的选择.

fools · 发表于 2005-12-24 17:55:07

eachy的程序有点小问题，可能是论坛显示的问题。
出错语句是(vlax-invoke ieobj 'navigate "about :blank")
"about"与":blank"间不能有空格，否则出错！

在原程序
(vlax-invoke ieobj 'navigate "about :blank")
语句后加入
(vlax-put-property ieobj "visible" :vlax-true)
就可以看到"语法错误"信息

eachy斑竹还有其他几个函数，生成一个空网页的方法，也存在类似的问题

补充一个清空剪贴板文字的函数

;;清空剪贴板内文字
(defun xdl-clscliptext (/ ieobj)
(setq
ieobj (vlax-get-or-create-object "Internetexplorer.application")
)
(vlax-invoke ieobj 'navigate "about:blank") ;about与:blank间无空格
(vlax-invoke
(vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
'clipboarddata
)
'clearData
"text"
)
(vlax-release-object ieobj)
)

相关内容可以到msdn中查找
http://msdn.microsoft.com/librar ... ference/objects.asp

wujimmy · 发表于 2005-12-30 19:29:50

一定有更好的办法吧,我觉得
读写剪贴板文字用这个办法太小题大做了
调用ie会不会使速度大大降下来,应该也用暂用好多内存的,所以不是好办法.
我想了一个读剪贴板好的笨办法:
(defun c:rp()
(command "_pasteclip")
(princ (cdr(assoc 1(entget (entlast)))))
)
不过写的方法还没有想出来

fools · 发表于 2006-1-1 11:45:41

你的方法虽提供了另一种解决问题的方式，但有极大的局限性。
对于纯文本完全没问题，但对于OLE就有点力不从心，也就是说无法从含格式的文本或图文并茂中提取文本。比如将word中复制的文本提取出来。
生成一个空网页，但不显示出来并不会影响速度，你可以试试，基本感觉不到。就占用内存的问题，我觉得只要读取完剪贴板后及时realese-object应该就可以了。
PS:看了你最近不少程序，学到不少东西，今后多多交流哈！

aeo · 发表于 2006-2-10 22:17:33

http://www.microsoft.com/china/t ... ources/hey0813.mspx

fjs0515 · 发表于 2006-12-6 08:24:18

那我想编辑无名块里的文字，怎么编辑，请指教

wangph · 发表于 2006-12-10 14:51:45

写与清空的我都没试验成功

浪奔 · 发表于 2007-1-3 21:16:06

;;往剪贴板读写文字
(defun xdl-setcliptext (str / ieobj)
  (setq
ieobj (vlax-get-or-create-object "Internetexplorer.application")
  )
  (vlax-invoke ieobj 'navigate "about :blank")
  (vlax-invoke
(vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
      'clipboarddata
)
'setdata
"text"
str
  )
  (vlax-release-object ieobj)
)

**********************************************************************************

;;往剪贴板读写文字测试无法通过,
按三楼方法去掉空格也无法通过.

小菜 · 发表于 2007-1-15 19:09:48

如果有打开的IE窗口，会覆盖掉当前IE显示的内容，而且速度似乎不快

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：Vlisp 读写剪贴板文字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

相关帖子

To wujimmy: