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

183017064

• 

  1. (defun c:tt (/ ss i ent obj txt len j found)
     
  2.   (vl-load-com)
     
  3.   (if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
     
  4.     (progn
     
  5.       (repeat (setq i (sslength ss))
     
  6.         (setq ent (ssname ss (setq i (1- i))))
     
  7.         (setq obj (vlax-ename->vla-object ent))
     
  8.         (setq txt (vla-get-TextString obj))
     
  9.         (setq len (strlen txt))
     
  10.         (setq j 1)
      
  11.         (setq found nil)
      
  12.         
      
  13.         (while (and (<= j (1- len)) (not found))
      
  14.           (if (= (substr txt j 1) (substr txt (1+ j) 1))
      
  15.             (setq found t)
      
  16.           )
      
  17.           (setq j (1+ j))
      
  18.         )
      
  19.         
      
  20.         (if found
      
  21.           (vla-put-Color obj 1) ; 设置为红色（索引1）
      
  22.         )
      
  23.       )
      
  24.       (princ "\n处理完成，已标记包含连续重复字符的文字。")
      
  25.     )
      
  26.     (princ "\n未选择任何文字对象。")
      
  27.   )
      
  28.   (princ)
      
  29. )

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

183017064

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

zhoupeng220

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

183017064

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

谢谢