LISP 设置系统剪切板 - CAD 2020

要设置 LISP 来访问系统剪切板，你可以使用以下代码：

;; 定义一个函数，用于从系统剪切板获取文本
(defun get-clipboard-text ()
  (vlax-invoke-method (vlax-get-property (vlax-get-property (vlax-create-object 'htmlfile') 'parentWindow) 'clipboardData) 'getData 'Text')
)

;; 定义一个函数，用于将文本复制到系统剪切板
(defun set-clipboard-text (text)
  (vlax-invoke-method (vlax-get-property (vlax-get-property (vlax-create-object 'htmlfile') 'parentWindow) 'clipboardData) 'setData 'Text' text)
)

然后，你可以在你的 LISP 代码中使用这些函数来访问系统剪切板。例如，你可以使用 (get-clipboard-text) 函数获取系统剪切板中的文本，使用 (set-clipboard-text 'Hello World') 函数将文本复制到系统剪切板。

请注意，这些代码是针对使用 ActiveX 对象的 Windows 系统。在其他操作系统上，你可能需要使用不同的方法来访问系统剪切板。