664571221 发表于 2024-5-2 18:09:16

各位大神求一个复制功能，比如一串字符有中文 数字 英文 符号等组成，输入TT，选择...

各位大神求一个复制功能，比如一串字符有中文 数字 英文 符号等组成，输入TT，选择文字后，只复制第一个中文起的不间断中文部分，其他中文不考虑复制，也不复制数字和其他等。

   比如这个文字   非消防封闭金属桥架 100X50上皮距梁下50安装      只复制   非消防封闭金属桥架

咏郡 发表于 2024-5-2 19:53:32

(defun c:tt(/ en html loop obj )
        (setq loop t)
        (while
                loop
                (if
                        (setqen(ssname (ssget ":s")0))
                        ;(setqen(car (entsel)))
                        (progn
                                (if
                                        (and
                                                (vlax-property-available-p(setq obj (vlax-ename->vla-object en ))'textstring)
                                                (if
                                                        (setq html (vlax-create-object "htmlfile"))
                                                        t
                                                        (progn
                                                                (alert "组件不完整")
                                                                (setq loop nil)
                                                        )
                                                )
                                                (setq result(vla-get-textstring obj) )
                                                (setq result (substr(vla-get-textstring obj)1(vl-string-search " " result)))
                                                (vlax-invoke
                                                   (vlax-get (vlax-get html 'parentwindow) 'clipboarddata)
                                                   'setdata
                                                   "text"
                                                   result
                                                )
                                                (vlax-release-object html)
                                       )
                                       (setq loop nil)
                               )
                           (print (strcat result "已复制到粘贴板！"))
                        )
                )
        )
        (princ)
)
你试试，我没试不知道怎么样？:lol

xyp1964 发表于 2024-5-2 21:13:13


zilong136 发表于 2024-5-2 22:55:45

咏郡 发表于 2024-5-2 19:53
(defun c:tt(/ en html loop obj )
        (setq loop t)
        (while


应该改为可以复制图中任意一段文字都行的,框选部分即为复制.这样更有适用性.

咏郡 发表于 2024-5-4 08:39:26

zilong136 发表于 2024-5-2 22:55
应该改为可以复制图中任意一段文字都行的,框选部分即为复制.这样更有适用性.

臣妾做不到呀:lol这都是别人的码改了一下
页: [1]
查看完整版本: 各位大神求一个复制功能，比如一串字符有中文 数字 英文 符号等组成，输入TT，选择...