Tharwat 发表于 2022-7-5 23:53:24

 
我完全同意你的意见。但是这个文件是我很久以前在某个地方做的，我不知道他或她是从哪里得到的？
 
我只是想引起他或她的注意。。。。仅此而已。
 
谢谢你的关心。
 
塔瓦特

jcap91163 发表于 2022-7-5 23:54:08

我发现合并例程更有用，即使合并文本也很棒，非常感谢

antistar 发表于 2022-7-5 23:57:48

艾伦，
 
你把多个文本合并成一个新文本，而不修改之前的文本，这是在改变你的常规吗？
 
提前谢谢。

alanjt 发表于 2022-7-6 00:01:48

很抱歉，我不理解你的问题。

antistar 发表于 2022-7-6 00:06:32

他的例行公事很有趣，但修改了原文。我需要一个例程，创建一个新的文本与几个文本的组合？
 
谢谢

MSasu 发表于 2022-7-6 00:08:12

我认为@scamaru希望合并的文本是一个新的实体，而不是修改第一个。如果是这样的话，请注意post#4中的例程——OP代码的固定版本——正在这样做。
 
当做

alanjt 发表于 2022-7-6 00:12:03

您希望我的提交例程合并所有值，并提示用户将合并后的字符串放入新的文本中。这是正确的吗？

antistar 发表于 2022-7-6 00:14:28

没错，艾伦。按字母顺序排列。

alanjt 发表于 2022-7-6 00:19:10

在这里，我感觉很慷慨，目前不想参与我目前的项目。
 
（defun c：联合收割机（/ss）；；合并所有选定的文本并放置到新的文本对象中；；基于字母顺序的文本排序；；艾伦·J·汤普森，08.02.10（if（setq ss（ssget“：L”（（0。“TEXT”）））（（lambda（i/del e lst pt）（initget 0“Yes No”）（setq del（eq“Yes”（getkword“\n删除原件？：”））（而（setq e（ssname ss（setq i（1+i））））（setq lst（cons（cdr（assoc 1（entget e）））lst））（和del（entdel e））））（if（setq pt（getpoint“\n指定文本放置点：”））（）（entmake（list’（0。“TEXT”）（cons 10（trans pt 1 0））（cons 40（getvar‘textsize））（cons 1（AT:Lst2Str（vl sort lst）’

antistar 发表于 2022-7-6 00:19:52

艾伦，
干得好。这正是我需要的。
 
谢谢你的帮助和耐心。
页: 1 [2]
查看完整版本: 组合两个文本右近