删除字母，但不删除th

datalife · 发表于 2022-7-6 07:01:44

大家好

我收到了很多调查点，其中一些表明
数字（23.25）和一些数字字母（例如23.25IL；IL23.25）。

我需要删除“后面或前面”的字母表，但保留
数字。有任何lisp可以通过“围栏”一次性删除此内容吗？

这对我需要的所有计算都很重要
将点导出到其他软件。

谢谢你。
dwgtxt。图纸

Tharwat · 发表于 2022-7-6 07:35:11

试试这个。。

copy


(defun c:Test (/ ss)
 ;;; Tharwat 28. Jan. 2013 ;;
 (vl-load-com)
 (if (setq ss (ssget "_:L" '((0 . "TEXT"))))
   ((lambda (j / sn s e)
      (while (setq sn (ssname ss (setq j (1+ j))))
        (if (setq s (vl-remove-if-not
                      '(lambda (a) (or (<= 48 a 58) (eq 46 a)))
                      (vl-string->list (cdr (assoc 1 (setq e (entget sn)))))
                    )
            )
          (entmod (subst (cons 1 (vl-list->string s)) (assoc 1 e) e))
        )))
     -1
   ))
 (princ)
)

datalife · 发表于 2022-7-6 07:59:32

谢谢，效果很好。。。。。。

Tharwat · 发表于 2022-7-6 08:09:37

随时欢迎你。

[编程交流] 删除字母，但不删除th

发表回复

精选推荐