社区 › AutoLISP/Visual LISP 编程技术 › 如何：将剪切板文字写入文字串变量？

fengyu6913 发表于 2024-7-11 18:25:56

如何：将剪切板文字写入文字串变量？

如何：将剪切板文字写入文字串变量？

...............................
(setq txt_str strFromClipboard )

qazxswk 发表于 2024-7-11 18:25:57

利用前辈写的函数，具体是谁写的不知道了。
(defun c:11 (/ str get-clip-string)
(defun get-clip-string (/ html result)
    (and (setq html (vlax-create-object "htmlfile"))
   (setq result (vlax-invoke
      (vlax-get (vlax-get HTML 'PARENTWINDOW)
            'CLIPBOARDDATA
      )
      'GETDATA
      "Text"
          )
   )
   (vlax-release-object html)
    )
    result
)
(setq str (get-clip-string))
(princ (strcat "\n剪贴板内容<"str ">"))
(princ)
)

fengyu6913 发表于 2024-7-11 23:23:55

qazxswk 发表于 2024-7-11 18:25
利用前辈写的函数，具体是谁写的不知道了。

感谢qazxswk出手相助

查看完整版本: 如何：将剪切板文字写入文字串变量？