如何在文本中使用通配符

CadProWannabe · 发表于 2022-7-5 23:13:18

 
(if (= (strcase txt) "AC")
   (setq txt "PV")
 )

当点的原始描述与AC匹配时，这将设置PV的文本实体。我的问题是，只有当文本字符串逐字匹配时，这才有效。有没有办法用这个词，这样我就可以使用通配符了。。例如，任何包含AC set txt的文本字符串都等于PV。

示例ED AC、AC GB、AC等，这些都需要等于PV

我正在使用Autocad Landdesktop 2006，我不太擅长这个lisp的东西，如果有任何帮助，将不胜感激。

LEsq · 发表于 2022-7-5 23:26:15

大概

copy


(setq txt "externalgboundary") ;; this one contains GB
(setq txt (if (wcmatch (strcase txt) "*ED*,*AC*,*GB*") "PV" txt))
"PV"

但是等待Lisp程序大师。。。同时看看“wcmatch”

HTH公司

wizman · 发表于 2022-7-5 23:34:26

看看wcmatch函数

（如果（wcmatch（strcase txt）“*AC*”）
...

哎呀，和上面乐的帖子一样

ollie · 发表于 2022-7-5 23:40:59

如果你知道正则表达式（grep），你会没事的。如前所述，wcmatch函数是最好的选择，但正则表达式风格的表达式可以在选择集中使用

奥利

Lee Mac · 发表于 2022-7-5 23:53:24

但你已经到了。。。

CAB · 发表于 2022-7-5 23:57:58

再一个：

copy

(if (vl-string-search "AC" (strcase txt))
   (setq txt "PV")
)

Gipslove4u · 发表于 2022-7-6 00:10:25

我不熟悉lisp例程，尝试在lisp中使用通配符重命名一堆文本样式名称，并更改其中的一个常见部分（类似于查找和替换，但无法使其工作。也许我做错了什么？

例如，我有文本样式名称，例如：
T10206-UC07-P0ZEN-110001-R7A-WIP$0$\u HZTXT
T10206-UC07-P0ZEN-110001-R7A-WIP$0$ARIAL
T10206-UC07-P0ZEN-110001-R7A-WIP$0$GHS
T10206-UC07-P0ZEN-110001-R7A-WIP$0$HG

我想删除“T10206-UC07-P0ZEN-110001-R7A-WIP$0$”
_HZTXT公司
宋体
全球统一制度
汞

或者至少把这个单词改成有意义的单词，比如“Old”
Old_HZTXT
旧宋体
旧GHS
旧HG
这是我到目前为止写的（好吧，这可能看起来很愚蠢……但正如我告诉你的那样，我对lisps是新手）：

（setq txtStyleName（tblobjname“style”（if（wcmatch（strcase txt）“T10206-UC07-P0ZEN-110001-R7A-WIP$0$*”））
（如果（/=txtStyleName nil）
（命令“-RENAME”“Style”“txtStyleName”“））
或

（setq txtStyleName（tblobjname“style”（if（wcmatch（strcase txt）“T10206-UC07-P0ZEN-110001-R7A-WIP$0$*”））
（如果（/=txtStyleName nil）
（命令“-RENAME”“Style”“txtStyleName”“Old”））

但这些都不管用扭曲的：

hmsilva · 发表于 2022-7-6 00:14:16

也许是这样

copy


(while (setq St (tblnext "STYLE" (null St)))
 (setq StLst (cons (strcase (cdr (assoc 2 St))) StLst))
);; while
(foreach st StLst
 (if (wcmatch st "T10206-UC07-P0ZEN-110001-R7A-WIP$0$*")
   (progn
     (setq i 0)
     (while (setq pos (vl-string-search "$" st i))
(setq i (1+ pos))
     );; while
     (setq newst (substr st (1+ i)))
     (command "-RENAME" "Style" st (strcat "Old " newst))
   );; progn
 );; if
);; foreach

HTH公司
亨里克

[编程交流] 如何在文本中使用通配符

发表回复

精选推荐