lisp如何找到相同的te 乐筑天下 - Powered by Discuz! Archiver

ngolynguyen 发表于 2022-7-5 15:53:51

lisp如何找到相同的te

很抱歉，我在那里找到了很多话题，但直到现在都不适合我。
我要找的是一个lisp，它可以找到相同的多行文字（例如：我有多行文字28-00988_44332，它在绘图中出现了很多次），然后高亮显示/更改颜色/或使其与其他文字不同。
请帮帮我

TheCADnoob 发表于 2022-7-5 16:01:26

你需要Lisp程序吗？

我会临时使用QSELECT并按内容选择文本，然后在属性面板中进行更改。

ReMark 发表于 2022-7-5 16:13:36

你测试了这个建议？

TheCADnoob 发表于 2022-7-5 16:18:28

是的，似乎与我的简单测试运行一起工作。如果文本字符串不一定是唯一的或与其他字符串类似，则可能会出现问题。

也就是说我最初贴错了照片。我解决了这个问题。

BIGAL 发表于 2022-7-5 16:26:36

在这里搜索多行文字更改颜色BIGAL或LEE-MAC将尝试查找帖子它做你想做的事查找文字并更改颜色、字体、粗体等

dan113 发表于 2022-7-5 16:27:18

或者总是有查找和替换功能。只需键入“find”

使用Tapatalk从my Pixel XL发送

ngolynguyen 发表于 2022-7-5 16:37:45

如果我使用Cad 2007，我们有lisp吗？

SLW210 发表于 2022-7-5 16:41:42

我已经把你的帖子转移到AutoLISP、Visual LISP和DCL论坛，如果你想要一个LISP，那就是要问的论坛。

Stefan BMR 发表于 2022-7-5 16:52:24

从这里尝试SST lisp。也适用于MTEXT。
选择源文本，然后选择类似文本。lisp搜索源文本的精确匹配。
或者可以跳过源对象，然后指定要搜索的模式。
模式接受通配符：
-*ABC*选择包含序列ABC的所有文本
-ABC*选择以ABC开头的所有文本
-*ABC选择以ABC结尾的所有文本
有关通配符的更多信息。
注意：请记住，多行文字可以格式化，例如模式ABC*可能不会选择明显以ABC开头的对象（多行文字的真实内容可能是{fArial | b0 | i0 | c0 | p34；ABCDEF}

Grrr 发表于 2022-7-5 16:56:28

我也很开心：

(defun C:test ( / tgassoc *error* dcl des dch dcf v c vx SS )

; Toggle associator - connect toggle value (0 or 1) with symbol value (nil or T):
; (setq tgval (tgassoc (get_tile "tg")))
; (set_tile "tg" (tgassoc tgval))
(defun tgassoc ( keyorval ) (cadr (assoc keyorval '((nil "0")(T "1")("0" nil)("1" T)))) )

(vl-every 'eval
'(
(cond ( (not vlax-get-acad-object) (vl-load-com) (princ) vlax-get-acad-object) (vlax-get-acad-object) ( (alert "\nVisual lisp extensions not loaded.") ) )
(setq *error*
   (lambda ( msg )
      (and (< 0 dch) (unload_dialog dch))
      (and (eq 'FILE (type des)) (close des))
      (and (eq 'STR (type dcl)) (findfile dcl) (vl-file-delete dcl))
      (and msg (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*") (princ (strcat "\nError: " msg)))) (princ)
   ); lambda
); setq *error*
(setq dcl (vl-filename-mktemp nil nil ".dcl"))
(setq des (open dcl "w"))
(foreach x
   '((116 101 115 116 32 58 32 100 105 97 108 111 103)
      (123 32 108 97 98 101 108 32 61 32 34 83 101 108 101 99 116 32 98 121 32 116 101 120 116 32 99 111 110 116 101 110 116 34 59)
      (32 32 58 32 98 111 120 101 100 95 99 111 108 117 109 110)
      (32 32 123 32 99 104 105 108 100 114 101 110 95 97 108 105 103 110 109 101 110 116 32 61 32 99 101 110 116 101 114 101 100 59)
      (32 32 32 32 58 32 116 101 120 116 32 123 32 118 97 108 117 101 32 61 32 34 83 101 97 114 99 104 32 112 97 116 116 101 114 110
      58 32 34 59 32 105 115 95 100 101 102 97 117 108 116 32 61 32 116 114 117 101 59 32 125
      )
      (32 32 32 32 58 32 101 100 105 116 95 98 111 120 32 123 32 107 101 121 32 61 32 34 101 98 34 59 32 101 100 105 116 95 119 105
      100 116 104 32 61 32 50 54 59 32 125
      )
      (32 32 32 32 58 32 116 111 103 103 108 101 32 123 32 107 101 121 32 61 32 34 99 34 59 32 108 97 98 101 108 32 61 32 34 73 103
      110 111 114 101 32 99 97 115 101 34 59 32 97 108 105 103 110 109 101 110 116 32 61 32 99 101 110 116 101 114 101 100 59 32 118
      97 108 117 101 32 61 32 49 59 32 109 110 101 109 111 110 105 99 32 61 32 34 99 34 59 32 125 32
      )
      (32 32 32 32 115 112 97 99 101 114 59)
      (32 32 125)
      (32 32 58 32 98 117 116 116 111 110 32 123 32 107 101 121 32 61 32 34 115 34 59 32 108 97 98 101 108 32 61 32 34 83 101 108 101
      99 116 32 62 62 34 59 32 102 105 120 101 100 95 119 105 100 116 104 32 61 32 116 114 117 101 59 32 104 101 105 103 104 116 32
      61 32 50 59 32 97 108 105 103 110 109 101 110 116 32 61 32 99 101 110 116 101 114 101 100 59 32 125
      )
      (32 32 115 112 97 99 101 114 59 32 58 32 98 117 116 116 111 110 32 123 32 108 97 98 101 108 32 61 32 34 68 111 110 101 34 59
      32 105 115 95 99 97 110 99 101 108 32 61 32 116 114 117 101 59 32 102 105 120 101 100 95 119 105 100 116 104 32 61 32 116 114
      117 101 59 32 97 108 105 103 110 109 101 110 116 32 61 32 99 101 110 116 101 114 101 100 59 32 125 32 58 32 116 101 120 116 32
      123 32 107 101 121 32 61 32 34 101 114 114 111 114 34 59 32 118 97 108 117 101 32 61 32 34 67 114 101 100 105 116 115 32 116
      111 58 32 76 101 101 32 77 97 99 34 59 125
      )
      (125)
   )
   (princ (apply 'strcat (mapcar 'chr x)) des)
); foreach
(not (setq des (close des)))
(< 0 (setq dch (load_dialog dcl)))
(new_dialog "test" dch)
(mapcar '(lambda (a b) (action_tile a (apply 'strcat (mapcar 'chr b))))
   '("c" "eb" "s")
   '(
      (40 105 102 32 40 115 101 116 113 32 99 32 40 116 103 97 115 115 111 99 32 36
      118 97 108 117 101 41 41 32 40 115 101 116 95 116 105 108 101 32 34 101 98 34
      32 40 115 101 116 113 32 118 32 40 115 116 114 99 97 115 101 32 40 103 101 116
      95 116 105 108 101 32 34 101 98 34 41 41 41 41 41
      )
      (40 115 101 116 95 116 105 108 101 32 34 101 114 114 111
      114 34 32 34 34 41 32 40 115 101 116 113 32 118 32 36 118 97 108 117 101 41
      )
      (40 67 79 78 68 32 40 40 79 82 32 40 78 79 84 32 86 41 32 40 61
      32 86 32 34 34 41 41 32 40 83 69 84 95 84 73 76 69 32 34 101 114
      114 111 114 34 32 34 83 112 101 99 105 102 121 32 115 101 97 114
      99 104 32 112 97 116 116 101 114 110 33 34 41 32 40 77 79 68 69
      95 84 73 76 69 32 34 101 98 34 32 50 41 41 32 40 84 32 40 73 70
      32 67 32 40 83 69 84 81 32 86 32 40 83 84 82 67 65 83 69 32 86 41
      41 41 32 40 68 79 78 69 95 68 73 65 76 79 71 32 49 41 41 41
      )
   )
)
(= 1 (setq dcf (start_dialog)))
(progn
   (setq SS (ssadd))
   (vlax-for o (vla-get-Block (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object))))
      (and
      (vlax-property-available-p o 'TextString)
      (setq vx (vla-get-TextString o))
      (wcmatch (cond (c (strcase vx)) (vx)) v)
      (ssadd (vlax-vla-object->ename o) SS)
      )
   )
   (sssetfirst nil SS)
)
)
); and

(*error* nil) (princ)
); defun C:test
(vl-load-com) (princ)

页: [1]

乐筑天下's Archiver

lisp如何找到相同的te