htlaser 发表于 2019-8-23 19:31:14

把文件名复制到剪贴板

本帖最后由 htlaser 于 2019-9-3 15:44 编辑

;;;=================================================================*
;;;功能：向系统剪贴板写入文字
;;;引用地址http://bbs.mjtd.com/forum.php?mod=viewthread&tid=179272&highlight=%BC%F4%C7%D0
(vl-load-com)
(defun ZML-CLIP-SETSTRING (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 C:tt( / NAME)
(SETQ NAME (GETVAR "DWGNAME")) ;DWGNAME获取文件名   DWGPREFIX获取路径
(ZML-CLIP-SETSTRING NAME)
(PRINC "\n 复制文件名到系统剪贴板成功!!!")
(PRINC))

664571221 发表于 2019-8-24 13:57:34

什么文件名？？？？？

664571221 发表于 2019-8-24 13:57:45

什么文件名？？？？？

panliang9 发表于 2019-8-25 10:54:46

标记一个。

htlaser 发表于 2019-8-25 14:06:32

664571221 发表于 2019-8-24 13:57
什么文件名？？？？？

当前打开图纸的文件名   有时候要做报价单什么的需要文件名

zmzk 发表于 2019-8-29 06:15:16

好东西，我也能用到

开心无惧 发表于 2024-7-9 12:14:09

非常感谢 无私分享
页: [1]
查看完整版本: 把文件名复制到剪贴板