代码修改（以避免

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中区分大小写的文本选择）

copy


(defun C:SWT ( / str ss sss i txt ) ; = Find String(s) by Content
  (setq str (getstring "\nYour [full or partial] 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
); defun

HTH。，M、 R。

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

非常感谢先生

[编程交流] 代码修改（以避免

发表回复

精选推荐