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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;选择整数文字
(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)
)

;选择带数字的单词

游客，如果您要查看本帖隐藏内容请回复

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

楼主出品，必属精品。你太伟大了！

/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直接过滤选择整数，实数，单词，带数字文字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。