多行文字中的逆序

dbroada · 发表于 2022-7-6 07:02:47

我刚刚拿起别人的图纸，我希望技术部门拒绝电阻值。我们通常有值，然后是额定功率。在这些图纸上，它们大多是相反的。它们都是双线多行文字实体。

有没有人已经/想要编写一个快速的LISP，将Text1 Text2更改为text2text1？我需要通过光标而不是选择集来选择文本，因为并非所有条目都需要更改。

感谢任何想要尝试的人。

Lee Mac · 发表于 2022-7-6 07:24:39

假设未格式化多行文字：

copy

(defun c:revmt ( / e i n s x )
   (if (setq s (ssget "_:L" '((0 . "MTEXT") (1 . "*\\P*"))))
       (repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i))))
                 x (cdr (assoc 1 e))
                 n (vl-string-search "\\P" x)
           )
           (entmod (subst (cons 1 (strcat (substr x (+ 3 n)) "\\P" (substr x 1 n))) (assoc 1 e) e))
       )
   )
   (princ)
)

dbroada · 发表于 2022-7-6 07:53:01

我不知道为什么我要说“完美”，因为我真的没想到会有什么不同。

再次非常感谢李。

Lee Mac · 发表于 2022-7-6 08:03:22

不用担心Dave

[编程交流] 多行文字中的逆序

发表回复

精选推荐