按通配符选文字

vectra · 发表于 2015-5-10 21:24:24

通配符参考wmatch说明，方便根据内容来快速筛选文字对象。

Wild-card characters

Character
Definition

# (pound)
Matches any single numeric digit.

@ (at)
Matches any single alphabetic character.

. (period)
Matches any single nonalphanumeric character.

* (asterisk)
Matches any character sequence, including an empty one, and it can be used anywhere in the search pattern: at the beginning, middle, or end.

? (question mark)
Matches any single character.

~ (tilde)
If it is the first character in the pattern, it matches anything except the pattern.

[...]
Matches any one of the characters enclosed.

[~...]
Matches any single character not enclosed.

- (hyphen)
Used inside brackets to specify a range for a single character.

, (comma)
Separates two patterns.

` (reverse quote)
Escapes special characters (reads next character literally).

(defun c:qs (/ rt ss)
(if (null *qs-text-pattern*)
(setq *qs-text-pattern* "C#,M#,FM#")
)
(if (/= ""
(setq rt (getstring (strcat "\n输入文字内容通配符 <\"" *qs-text-pattern* "\">: ")))
)
(setq *qs-text-pattern* rt)
)
(if (and
(setq ss (ssget (list '(0 . "*TEXT") (cons 1 *qs-text-pattern*))))
(= 0 (getvar "CMDACTIVE"))
)
(progn
(sssetfirst nil ss)
(princ (strcat "\n选择了 " (itoa (sslength ss)) " 个对象。"))
)
)
(princ)
)

Rimford · 发表于 2015-5-10 23:39:30

一直不知道LISP的通配符规定，谢谢

机械工程师 · 发表于 2015-5-12 13:48:57

错误: 输入的字符串有缺陷

vectra · 发表于 2015-5-12 14:10:27

机械工程师发表于 2015-5-12 13:48
错误: 输入的字符串有缺陷

请提供出现此错误时所使用的通配符，以帮助分析原因。

Throne · 发表于 2015-5-13 15:24:18

可参考小菜的选择易源码

机械工程师 · 发表于 2015-5-14 08:33:18

由于保存代码时按utf保存了，导致加载此文件会出现
错误: 输入的字符串有缺陷
的提示，
用ansi保存就没问题了。

详见下图。

happy336 · 发表于 2019-10-30 00:15:01

谢谢分享，学习了

sdls · 发表于 2019-11-6 12:01:47

感谢大神的分享！谢谢！

账号		自动登录	找回密码
密码			注册

[源码] 按通配符选文字

评分

本帖被以下淘专辑推荐:

本帖子中包含更多资源