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

664571221

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

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

咏郡

(defun c:tt(/ en html loop obj )
        (setq loop t)
        (while
                loop
                (if
                        (setq  en(ssname (ssget ":s")0))
                        ;(setq  en(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)
)
你试试，我没试不知道怎么样？

xyp1964

zilong136

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

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

咏郡

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

臣妾做不到呀这都是别人的码改了一下