删除字母，但不删除th
大家好我收到了很多调查点，其中一些表明
数字（23.25）和一些数字字母（例如23.25IL；IL23.25）。
我需要删除“后面或前面”的字母表，但保留
数字。有任何lisp可以通过“围栏”一次性删除此内容吗？
这对我需要的所有计算都很重要
将点导出到其他软件。
谢谢你。
dwgtxt。图纸 试试这个。。
(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)
)
谢谢，效果很好。。。。。。
随时欢迎你。
页:
[1]