CAD中的lisp 代码如何把字符串写入 系统剪切板

在CAD中使用LISP代码将字符串写入系统剪贴板，可以使用以下代码：

(defun set-clipboard (text)
  (setq cmd (strcat "echo " (strcat "\"" text "\"") " | clip"))
  (startapp "cmd" cmd)
)

(set-clipboard "Hello, World!")

这段代码定义了一个名为set-clipboard的函数，它接受一个字符串作为参数。函数内部使用startapp函数调用系统的命令行程序（cmd.exe），并将字符串写入剪贴板。

在上述代码的最后一行，我们调用了set-clipboard函数，将字符串"Hello, World!"写入系统剪贴板。