明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 119|回复: 4

[提问] 求一个输入tt,选择两个文字,生成一个新的文字,中间用*号吧原来的两个文字连一起

[复制链接]
发表于 2021-9-13 14:51 | 显示全部楼层 |阅读模式
求一个输入tt,选择两个文字,生成一个新的文字,中间用*号吧原来的两个文字连一起,并且复制到粘贴板,可以用来复制粘贴,
比如  两个文字    你好      我好     生成新的   你好*我好   到粘贴板可用于复制粘贴
如果是三个以此类推
发表于 2021-9-13 15:15 | 显示全部楼层
;;;功能:向系统剪贴板写入文字
;;;引用地址http://bbs.mjtd.com/forum.php?mo ... hlight=%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 ( / str str1)
(if        (setq str(ssget ":E:S" '((0 . "TEXT"))))
        (progn
                (setq str(cdr(assoc 1(entget(ssname str 0)))))
                (while(setq str1(ssget ":E:S" '((0 . "TEXT"))))
                        (setq str(strcat str "*"(cdr(assoc 1(entget(ssname str1 0))))))                       
                )
                (ZML-CLIP-SETSTRING  str)
        )
))
 楼主| 发表于 2021-9-13 15:28 | 显示全部楼层
wzg356 发表于 2021-9-13 15:15
;;;功能:向系统剪贴板写入文字
;;;引用地址http://bbs.mjtd.com/forum.php?mod=viewthread&tid=179272&hi ...

谢谢大佬的程序...
发表于 2021-9-14 11:11 | 显示全部楼层
玩得真高端呀。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2021-9-18 00:01 , Processed in 0.475724 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表