那不是我说的
不好意思，误会了，@代表字母 本帖最后由 小万LISP 于 2020-7-1 06:01 编辑
tryhi 发表于 2020-6-30 23:33
你的代码最好？我怀疑你没有看懂ssget "P"，所以自动忽略掉我的回复
;从选择集中提取以字母开头的文字 ...
抱歉，没有说清楚我的意图。
我的目的其实是：选择一些图形，把他们做成块，然后提取其中的以字母开头的文字，作为这个块的名称。
并不是单纯的要提取以字母开头的文字。
并且我选择的图形中，只有唯一一个文字是以字母开头的。
小万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)
) 发帖提问就虚心点好，难得海大神这么耐心解释，谁敢说自己写的码是最好
页:
1
[2]