[求助]关于选择集分类问题。

xstlf

我有这样一个选择集ss.现在我想在ss中找出所有的数字形成一个选择集ss1.再找出ss中所有的字母,形成一选择集ss2.再找出ss中的所有属性块，形成一个选择集ss3.


我该怎么办呀，老师们帮我指点迷径呀？

meflying

所有的字母是什么？


(command "_.select" ss "")


(ssget "p" '((0 . "TEXT")))


(command "_.select" ss "")


。。。。。。

xstlf

比如说，选择集里有，1231这些数字，还有，abcd这些字母，还有一些属性块，我要找出那些是，阿拉伯数字。那些是，字母，那些是块，分别归到一个不同的选择集中去呀。

meflying

前面那些类别只能事后判断了。。。

wdb

(defun try (/ ss ss1 ss2 ss3 i name eng myType word )
(setq ss (ssget "X"))
(setq ss1 (ssadd))
(setq ss2 (ssadd))
(setq ss3 (ssadd))
(setq i 0)
(repeat (sslength ss)
(setq name (ssname ss i))
(setq eng (entget name))
(setq myType (cdr (assoc 0 eng)))
(if (or (= myType "TEXT") (= myType "MTEXT"))
(progn
(setq word (cdr (assoc 1 eng)))
(if (= word (itoa (atoi word)));仅适用于整数
(ssadd name ss1)
(ssadd name ss2)
)
)
)
(if (= myType "INSERT")
(ssadd name ss3)
)
(setq i (1+ i))
)
)

xstlf

谢谢两位老师。我看懂了。

Ea

3. 
   
4. 文字 (wcmatch myType "*TEXT")
6. 
   
7. 数值 (distof string)
9. 
   

复制代码