社区 › Auto Lisp › 代码修改（以避免

tnvsb 发表于 2022-7-5 13:16:42

代码修改（以避免

亲爱的助手们：，
 
我得到了一个lisp代码，可以通过用户输入选择整个图形中的文本元素。但它不适用于区分大小写的信件，也不要求选择窗口。请做必要的事。
 
（定义C:SWT（/str ss）；=按内容查找字符串
（setq str（getstring“\n要搜索的[完整或部分]字符串内容：”）
（if（setq ss（ssget“_X”（list（cons 0“*TEXT”）（cons 1（strcat“*”str“*”））））（cons 410（getvar‘ctabϨ）'）））
（sssetfirst nil ss）；选择/高亮显示/夹点
); 如果
); 德芬
 
当做
T、 布拉马南丹。

marko_ribar 发表于 2022-7-5 14:08:34

代码修改（避免LISP文本选择区分大小写）
 
代码修改（接受LISP中区分大小写的文本选择）
 

(defun C:SWT ( / str ss sss i txt ) ; = Find String(s) by Content
(setq str (getstring "\nYour string content to search for: "))
(setq sss (ssadd))
(if (setq ss (ssget (list (cons 0 "*TEXT") (cons 410 (getvar 'ctab)))))
    (repeat (setq i (sslength ss))
      (setq txt (ssname ss (setq i (1- i))))
      (if (wcmatch (cdr (assoc 1 (entget txt))) (strcat "*" str "*"))
      (ssadd txt sss)
      ); if
    ); repeat
); if
(if sss
    (sssetfirst nil sss); select/highlight/grip
); if
(princ); quiet exit
); defunHTH。，M、 R。

tnvsb 发表于 2022-7-5 14:38:35

非常感谢先生

查看完整版本: 代码修改（以避免