183017064 发表于 2025-2-20 13:44:55

单行文字和多行文字有叠字笔误提示功能，比较鸡肋，还不太完善。DS

本帖最后由 183017064 于 2025-2-27 10:23 编辑


[*](defun c:tt (/ ss i ent obj txt len j found)
(vl-load-com)
(if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
    (progn
      (repeat (setq i (sslength ss))
      (setq ent (ssname ss (setq i (1- i))))
      (setq obj (vlax-ename->vla-object ent))
      (setq txt (vla-get-TextString obj))
      (setq len (strlen txt))
      (setq j 1)
      (setq found nil)
      
      (while (and (<= j (1- len)) (not found))
          (if (= (substr txt j 1) (substr txt (1+ j) 1))
            (setq found t)
          )
          (setq j (1+ j))
      )
      
      (if found
          (vla-put-Color obj 1) ; 设置为红色（索引1）
      )
      )
      (princ "\n处理完成，已标记包含连续重复字符的文字。")
    )
    (princ "\n未选择任何文字对象。")
)
(princ)
)

183017064 发表于 2025-2-20 14:05:35

问一下大家，如何把程序发布这样的file:///C:/Users/Administrator/Desktop/78342d1969c397aac82a7ff5f206d27.png

zhoupeng220 发表于 2025-2-20 15:14:16

本帖最后由 zhoupeng220 于 2025-2-20 15:16 编辑

高级模式下面有个<>添加文字代码

183017064 发表于 2025-2-20 15:19:07

zhoupeng220 发表于 2025-2-20 15:14
高级模式下面有个添加文字代码

谢谢:handshake
页: [1]
查看完整版本: 单行文字和多行文字有叠字笔误提示功能，比较鸡肋，还不太完善。DS