[求助]：文字修改大师的作者coolzhb请进~

zxf309

是呀 用CASS做的 是不是块到没注意 一会回去看看  程序也没试呢 其他事耽误了 谢谢你啦
有问题和你说 我QQ；76274608 能加我吗？

自由的鱼

最初由 zxf309 发布
[B]是呀 用CASS做的 是不是块到没注意 一会回去看看  程序也没试呢 其他事耽误了 谢谢你啦
有问题和你说 我QQ；76274608 能加我吗？ [/B]

你可以写信给我，我没用QQ的。我的信箱，beercz@163.net

在论坛上发帖也可以，只要在家，我就肯定在线！：）

zxf309

刚才用了下程序，基本能满足要求了
还有几点，还得麻烦你完善一下 ：）
1、最好能把原文本删除，并在原处生成新的文本。
2、新的文本是整数时应该也有小数位。如24.0 ，现在是24
3、我这个图上有些高程点的Z坐标小数位不止一位，如：24.507，Z值可直接减少0.5变成24.007，但是新生成的文本应该是24.0，而非24.007。望增加一个四舍五入函数。
嘿嘿 还得麻烦你了
对了 CAD中怎么在命令栏里调用VBA函数呀？用什么命令？
或者作个快捷键也行

自由的鱼

最初由 zxf309 发布
[B]刚才用了下程序，基本能满足要求了
还有几点，还得麻烦你完善一下 ：）
1、最好能把原文本删除，并在原处生成新的文本。
2、新的文本是整数时应该也有小数位。如24.0 ，现在是24
3、我这个图上有些高程点的Z坐标... [/B]

呵呵~~~删除文本还要程序啊？用qselect就可以了，四舍五入简单，我做个给你！

快捷方式好做啊，你加载了程序以后，定义一个工具栏按钮，在按钮里面写
-vbarun "thisdrawing.过程名()"

zxf309

主要是要在原处生成文本，因为注记不能压到重要地物，原来文本是经过移动，能满足要求的，现在新生成的还要调整。
不过现在也算能用了 其他的我自己学着完善吧。
自由的鱼兄，谢谢你。祝好！

自由的鱼

最初由 zxf309 发布
[B]主要是要在原处生成文本，因为注记不能压到重要地物，原来文本是经过移动，能满足要求的，现在新生成的还要调整。
不过现在也算能用了 其他的我自己学着完善吧。
自由的鱼兄，谢谢你。祝好！ [/B]

哦，是这样，和我们的做法差不多，呵呵

zxf309

要求都差不多的
我发现了个问题，原图中有些高点靠的很近，就省略了部分点的注记，只留高程点。这时在“HFGCD（）”中选择条件最好不是“INSERT”而应该是“TEXT”，用“INSERT”会生成多余的点，需要1幅图1幅图的检查，增加了不必要的麻烦。我把INSERT改成TEXT后生成的文本都是0，因为我不会提取文本的内容，即PNT（2）。应该怎么做呢？

自由的鱼

最初由 zxf309 发布
[B]要求都差不多的
我发现了个问题，原图中有些高点靠的很近，就省略了部分点的注记，只留高程点。这时在“HFGCD（）”中选择条件最好不是“INSERT”而应该是“TEXT”，用“INSERT”会生成多余的点，需要1幅图1幅图的?.. [/B]

我没看明白你的意思，：）

把INSERT换成TEXT就过滤不到你的高程点了

zxf309

就是不要高程点 只要TEXT

现在还挺麻烦的，必须要这样改程序，如何提取文本的内容呢？
还有些意外，需要改动程序，我明天再发个图上来吧，嘴笨，不知如何说清楚。
要把注记值减0.5,然后将改正后的值写入高程点的Z坐标.我觉得改正注记后,重新生成高程点比较可行,但是删除原来的高程点却很麻烦,原图中有如下图所示的空点(无注记的点)存在,这些空点是不能删的.

自由的鱼

最初由 zxf309 发布
[B]就是不要高程点 只要TEXT

现在还挺麻烦的，必须要这样改程序，如何提取文本的内容呢？
还有些意外，需要改动程序，我明天再发个图上来吧，嘴笨，不知如何说清楚。 [/B]

不要高程点，只要TEXT容易，你明天发图上来，然后我帮你改程序，要不然我现在还搞不清楚你要做什么，呵呵

zxf309

恩 看了就明白了  还有其他的呢 要把文本内容加到点的Z坐标上（原图上有些点Z坐标和注记值不一样，要求把Z值改掉，做些技术处理，嘿）  这个也不难的对吧
和你编的这个差不多 我就不知道如何提取文本 否则抄你这程序也能编出来了

自由的鱼

最初由 zxf309 发布
[B]恩 看了就明白了  还有其他的呢 要把文本内容加到点的Z坐标上（原图上有些点Z坐标和注记值不一样，要求把Z值改掉，做些技术处理，嘿）  这个也不难的对吧
和你编的这个差不多 我就不知道如何提取文本 否则抄你这程?.. [/B]

哦，那你就要分开传给我，一张点的Z值以文本值为准，一张文本值以点的Z值为准！：）

zxf309

不用传2份,一份就可以了.程序要求:将注记减0.5,然后将改正后的值覆盖高程点Z坐标，最好不要移动高程点的位置。图片在24楼.

自由的鱼

OK，晚上搞好了传给你！

zxf309

嘎嘎  你真是好银啊啊啊啊`````  
你的程序就是我的指路明灯啊~~~