社区 › Auto Lisp › 修改文本。

Lt Dan's l 发表于 2022-7-6 10:40:17

修改文本。

措辞因工作而异
 
假设我已经为这个文本插入了文字，最大的矩形--x--。
 
一旦我检索到这个，我如何将文本更改为最大的矩形--x
 
不同工作的措辞有所不同，但是--x--。保持不变。

Lee Mac 发表于 2022-7-6 11:08:10

您希望通过什么来识别变化？在“x”之后删掉所有内容？

Lt Dan's l 发表于 2022-7-6 11:20:49

这是正确的。

Lee Mac 发表于 2022-7-6 11:49:16

写得很快：
 

(defun c:revtxt nil
(
   (lambda ( s i / e a l ) (vl-load-com)
   (if s
       (while (setq e (ssname s (setq i (1+ i))))
         (if (wcmatch (setq a (cdr (assoc 1 (setq l (entget e))))) "*x*")
         (entupd
             (cdr
               (assoc -1
               (entmod
                   (subst
                     (cons 1 (substr a 1 (1+ (vl-string-position 120 a)))) (assoc 1 l) l
                   )
               )
               )
             )
         )
         )
       )
   )
   )
   (ssget "_:L" '((0 . "TEXT"))) -1
)
(princ)
)

查看完整版本: 修改文本。