社区 › Auto Lisp › 从剪贴簿中检索数据

Costinbos77 发表于 2022-7-5 23:29:23

从剪贴簿中检索数据

你好。
 
它可以使用AutoLISP从剪贴板访问数据（从文本文件或Excel复制并存储）？
 
提前谢谢。
 
Costin

Lee Mac 发表于 2022-7-5 23:51:47

我通过MP使用这些函数。

Costinbos77 发表于 2022-7-6 00:00:59

李很好，非常感谢你的帮助。
 
我在找这样的东西。

Lee Mac 发表于 2022-7-6 00:29:03

不客气，迈克尔是一个很有天赋的程序员

Costinbos77 发表于 2022-7-6 00:37:58

我将这两个函数压缩为一个，因为它们有许多共同部分：
 

(defun FClipBoardText (text / ClipBoardx htmlFilex result)
(setq ClipBoard (vlax-Get (vlax-Get (setq htmlFile (vlax-Create-Object "htmlFile")) 'ParentWindow) 'ClipBoardData)
      result (if text (vlax-Invoke ClipBoard 'SetData "Text" text) (vlax-Invoke ClipBoard 'GetData "Text")) ) ;_ end of setq
(mapcar 'vlax-Release-Object (list ClipBoard htmlFile))
(if text text result) ;_ end of if
) ;_ end of defun FClipBoardText

 
 
多谢议员的建议。

查看完整版本: 从剪贴簿中检索数据