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

YUYUFENG · 发表于 2022-7-25 18:18:14

请教各位高手，怎么框选后删除单行文字前的序号。

free-freak · 发表于 2022-8-5 23:27:31

本帖最后由 free-freak 于 2022-8-6 17:17 编辑

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

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

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

xj6019 · 发表于 2022-7-25 18:27:37

(setq s(cdr(assoc 1 (entget (setq ent(car(entsel "\n請拾取")))))))
(entmod(subst(cons 1 (substr s 3 (strlen s)))(assoc 1 (entget ent))(entget ent)))

liufii · 发表于 2022-8-6 09:19:24

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

好用，多谢分享！

自贡黄明儒 · 发表于 2022-7-25 18:25:40

(setq a (vl-string-left-trim "1234567890 . 、" a))

YUYUFENG · 发表于 2022-7-25 21:14:45

自贡黄明儒发表于 2022-7-25 18:25
(setq a (vl-string-left-trim "1234567890 . 、" a))

谢谢大佬~~~

YUYUFENG · 发表于 2022-7-25 21:35:46

xj6019 发表于 2022-7-25 18:27
(setq s(cdr(assoc 1 (entget (setq ent(car(entsel "\n請拾取")))))))
(entmod(subst(cons 1 (substr s 3 ...

大佬不行呀，

xj6019 · 发表于 2022-7-25 21:46:22

substr s 3 把3改成2 再试试

YUYUFENG · 发表于 2022-7-25 21:55:18

xj6019 发表于 2022-7-25 21:46
substr s 3 把3改成2 再试试

点第一次只是去掉了前面的数字，顿号没去掉。再点一次又是变成乱码了

mokson · 发表于 2022-7-26 09:00:38

这是什么字体，很好看。

戏男 · 发表于 2022-7-26 11:03:48

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

都成乱码了还好看？

guosheyang · 发表于 2022-7-26 15:19:32

这里提供个fas 请测试

账号		自动登录	找回密码
密码			注册

[提问] 请教怎么删除单行文字前两个字符串

本帖子中包含更多资源

点评

本帖子中包含更多资源

本帖子中包含更多资源