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

1028695446

;;复制块名到系统剪切板上
(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

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

逍遥无声

松树石头哥

cj52000

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

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

烟盒迷唇

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

wosiguwozai0830

恰好需要，感谢了！

1028695446

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

我发的贴子链接如下：http://bbs ...

很简单的一个小程序，直接搜索一下就有了

gzcsun

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

浩辰支持不好，中望和cad2008支持lisp其本差不多，还是用cad吧。