明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 264|回复: 7

[提问] 求大神看下复制针贴 求一个文字功能

[复制链接]
发表于 2019-7-18 11:11 | 显示全部楼层 |阅读模式
5明经币
比如有文字ABC DExFG,在ABC和DExFG中间有个空格,求输入TT,点取文字ABC DExFG后,把空格前面的ABC复制到粘贴板,以后如果ctrl+v可以直接复制到其他地方
输入TT2,点取文字ABC DExFG,把空格后面的DExFG复制到粘贴板,同时在粘贴板中的   x  符号变成   *  符号,就是复制出来是DE*FG,原来cad上面的文字不变

最佳答案

发表于 2019-7-18 11:11 | 显示全部楼层
  1. (defun c:tt ()
  2. (if (and (setq s1 (entsel "\n选择文字"))
  3.         (setq ent (entget (car s1)))
  4.         (= (cdr(assoc 0 ent)) "TEXT")) (progn
  5.   (setq txt (cdr(assoc 1 ent)))
  6.   (set-clip-string (substr txt 1 (vl-string-position (ascii " ") txt)))
  7. ))
  8. (princ)
  9. )
  10. (defun SET-CLIP-STRING (STR / HTML RESULT)
  11. (and (= (type STR) 'STR)
  12.   (setq HTML (vlax-create-object "htmlfile"))
  13.   (setq RESULT
  14.    (vlax-invoke
  15.     (vlax-get (vlax-get HTML 'PARENTWINDOW) 'CLIPBOARDDATA)
  16.     'SETDATA
  17.     "Text"
  18.     STR
  19.    )
  20.   )
  21.   (vlax-release-object HTML)
  22. )
  23. )
回复

使用道具 举报

发表于 2019-7-18 11:18 | 显示全部楼层
去了解一下正则表达式,拆分文字最容易。
回复

使用道具 举报

 楼主| 发表于 2019-7-18 11:23 | 显示全部楼层
自贡黄明儒 发表于 2019-7-18 11:18
去了解一下正则表达式,拆分文字最容易。

黄大师帮忙搞下
回复

使用道具 举报

 楼主| 发表于 2019-7-18 15:25 | 显示全部楼层
自贡黄明儒 发表于 2019-7-18 11:18
去了解一下正则表达式,拆分文字最容易。

黄大神看看呀啊啊啊啊啊
回复

使用道具 举报

 楼主| 发表于 2019-7-18 17:27 | 显示全部楼层

Z大后半部分怎么弄呀,能否完善一下
回复

使用道具 举报

发表于 2019-7-18 22:03 | 显示全部楼层
本帖最后由 1291500406 于 2019-7-19 09:30 编辑
664571221 发表于 2019-7-18 17:27
Z大后半部分怎么弄呀,能否完善一下

;;你要的后半部分 by必强
(defun c:bb( / b_clip )(vl-load-com)(vla-getentity (vla-get-utility(vla-get-activedocument(vlax-get-acad-object))) 'obj ' ip "\n必强提示请选择文字")
(setq b_clip(Vlax-Get-Property(Vlax-Get (vlax-create-object "htmlfile")'ParentWindow) 'ClipboardData))(Vlax-Invoke b_clip 'SetData "text"
(vl-string-translate "x" "*" (vl-list->string(cdr(member 32(vl-string->list (Vlax-Get obj 'TextString)))))))(vlax-release-object b_clip)(princ))


回复

使用道具 举报

 楼主| 发表于 2019-7-19 08:44 | 显示全部楼层
1291500406 发表于 2019-7-18 22:03
;;你要的后半部分 by必强
(defun c:bb( / b_clip )(vl-load-com)(vla-getentity (vla-get-utility(vla-g ...

感谢我强哥点赞点赞.
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2019-8-25 23:32 , Processed in 0.201857 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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