如何从多类型的选择集中提取以字母开头的文字内容？

tryhi

gaics 发表于 2020-6-30 18:54
那不是我说的

不好意思，误会了，@代表字母

小万LISP

tryhi 发表于 2020-6-30 23:33
你的代码最好？我怀疑你没有看懂ssget "P"，所以自动忽略掉我的回复

;从选择集中提取以字母开头的文字 ...

抱歉，没有说清楚我的意图。
我的目的其实是：选择一些图形，把他们做成块，然后提取其中的以字母开头的文字，作为这个块的名称。

并不是单纯的要提取  以字母开头的文字。



并且我选择的图形中，只有唯一一个文字是以字母开头的。

tryhi

小万LISP 发表于 2020-7-1 05:56
抱歉，没有说清楚我的意图。
我的目的其实是：选择一些图形，把他们做成块，然后提取其中的以字母开头的 ...

如果这样的话，你要做成块的那个选择集，里面有非单行文本的图元，你的代码不出错？


;只有一个不是更简单？
(defun c:tt()
        (setq SS(ssget))
        (command "select" ss "")
        (setq ss@(ssget "P" '((1 . "@*"))))
        (setq en(ssname ss@ 0))
        (setq str(cdr(assoc 1(entget en))))
        (princ str)
        (princ)
)

start4444

发帖提问就虚心点好，难得海大神这么耐心解释，谁敢说自己写的码是最好