求一个删除字符功能，输入tt，提示删除几个字符，输入比如3，框选字符串，则删除前3个

664571221

求一个删除字符功能，输入tt，提示删除几个字符，输入比如3，框选字符串，则删除前3个

xyp1964

1. (defun c:tt ()
   
2.   (setq int (Uint 7 "" "删除数量" int))
   
3.   (setq i -1)
   
4.   (if (setq ss (ssget '((0 . "text"))))
   
5.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
6.       (if (> (strlen (xyp-DXF 1 s1)) int)
   
7.         (xyp-SubUpd s1 1 (substr tx (1+ int)))
   
8.       )
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt ()<br />   (setq int (Uint 7 "" "删除数量" int))<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (if (> (strlen (xyp-DXF 1 s1)) int)<br />         (xyp-SubUpd s1 1 (substr tx (1+ int)))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

664571221

xyp1964 发表于 2019-1-27 23:39

用不起来啊

xyp1964

1. (defun SubUpd (ename code newvalue)(entmod (subst (cons code newvalue) (assoc code (entget ename)) (entget ename))) (entupd ename))

(defun SubUpd (ename code newvalue)(entmod (subst (cons code newvalue) (assoc code (entget ename)) (entget ename))) (entupd ename))

664571221

xyp1964 发表于 2019-1-28 23:55

no function definition: XYP-DXF

xyp1964

664571221 发表于 2019-1-30 08:49
no function definition: XYP-DXF

(defun xyp-dxf (code e) (cdr (assoc code (entget e))))

xyp1964

664571221 发表于 2019-1-30 08:49
no function definition: XYP-DXF

(defun xyp-dxf (code e) (cdr (assoc code (entget e))))

664571221

xyp1964 发表于 2019-1-30 14:16
(defun xyp-dxf (code e) (cdr (assoc code (entget e))))

谢谢伟大的e派院长，祝你福如东海，寿比南山，洪福齐天，寿与天齐

buddhism8