文字选中的困惑

chenbh2 · 发表于 2015-2-6 09:28

框选后
当文字内容有数字大于100
则亮选
求那位帮忙!或提供下文字内容有数字大于100的代码!
(defun c:tt( )

(setq ss (ssget "_:L" '((0 . "TEXT"))))

;这里不知道怎么写?

(sssetfirst ss ss)

  (princ)
)

Andyhon · 发表于 2015-2-6 10:02

本帖最后由 Andyhon 于 2015-2-6 10:03 编辑

(setq ss (ssget '((0 . "TEXT") (1 . "[1-9]##*"))))

自贡黄明儒 · 发表于 2015-2-6 12:00

(setq ss (ssget '((1 . "*[0-9]*"))))

sicky111 · 发表于 2015-2-6 12:16

自贡黄明儒发表于 2015-2-6 12:00
(setq ss (ssget '((1 . "*[0-9]*"))))

黄大师的好像不行呢

鱼与熊掌 · 发表于 2015-2-6 15:30

(setq ss(ssget '((0 . "*TEXT")))
(vl-remove-if-not '(lambda(x)
(progn
(setq str(cx-dxf 1 x))
(and(cx-strisnum str)(<(atoi str)100))
)
(cx-ss2list ss)
)
仅供参考未经测试

鱼与熊掌 · 发表于 2015-2-6 15:30

需要函数库支持 QQ群:64665600

鱼与熊掌 · 发表于 2015-2-6 15:35

(setq ss (ssget '((1 . "*[0-9]*"))))
(setq ss(vl-remve-if-not '(lambda(x) (<(atoi (cx-dxf 1 x))100)) (cx-ss2list ss))
(cx-lx ss)

chenbh2 · 发表于 2015-2-6 17:07

谢谢各位!
;大于100数字选中
(defun c:tt( )
(setq ss (ssget '((0 . "TEXT") (1 . "*[1-9]##*"))))
(sssetfirst ss ss)
(princ)
)
不知道小于100数字选中要如何修改

kwok · 发表于 2015-2-6 19:59

chenbh2 发表于 2015-2-6 17:07
谢谢各位!
;大于100数字选中
(defun c:tt( )

;小于100数字选中
(defun c:t6( / ss)
(setq ss (ssget '((0 . "TEXT") (1 . "[0-9]#"))))
(sssetfirst ss ss)
(princ)
)

sutai · 发表于 2015-2-6 20:33

楼主，30个明经币都舍不得拿出一两个啊？
你这……这叫人情何以堪……

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

[已解答] 文字选中的困惑

本帖被以下淘专辑推荐:

点评

点评