1028695446 发表于 2019-4-6 13:39:41

【源码】复制块名到系统剪切板上

;;复制块名到系统剪切板上
(defun C:CBN (/ blkname)       
        ;;;功能：向系统剪贴板写入文字
        ;调用方法 ( SET-CLIP-STRING 要写入剪切板的内容)                                       *
        (vl-load-com)
        (defun SETCLIPTEXT (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)
                )
        )       
        (if (setq ent (car(entsel "\n请选择块，复制块名到系统剪切板")))
                (progn
                        (setq blkname (cdr(assoc 2 (entget ent))))
                        (SETCLIPTEXT blkname)
                )
                (princ"\错误提示--请按要求选择")
        )
)
       






ketxu 发表于 2019-11-10 17:46:17

Thanks for sharing. Just set-clipboard function failed with Unicode characters

逍遥无声 发表于 2020-7-11 03:43:26

松树石头哥 发表于 2020-11-19 10:14:48

cj52000 发表于 2021-4-19 09:42:20

兄弟，能不能帮忙整一个复制属性块中的文字到剪切板，帮忙关注下，谢啦

我发的贴子链接如下：http://bbs.mjtd.com/thread-183151-1-1.html

烟盒迷唇 发表于 2022-2-12 11:49:24

这个在浩辰里面失败，怎么改才能用呢

wosiguwozai0830 发表于 2022-3-31 14:23:29

恰好需要，感谢了！

1028695446 发表于 2022-5-10 23:16:42

本帖最后由 1028695446 于 2022-5-10 23:17 编辑

cj52000 发表于 2021-4-19 09:42
兄弟，能不能帮忙整一个复制属性块中的文字到剪切板，帮忙关注下，谢啦

我发的贴子链接如下：http://bbs ...
很简单的一个小程序，直接搜索一下就有了

gzcsun 发表于 2022-6-9 07:16:58

烟盒迷唇 发表于 2022-2-12 11:49
这个在浩辰里面失败，怎么改才能用呢

浩辰支持不好，中望和cad2008支持lisp其本差不多，还是用cad吧。
页: [1]
查看完整版本: 【源码】复制块名到系统剪切板上