把文件名复制到剪贴板

htlaser

2. ;;;=================================================================*
   
3. ;;;功能：向系统剪贴板写入文字
   
4. ;;;引用地址http://bbs.mjtd.com/forum.php?mod=viewthread&tid=179272&highlight=%BC%F4%C7%D0
   
5. (vl-load-com)
   
6. (defun ZML-CLIP-SETSTRING (STR / HTML RESULT)
   
7.   (and (= (type STR) 'STR)
   
8.     (setq HTML (vlax-create-object "htmlfile"))
   
9.     (setq RESULT (vlax-invoke   (vlax-get  (vlax-get HTML 'PARENTWINDOW)   'CLIPBOARDDATA )  'SETDATA   "Text"   STR ))
   
10.     (vlax-release-object HTML))
    
11. )
    
12. ;;;=================================================================*
    
13. 
    
14. 
    
15. ;把文件名复制到剪贴板
    
16. (DEFUN C:tt( / NAME)
    
17.   (SETQ NAME (GETVAR "DWGNAME")) ;DWGNAME获取文件名   DWGPREFIX获取路径
    
18.   (ZML-CLIP-SETSTRING NAME)
    
19.   (PRINC "\n 复制文件名到系统剪贴板成功!!!")
    
20.   (PRINC))

;;;=================================================================*<br /> ;;;功能：向系统剪贴板写入文字<br /> ;;;引用地址http://bbs.mjtd.com/forum.php?mod=viewthread&tid=179272&highlight=%BC%F4%C7%D0<br /> (vl-load-com)<br /> (defun ZML-CLIP-SETSTRING (STR / HTML RESULT)<br />   (and (= (type STR) 'STR)<br />     (setq HTML (vlax-create-object "htmlfile"))<br />     (setq RESULT (vlax-invoke   (vlax-get  (vlax-get HTML 'PARENTWINDOW)   'CLIPBOARDDATA )  'SETDATA   "Text"   STR ))<br />     (vlax-release-object HTML))<br /> )<br /> ;;;=================================================================*<br /> <br /> <br /> ;把文件名复制到剪贴板<br /> (DEFUN C:tt( / NAME)<br />   (SETQ NAME (GETVAR "DWGNAME")) ;DWGNAME获取文件名   DWGPREFIX获取路径<br />   (ZML-CLIP-SETSTRING NAME)<br />   (PRINC "\n 复制文件名到系统剪贴板成功!!!")<br />   (PRINC))

664571221

什么文件名？？？？？

664571221

什么文件名？？？？？

panliang9

标记一个。

htlaser

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

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

zmzk

好东西，我也能用到