有否一键删除的汉字的方法？

lengxiaxi

有否一键删除的汉字的程序？


单行文本有时候文本只需要英文或数字，需要把文本中的汉字去除；

手动去除费时间；有否类似word文档里一键删除汉字的方法？

（word文档去除汉字是替换法；用通配符  +  [!^1-^127]替换为空格）

vitalgg

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. 
   
3. (defun remove-han ()
   
4.   (setq txts (pickset:to-list (ssget '((0 . "text")))))
   
5.   (mapcar '(lambda (x)
   
6.             (entity:putdxf x
   
7.              1
   
8.              (string:l2s-ansi
   
9.               (vl-remove-if '(lambda(x)
   
10.                               (> x 255))
    
11.                             (string:s2l-ansi (entity:getdxf x 1))))))
    
12.           txts)
    
13.   (princ))
    
14. (defun  c:rh ()
    
15.   (remove-han))
    

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> (defun remove-han ()<br />   (setq txts (pickset:to-list (ssget '((0 . "text")))))<br />   (mapcar '(lambda (x)<br />             (entity:putdxf x<br />              1<br />              (string:l2s-ansi<br />               (vl-remove-if '(lambda(x)<br />                               (> x 255))<br />                             (string:s2l-ansi (entity:getdxf x 1))))))<br />           txts)<br />   (princ))<br /> (defun  c:rh ()<br />   (remove-han))<br />

命令: rh

lengxiaxi

vitalgg 发表于 2024-4-11 15:24
命令: rh

感谢大佬回帖；

在文字不多的情况下，响应超时，没有成功过；可能接口有问题；

错误: WinHttp.WinHttpRequest: 操作超时

vitalgg

lengxiaxi 发表于 2024-4-11 16:23
感谢大佬回帖；

在文字不多的情况下，响应超时，没有成功过；可能接口有问题；

这是联网问题。
需要CAD能访问互联网才行。

yjccwf

有啊  你加我qq 562860217  我跟你写个

飞雪神光

换个思路 只保留非汉字的字符

xyp1964

wangsr

谢谢分享。

wangsr

我的2021-2023用不了


命令: TT
; 错误: no function definition: XYP-START
这是什么情况？

lengxiaxi

wangsr 发表于 2024-4-13 10:47
我的2021-2023用不了

没有函数库，需要下载下载e派工具箱；楼上前辈自己开发的，可以进他群下载；