Lee Mac 发表于 2022-7-6 08:18:03

 
干杯Dadgad
 
我也希望如此!

bigmaz 发表于 2022-7-6 08:21:20

嗨,李,像往常一样,你太棒了!!!
 
我已经使用了您创建的lisp:
 
http://www.cadtutor.net/forum/showthread.php?64606-前缀后缀添加到数字或文本
 
我只是分层,然后通过过滤大小删除所有大数字,然后使用前缀lisp删除每一层。从来没有花很长时间,但没有你刚刚发布的口吃u那么快,doh,hehe!!!
 
再次感谢李

bigmaz 发表于 2022-7-6 08:25:57

事实上,我只是尝试了lisp,当我打开所有的数字时,它不起作用。如果我在更少的dtext对象上使用更小的窗口,它就会工作。李,它一次可以处理的数量有限制吗?我有38052个dtext对象

Lee Mac 发表于 2022-7-6 08:27:47

 
谢谢Martin,我很高兴你能找到解决方案。
这提醒了我,我需要在某个时候将前缀/后缀实用程序添加到我的站点。。。
 
 
38,000! 哇-你肯定想在几个选择中处理这一部分。。。我发布的程序中实现的算法没有得到充分优化(我不会花太多时间),因此在大型文本对象集上可能速度较慢。出于兴趣,您会遇到什么错误?

bigmaz 发表于 2022-7-6 08:29:44

 
顺便说一句,LovinUr的网站让lotsaLisp程序了。
 
我实际上没有得到任何错误,它实际上改变了一些,它似乎停留在命令中,我只需按escape,它就会出现命令。

bigmaz 发表于 2022-7-6 08:34:11

这是我扫描对象后的命令行
 

 
它没有崩溃或任何事情,我只需按esc键,它就会返回到命令行
 
编辑:实际上,右上角的变化似乎很小
 

Lee Mac 发表于 2022-7-6 08:38:09

 
太好了,很高兴你喜欢!
 
 
这就是我所期望的——这是我在程序中实现的算法以及选择中的大量对象的结果。该程序最终将完成处理,如果您让它继续工作,它将转换所有对象,尽管这可能需要一些时间。
 
解释过程:程序首先提示选择要处理的所有文本对象。从该选择中,它将构建一个列表列表,其中每个子列表包含每个文本对象的文本高度、插入点和DXF数据。然后,程序将按文本高度对这些子列表进行分组,以便将具有相同文本高度的所有对象分组在一个列表中。然后按高度对组进行排序(此操作可能很短,因为通常只有两组对象)。现在,对于较小文本对象列表中的每个项目,程序将迭代较大文本对象列表中的每个项目,并检索插入点最接近较小文本对象插入点的对象。将这个最近的较大文本项的内容与较小文本项的内容串联(使用点分隔符完成),然后从较大文本项列表中删除较大文本项。然后,该程序使用较小文本对象列表中的下一项重复该过程。
 
如您所见,当处理完所有较小的文本对象后,该算法确实会终止,不过,通过对每个较小对象的较大对象集进行迭代,对于较大的对象集,该算法可能需要很长时间。

bigmaz 发表于 2022-7-6 08:41:32

嗨,李,我离开了几分钟,就像你说的,它在整个绘图过程中发挥了很大的作用。对不起,这会教会我以后要更有耐心,呵呵!多么惊人的Lisp程序,我们很快就会收到另一个类似的Lisp程序,所以我们将使用它来完成这一个
 
再次感谢,继续做好你的工作。
 
马丁

Lee Mac 发表于 2022-7-6 08:43:45

谢谢Martin,好东西
页: 1 [2]
查看完整版本: 在每个dt之前添加一个数字