社区 › AutoLISP/Visual LISP 编程技术 › 小菜版选择易，欢迎使用并提出完善建议

hillandkidd 发表于 2011-8-24 19:01:25

仰望大师们

urdiafa 发表于 2011-8-24 20:03:37

謝謝,學習了.....

lingduwx 发表于 2011-8-28 13:44:56

偶终于下到源码了，主要是偶好修改快捷键，呵呵，顶一个哈哈

mj0000 发表于 2011-8-31 16:32:56

好久没上来，版本更新很快，提个建议，选择文字的时候，可否区别汉字、英文、数字。
贴点代码，以前从论坛上收集来的，具体是谁的忘了。
;;;用ssget过滤表选取
(ssget '((0 . "TEXT")(1 . "~*[!-~]*"))) ;_仅选取汉字(含空格)
(ssget '((0 . "TEXT")(1 . "~*[ -~]*"))) ;_仅选取汉字(不含空格)

(ssget '((0 . "TEXT")(1 . "~*[~ -@~]*"))) ;_仅选取数字(含空格)
(ssget '((0 . "TEXT")(1 . "~*[~!-@~]*"))) ;_仅选取数字(不含空格)

(ssget '((0 . "TEXT")(1 . "*[~!-~]*"))) ;_含有汉字(含空格)及非汉字含空格。

(ssget '((0 . "TEXT")(1 . "*[~ -~]*"))) ;_含有汉字(含空格)

(ssget '((0 . "TEXT")(1 . "~*[~ -~]*"))) ;_不包含汉字，非汉字可含空格。
(ssget '((0 . "TEXT")(1 . "~*[~!-~]*"))) ;_不包括汉字，非汉字不含空格。

(ssget '((0 . "TEXT")(1 . "~*['.@#]*"))) ;_仅选取含有特殊字符(如：!@#$等)及小数点的任意字符
(ssget '((0 . "TEXT")(1 . "~*[@#]*")));_仅选取含有汉字、字母、数字、空格、小数点的任意字符(即不含特殊字符，如：!@#$等)

(ssget '((0 . "TEXT")(1 . "~* *"))) ;_不包含空格的任意字符
(ssget '((0 . "TEXT")(1 . "~*@*"))) ;_不包含字母字符的任意字符，非字母含空格

(ssget '((0 . "TEXT")(-4 . "<AND")(1 . "~*#*")(-4 . "AND>"))) ;_选取不包含数字的字符串(含空格)
(ssget '((0 . "TEXT")(-4 . "<AND")(1 . "*#*")(-4 . "AND>"))) ;_选取包含数字的字符串(含空格)
(ssget '((0 . "TEXT")(-4 . "<AND")(1 . "~*@*")(-4 . "AND>"))) ;_选取不包含字母的字符串

小菜123 发表于 2011-8-31 17:01:43

帮助文件里也收集了一些过滤方式，下回我改成可以copy的，方便使用。在文字内容处粘贴：*[~ -~]*，并勾选实体类型和文字内容，就可以过滤含有汉字的文字了，其它类似处理。

highflybird 发表于 2011-8-31 17:29:15

建议：
这个程序中如果增加对斯维尔的操作就好了。（做法很简单：把程序中的"TCH" 全部替换成"SWR",“天正”替换成“斯维尔”，就可以了。）
另外，可能这个程序对天正的实体存在一定bug。（应该说来是天正的bug)，但斯维尔的不存在。

FUShouyin 发表于 2011-8-31 19:14:55

支持，功能不错

wang.bay 发表于 2011-8-31 19:57:47

支持一下

mac 发表于 2011-8-31 20:02:40

好帖子就要顶！

小菜123 发表于 2011-8-31 20:34:43

highflybird 发表于 2011-8-31 17:29 static/image/common/back.gif
建议：
这个程序中如果增加对斯维尔的操作就好了。（做法很简单：把程序中的"TCH" 全部替换成"SWR",“天正 ...

没有斯维尔的软件，没法测试，难道天正做自定义实体的跳槽到了斯维尔？做出的实体定义完全相同？

查看完整版本: 小菜版选择易，欢迎使用并提出完善建议