论坛 › A/VLISP › SSGET直接过滤选择整数，实数，单词，带数字文字

marting 发表于 2016-12-15 22:31:27

SSGET直接过滤选择整数，实数，单词，带数字文字

;选择整数文字
(defun c:SelTextInt ()
(sssetfirst
    nil
    (ssget
      "_X"
      '(
      (0 . "MTEXT,TEXT")
      (1 . "*#*")
      (1 . "~*[~-0-9]*")
      (1 . "~?*-*")
      )
    )
)
(princ)
)



;选择实数
(defun c:SelTextReal ()
(sssetfirst
    nil
    (ssget
      "_X"
      '(
      (0 . "MTEXT,TEXT")
      (1 . "*#`.*")
      (1 . "~*[~-.0-9]*")
      (1 . "~*`.*`.*")
      (1 . "~?*-*")
      )
    )
)
(princ)
)



;选择单词
(defun c:SelTextAlpha ()
(sssetfirst
    nil
    (ssget
      "_X"
      '(
      (0 . "MTEXT,TEXT")
      (1 . "~*#*")
      )
    )
)
(princ)
)


;选择带数字的单词
**** Hidden Message *****

qq564837358 发表于 2016-12-15 23:33:40

做个记号，学习了。

cable2004 发表于 2016-12-15 23:57:58

正需要，支持楼主大人了！

cq_qg68 发表于 2016-12-16 08:33:51

初学者很好的参考。

dnbcgrass 发表于 2016-12-16 08:34:03

回复学习学习！

HLCAD 发表于 2016-12-16 08:42:05

楼主出品，必属精品。你太伟大了！{:1_23:}

/db_自贡黄明儒_ 发表于 2016-12-16 08:42:33

本帖最后由 /db_自贡黄明儒_ 于 2016-12-16 09:01 编辑

(setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))            ;只选取数字文本
(setq ss (ssget '((0 . "TEXT") (1 . "[`--9]?"))))            ;二位整数
(setq ss (ssget '((0 . "TEXT") (1 . "[`--9]"))))            ;一位整数

1025868850 发表于 2016-12-16 10:11:39

学习了，学习分享

yufeng37 发表于 2016-12-16 12:53:19

确实是难得好帖啊，顶先

tzfcn 发表于 2016-12-16 14:43:41

这个代码写的不错，值得一看。

zjy2999 发表于 2016-12-16 15:42:08

学习！！！！！！！！！！！！！！！

ynhh 发表于 2016-12-16 15:43:25

谢谢大师的分享
学习了

向嘟嘟 发表于 2016-12-17 11:01:26

确实不错，谢谢分享。

sicky111 发表于 2016-12-19 08:55:33

/db_自贡黄明儒_ 发表于 2016-12-16 08:42


黄大师的精简啊。

xc3324689 发表于 2016-12-19 11:32:56

感谢楼主分享

查看完整版本: SSGET直接过滤选择整数，实数，单词，带数字文字