664571221 发表于 2021-9-13 14:51:29

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

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

wzg356 发表于 2021-9-13 15:15:22

;;;功能：向系统剪贴板写入文字
;;;引用地址http://bbs.mjtd.com/forum.php?mod=viewthread&tid=179272&highlight=%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-SETSTRINGstr)
        )
))

664571221 发表于 2021-9-13 15:28:37

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

谢谢大佬的程序...

竹天 发表于 2021-9-14 09:05:01

收藏一下

mokson 发表于 2021-9-14 11:11:35

玩得真高端呀。

78946299 发表于 2022-3-30 21:55:35


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

78946299 发表于 2022-9-3 16:49:49

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

664571221 发表于 2022-9-5 08:10:25

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

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

78946299 发表于 2023-4-29 17:03:06

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

加你了，我是做模架的。
页: [1]
查看完整版本: 求一个输入tt，选择两个文字，生成一个新的文字，中间用*号吧原来的两个文字连一起