lengxiaxi 发表于 2024-4-10 19:50:43

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

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


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

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

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


vitalgg 发表于 2024-4-11 15:24:53

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

(defun remove-han ()
(setq txts (pickset:to-list (ssget '((0 . "text")))))
(mapcar '(lambda (x)
          (entity:putdxf x
             1
             (string:l2s-ansi
              (vl-remove-if '(lambda(x)
                              (> x 255))
                          (string:s2l-ansi (entity:getdxf x 1))))))
          txts)
(princ))
(defunc:rh ()
(remove-han))


命令: rh

lengxiaxi 发表于 2024-4-11 16:23:18

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



感谢大佬回帖；

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

错误: WinHttp.WinHttpRequest: 操作超时

vitalgg 发表于 2024-4-11 17:50:18

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

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


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

yjccwf 发表于 2024-4-11 09:17:23

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

飞雪神光 发表于 2024-4-11 09:49:05

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

xyp1964 发表于 2024-4-11 21:10:34




wangsr 发表于 2024-4-13 10:37:40

谢谢分享。

wangsr 发表于 2024-4-13 10:47:55

本帖最后由 wangsr 于 2024-4-13 10:49 编辑

我的2021-2023用不了


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

lengxiaxi 发表于 2024-4-13 11:42:47

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




没有函数库，需要下载下载e派工具箱；楼上前辈自己开发的，可以进他群下载；
页: [1] 2
查看完整版本: 有否一键删除的汉字的方法？