求大神看下复制针贴 求一个文字功能

664571221

比如有文字ABC DExFG，在ABC和DExFG中间有个空格，求输入TT，点取文字ABC DExFG后，把空格前面的ABC复制到粘贴板，以后如果ctrl+v可以直接复制到其他地方
输入TT2,点取文字ABC DExFG，把空格后面的DExFG复制到粘贴板，同时在粘贴板中的   x  符号变成   *  符号，就是复制出来是DE*FG，原来cad上面的文字不变

ZZXXQQ

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. )
    

(defun c:tt ()<br /> (if (and (setq s1 (entsel "\n选择文字"))<br />         (setq ent (entget (car s1)))<br />         (= (cdr(assoc 0 ent)) "TEXT")) (progn<br />   (setq txt (cdr(assoc 1 ent)))<br />   (set-clip-string (substr txt 1 (vl-string-position (ascii " ") txt)))<br /> ))<br /> (princ)<br /> )<br /> (defun SET-CLIP-STRING (STR / HTML RESULT)<br /> (and (= (type STR) 'STR)<br />   (setq HTML (vlax-create-object "htmlfile"))<br />   (setq RESULT<br />    (vlax-invoke<br />     (vlax-get (vlax-get HTML 'PARENTWINDOW) 'CLIPBOARDDATA)<br />     'SETDATA<br />     "Text"<br />     STR<br />    )<br />   )<br />   (vlax-release-object HTML)<br /> )<br /> )<br />

自贡黄明儒

去了解一下正则表达式，拆分文字最容易。

664571221

自贡黄明儒 发表于 2019-7-18 11:18
去了解一下正则表达式，拆分文字最容易。

黄大师帮忙搞下

664571221

自贡黄明儒 发表于 2019-7-18 11:18
去了解一下正则表达式，拆分文字最容易。

黄大神看看呀啊啊啊啊啊

664571221

ZZXXQQ 发表于 2019-7-18 16:26

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

1291500406

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))

664571221

1291500406 发表于 2019-7-18 22:03
;;你要的后半部分 by必强
(defun c:bb( / b_clip )(vl-load-com)(vla-getentity (vla-get-utility(vla-g ...

感谢我强哥点赞点赞.