如何把一层里面的文字按照字母开头的和数字开头的分开吗？

spshchen

如何把一层里面的文字按照字母开头的和数字开头的分开吗？


如 5dB和PC13-FB1本来是一个层的，想把他分开2个层。

Student

下面的代码已试过，供参考： (defun c:fc(/ lay1 lay2 ss sn si i wText c1)
(setq lay1 "数字开头的文字" lay2 "字母开头的文字")
(command "_.layer" "m" lay1 "m" lay2 "")
(setq ss(ssget "x" (list(cons 0 "TEXT"))))
(setq sn(if ss (sslength ss) 0))
(setq i 0)
(while(< i sn)
(setq si(ssname ss i))
(setq wText(cdr(assoc 1 (entget si))))
(setq c1(substr wText 1 1))
(if(and(> c1 "/")(< c1 ":"))
(command "_.change" si "" "p" "la" lay1 "")
(command "_.change" si "" "p" "la" lay2 "")
)
(setq i(1+ i))
)
(princ)
)
;

spshchen

谢谢，这位大哥，已经把问题解决