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

664571221

求一个输入tt，选择两个文字，生成一个新的文字，中间用*号吧原来的两个文字连一起，并且复制到粘贴板，可以用来复制粘贴，
比如  两个文字    你好      我好     生成新的   你好*我好   到粘贴板可用于复制粘贴
如果是三个以此类推

wzg356

;;;功能：向系统剪贴板写入文字
;;;引用地址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)
        )
))

664571221

wzg356 发表于 2021-9-13 15:15
;;;功能：向系统剪贴板写入文字
;;;引用地址http://bbs.mjtd.com/forum.php?mod=viewthread&tid=179272&hi ...

谢谢大佬的程序...

竹天

收藏一下

mokson

玩得真高端呀。

78946299

感谢~~~~~~~~~~~~

78946299

总算看到需要的，谢谢大佬

664571221

78946299 发表于 2022-9-3 16:49
总算看到需要的，谢谢大佬

兄弟你是做啥行业的 要用到这个功能 加我qq3298554767

78946299

664571221 发表于 2022-9-5 08:10
兄弟你是做啥行业的 要用到这个功能 加我qq3298554767

加你了，我是做模架的。