从剪贴簿中检索数据

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

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

copy


(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

多谢议员的建议。

[编程交流] 从剪贴簿中检索数据

发表回复

精选推荐