xstlf 发表于 2005-1-13 16:18:00

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

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


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

meflying 发表于 2005-1-13 16:28:00

所有的字母是什么？


(command "_.select" ss "")


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


(command "_.select" ss "")


。。。。。。

xstlf 发表于 2005-1-13 19:08:00

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

meflying 发表于 2005-1-13 21:17:00

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

wdb 发表于 2005-1-14 09:02:00

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

xstlf 发表于 2005-1-14 09:46:00

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

Ea 发表于 2005-1-14 19:33:00




文字 (wcmatch myType "*TEXT")


数值 (distof string)


页: [1]
查看完整版本: [求助]关于选择集分类问题。