请教怎么删除单行文字前两个字符串

YUYUFENG

guosheyang 发表于 2022-7-26 15:19
这里提供个fas 请测试

这个也不错，谢谢大佬~~

YUYUFENG

mokson 发表于 2022-7-26 09:00
这是什么字体，很好看。

单位用的FSD吧

free-freak

2. (defun c:ttt ()
   
3.   (vl-load-com)
   
4.   (setq int (getint "输入删除字符的个数"))
   
5.   (setq i -1)
   
6.   (if (setq ss (ssget '((0 . "text"))))
   
7.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.       (setq s1list (vl-string->list (xyp-DXF 1 s1)))
   
9.       (setq n 0)
   
10.       (setq j 0.0)
    
11. 
    
12.       (while (< j int)
    
13.         (if (> (nth n s1list) 127)
    
14.           (setq j (+ j 0.5))
    
15.           (setq j (1+ j))
    
16.         )
    
17.         (setq n (1+ n))
    
18.       )
    
19.       (if (> (strlen (xyp-DXF 1 s1)) n)
    
20.         (xyp-SubUpd s1 1 (substr (xyp-DXF 1 s1) (1+ n)))
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. 
    
27. (defun xyp-SubUpd (ename code newvalue)
    
28.   (entmod (subst (cons code newvalue)
    
29.                  (assoc code (entget ename))
    
30.                  (entget ename)
    
31.           )
    
32.   )
    
33.   (entupd ename)
    
34. )
    
35. 
    
36. (defun xyp-dxf (code e)
    
37.   (cdr (assoc code (entget e)))
    
38. )
    

(defun c:ttt ()<br />   (vl-load-com)<br />   (setq int (getint "输入删除字符的个数"))<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq s1list (vl-string->list (xyp-DXF 1 s1)))<br />       (setq n 0)<br />       (setq j 0.0)<br /> <br />       (while (< j int)<br />         (if (> (nth n s1list) 127)<br />           (setq j (+ j 0.5))<br />           (setq j (1+ j))<br />         )<br />         (setq n (1+ n))<br />       )<br />       (if (> (strlen (xyp-DXF 1 s1)) n)<br />         (xyp-SubUpd s1 1 (substr (xyp-DXF 1 s1) (1+ n)))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun xyp-SubUpd (ename code newvalue)<br />   (entmod (subst (cons code newvalue)<br />                  (assoc code (entget ename))<br />                  (entget ename)<br />           )<br />   )<br />   (entupd ename)<br /> )<br /> <br /> (defun xyp-dxf (code e)<br />   (cdr (assoc code (entget e)))<br /> )<br />

根据 e派 大神的源码整理修改，增加了判断统计特殊字符部分，新手学习，望多指正

liufii

free-freak 发表于 2022-8-5 23:27
(defun c:ttt ()
  (vl-load-com)
  (setq int (getint "输入删除字符的个数"))

好用，多谢分享！