[求助]：帮忙编写一个把分散的文本连接成一行的程序

guanhuaming

谢谢！

lonelycoder

海鸥哥哥：你是个大笨伯。我已经把guanhuaming的问题用6分钟的时间编好了程序而且他已经使用过了，而且说：“很好用，谢谢。”，你还在教他如何变成MTEXT？？？真的很好笑啊。。。。

guanhuaming哥哥：2005的SDK没有下载，所以过几天再给您吧。耐心等待几天就好了。
BTW：还有东东要做吗？给我大点的吧。这种小东东是不值一提的啊。

斑竹先生：我的ARX已经增加了“fb”和"fb2"(按照段数等分打断和按照距离打断)2个命令，都是超爽的；“jt”都给了我10个币，为什么这两个不给我？？？？？？冤枉啊！！！！！！！！！！！！！！

lonelycoder

哥哥，我做了一个连接文字的命令，请多多指教啊。
使用方法：下载此文件，用appload 命令把它加载。（或者把它写到acad.rx里面去）执行命令jt，提问你选择第1个文本实体，注意它是被替换的实体了。然后选择要连接的文字，全部选择完毕，在左上角的对话框上还可以修改它再点确定，就把所有文字合并了。如果勾了“删除被连接的文字”，就会把所有被连接的文字删除掉。编写全部代码共使用了6分钟（包括编译啊，哥哥）。挺简陋的，不好意思，凑合着用吧。如果还有什么需求请告诉我，我会用几分钟时间给你们再做一个。谢谢！！！！

cqnj023

怎么过分散法，怎么过连法？

playboy

那叫文本合并

lsjjm

有什么特殊要求没有? 次序? 所有的文本都连成一行?

海鸥

能否将问题写具体一点，
你是想要将散的文字块（TEXT）做成一个文字块吗（MTEXT）？
还是要一个给以达到这个功能的LISP呀？

guanhuaming

不好意思，是我表达到的不清楚。就是文本合并的意思，把同一行上不同的text按顺序合并成一个text就行了。
比如下面一行有三个text：
我 是 中国人
我想把它合并成一个text对象：
我是中国人

谢谢

lonelycoder

哥哥：那您下载来试一下嘛，看看是否实现了您的要求。

eachy

最初由 lonelycoder 发布
[B]哥哥：那您下载来试一下嘛，看看是否实现了您的要求。 [/B]

提两个意见

1  去掉确定按钮，命令结束或者取消时对话框消失
2  删除连接文字做成一个按钮，点一次删除，再点恢复

lonelycoder

哥哥，你怎么不收我的邮件啊？ 不是要我帮你搞什么等高线嘛。

你的两个意见都暂时保留，因为你不是申请人；而“guanhuaming”才是真正的用户。除非“guanhuaming”叫我这么干，我才这么干，用户就是上帝！这个几分钟的小小命令有什么意思呢？给我一个大的吧，好吗？

八戒

论坛好久没有出来这样的牛人了，一直在潜水观看！搜索了楼上哥哥发的一些帖子，感觉真是不错！！希望以后多多来这里和大家交流！还有，楼上的哥哥能不能给大家介绍一些您多年来的开发经验啊！！毕竟论坛里面的人来自不同的行业，而CAD这种东西是一种专业软件，应用的行业不同是有很大差距的。。。还是希望哥哥能不能不要只是给大家一个编译后的程序，给大家具体介绍一下程序的具体实现原理。。。。最好有个源码什么的，也好让大家来学习学习啊。。。

lonelycoder

八戒哥哥：
给我出个题目，我就寄一份代码给你。我生平说到做到，真的。
还有，我真的不是牛人，只是他们太不牛了；关键不牛就不牛吧，还以为自己是牛的，这可怎么办？！
注意：你必须写邮件给我才回复。谢谢了。
lonelycoder@sina.com

ll_j

To lonelycoder：
说实在的，不知什么是大的题目，乱码的问题不知是不是大题目呢，Autodesk说，保存了的乱码是不可逆的，不知你能不能解决一下。我用Lisp试着解决，结果不很理想。附件中是两种乱码文件，供参考。

lonelycoder

各位哥哥：我的小程序增加了2个命令：fb：是输入段数来把任意的曲线（不管是线、弧、圆、椭圆、洋条等等等等，比小东的要强多了）搞断；fb2：是输入距离来把任意的曲线打断。跟AutoCAD的divide命令非常类似，不过不用在自己去break了，一点即断。请各大牛赐教！附注：第1个命令用了2分钟零21秒；第2个用了分钟零45秒。Hope you kind sir enjoy it!


另：ll_j  哥哥：对不起，我不讨论LiSP的问题。

ll_j

最初由 lonelycoder 发布
[B]对不起，我不讨论LiSP的问题[/B]

这不是Lisp的问题，这是Windows代码页的问题，高版本Acad打开低版本图形，会有乱码问题，MicroStation的图形转换为Dwg时，有时也会出现，Autodesk说，保存后就不可逆了，但其实有规律可寻。既然你在征集问题，就抽空帮助解决一下，以后也就不会再有人为此烦恼了。