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

文字选中的困惑

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

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

;这里不知道怎么写?

(sssetfirst ss ss)

(princ)
)

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

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

(setq ss (ssget '((0 . "TEXT") (1 . "##*"))))

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

(setq ss (ssget '((1 . "**"))))

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

自贡黄明儒 发表于 2015-2-6 12:00 static/image/common/back.gif
(setq ss (ssget '((1 . "**"))))

黄大师的好像不行呢

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

(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:59

需要函数库支持 QQ群:64665600

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

(setq ss (ssget '((1 . "**"))))
(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:50

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

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

chenbh2 发表于 2015-2-6 17:07 static/image/common/back.gif
谢谢各位!
;大于100数字选中
(defun c:tt( )


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

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

楼主，30个明经币都舍不得拿出一两个啊？
你这……这叫人情何以堪……
页: [1] 2
查看完整版本: 文字选中的困惑