664571221 发表于 2019-1-27 17:08:48

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

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

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

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

664571221 发表于 2019-1-28 16:27:42

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


用不起来啊

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

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

664571221 发表于 2019-1-30 08:49:41

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


no function definition: XYP-DXF

xyp1964 发表于 2019-1-30 14:15:46

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

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

xyp1964 发表于 2019-1-30 14:16:02

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

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

664571221 发表于 2019-1-30 14:42:53

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

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

buddhism8 发表于 2019-5-4 10:25:24

页: [1]
查看完整版本: 求一个删除字符功能，输入tt，提示删除几个字符，输入比如3，框选字符串，则删除前3个