- 积分
- 1156
- 明经币
- 个
- 注册时间
- 2015-11-26
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2018-5-15 13:32:00
|
显示全部楼层
本帖最后由 张大锤 于 2018-5-15 13:35 编辑
需要先确定你的* 是使用在那里
如果是setq 那只是个名称 (我是从来不会把变量名字里面加*的或者加符号的)
如果在:ssget里面的话 会起到很大的作用
(setq wz (ssget "c" p1 p2 '((-4 . "<AND")(1 . "方形1,方形2,方形3,1圆形1,2圆形2,3圆形3")(-4 ."AND>"))))
这样写很麻烦↑
(setq wz (ssget "c" p1 p2 '((-4 . "<AND")(1 . "方形*,*圆形*")(-4 ."AND>"))))
如果用*写 可以这样很方便的概括了
;只选择含数字的文本(好理解)
(defun c:test11()
(setq ss (ssget '((1 . "*[0-9]*"))))
)
;只选择含数字的文本( 同上)(感谢caoyin提供)
(defun c:test11()
(setq ss (ssget '((1 . "*#*"))))
)
;只选择数字文本
(defun c:test12()
(setq ss (ssget '((0 . "text,mtext") (1 . "~*[~.0-9]*" ))) )
)
;选择不含数字的文本
(defun c:test13()
(setq ss (ssget '((-4 . "<NOT")
(1 . "*[0-9]*")
(-4 . "NOT>"))
)))
;选择不含数字的文本(同上)(caoyin 提供的)
(defun c:test13()
(setq ss(ssget '((1 . "~*#*"))))
)
;只选择含字母的文本(好理解)
(defun c:test14()
(setq ss (ssget '((1 . "*[a-A-z-Z]*"))))
)
;只选择字母文本
(defun c:test15()
(setq ss (ssget '((0 . "text,mtext") (1 . "~*[~a-A-z-Z]*" ))))
)
;只选择不含字母的文本
(defun c:test16()
(setq ss (ssget '((-4 . "<NOT")
(1 . "*[a-A-z-Z]*")
(-4 . "NOT>"))))
)
;只选择不含字母的文本(同上)
(defun c:test16()
(setq ss (ssget '((1 . "~*[a-A-z-Z]*"))))
)
|
评分
-
查看全部评分
|