社区 › AutoLISP/Visual LISP 编程技术 › 怎么把变量的值复制到剪贴板中

lkm3131 发表于 2018-12-22 16:03:39

怎么把变量的值复制到剪贴板中

我想把变量x的值45复制到剪贴板 中，下次要输入数值的时候，我直接粘贴一下，就行了，哪位大侠给 指导一下

菜卷鱼 发表于 2018-12-22 17:14:36

(defun SET-CLIP-STRING (STR / HTML RESULT)
    (and (= (type STR) 'STR)
       (setq HTML (vlax-create-object "htmlfile"))
       (setq RESULT (vlax-invoke
                          (vlax-get (vlax-get HTML 'PARENTWINDOW)
                                  'CLIPBOARDDATA
                          )
                          'SETDATA
                          "Text"
                          STR
                      )
       )
       (vlax-release-object HTML)
    )
)


(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
)

lkm3131 发表于 2018-12-23 14:19:16

本帖最后由 lkm3131 于 2018-12-23 15:33 编辑

执行写入剪贴板 提示参数太少是 str 没定义吗比如我就行 把 “888”写入剪贴板，应该怎么改lisp程序，大侠帮忙给改下lisp程序

查看完整版本: 怎么把变量的值复制到剪贴板中