[VBA程序]：桩编号程序CFG等均适用

huiyin

*************************************
ZBH使用说明：
操作步骤：先在图上编号>>>生成施工图>>>野外作业记录文件>>>统计桩长记录>>>生成竣工图
桩编号文件要求：
（1）桩位所在图层名称必须为"pile"，且所在图层中的圆必须均为桩位，否则，将把所有圆视为桩位，全部进行编号。
（2）请将初始的桩的颜色设置为绿色以外的其它颜色，因为编号完成后，系统会自动将桩的颜
色设置为绿色，这样也便于检查，是否已经全部编号。
***************************************
程序功能说明：
1.可选择编号顺序，默认按桩位由上至下自动编号。
2.可输入图纸比例，可输入起始编号。
3.按桩号生成相应坐标文件－－"文件名+GZZ.XY"。
4.将所有孔号文字写为一个相应的块－－－"文件名+GZZ.Dwg"
5.编号速度快，10000根桩，所有时间不超过3分钟，我用的时间是119.85秒。
6.一次性最大可编桩号30000根。实际上由于本程序可以输入起始编号，将编好的桩设为其它图层，再继续编号，那么多少根桩都是没有问题的了。建议每次编10000根为宜。
7.解决了其它几个程序的一些问题：a.有的程序不能排除重复的桩号。b.有的程序生成的文字块和坐标文件均为GZZ.DWG，GZZ.XY，那样的话同一个目录下只能放一个含有桩的CAD文件，就是说如果一个项目有多栋楼，则每栋楼要单独编号就必须单独建一个文件夹，不便于管理。c.有的程序不能输入图纸比例，不能输入起始编号。c.有的程序速度慢，编5000根桩要5分钟以上。
8.本程序可根据用户需求进行定制，如数据文件格式，桩的颜色，文字颜色、高度、高宽比等。
定制程序请联系E-mail:SCKCY@163.COM，QQ:506551028 。
9.关于桩位选择的问题，原来全部是按设置的条件自动选择，后来有人提出是否可以手动选择，因此也加入了手动选择这一项。弹出的对话框默认选择为自动选择“是”，如果要自己选择桩位，弹出对话框后请按“否”，不过还是要将所有的桩位置于"pile"图层上。如果不需要这一项，可为您定制取消。
10.本程序可生成竣工图，在生成竣工图之前需准备桩长文件，并按顺序排号。该功能已由我的“桩编号系统”完成，并自动生成EXCEL表格。
11.经测试，有些电脑上不能将文字编号"文件名+GZZ.Dwg"的块自动插入，需要手动插入，插入时基点请使用"0,0,0",比例：1就可以了。
***************************************
试用版功能限制说明：
1.最大桩数200根
2.不能改变图纸比例，只能是1：100。
3.不能改变起始编号，只能从N=1开始。
4.不能排除重复桩号，即若同一位置有多根桩，则有多个桩号。
5.不能选择编号顺序，只能由上至下。
*********************************************
本程序所有的版权归作者本人所有，未经允许，不得转载和复制。

本程序可供免费使用，在使用过程中遇到问题可与作者联系获得技术支持，作者对程序中可能存在的缺陷和风险不承担任何责任。未经允许，不得将本程序用于任何商业用途，如果需要项目合作和开发，请与作者本人联系。

请尊重知识产权，不要随意传播本程序。
=========================
桩编号程序
E-Mail:sckcy@163.com          QQ:506551028  
四川省建筑设计院 聂浩帆
=========================

*****************************************
勘察程序说明：
1.AA1.EXE检查输入的分层数据文件是否正确，包括输入的分层深度与层位是否吻合，输入的土样个数是否吻合，同时对数据文件进行分离，与SK-98勘察软件类似。
2.VV1.EXE与SK-98勘察软件类似，但是目前还不能检查标贯数据，最好不要用。
3.ZKBH.EXE为钻孔编号程序，并自动采集钻孔位置坐标。钻孔布好后，按钻孔顺序以圆心画一条多段线，当钻孔增减时将多段线顶点相应变化后，重新编号，并自动重新采集钻孔位置坐标。该程序同样可以应用于其它工程需要按顺序编号的时候，如结构设计挖孔桩编号等。
4.LXX1.EXE为剖面生成程序，需要钻孔坐标文件和剖面数据文件（LX.DAT）。剖面数据文件
（LX.DAT）格式为：
?-?’——剖面编号
孔数 孔号1 孔号2 孔号3 孔号4 孔号5 孔号6............
例如:
1-1'
6 1 2 3 4 5 6
2-2
6 7 8 9 10 11 12
..............
必须将剖面数据文件名保存为"LX.DAT"。
所有的剖面线信息保存在这个文件里就可以了，随后将自动分离生成"L?"命名的剖面线文件。
生成的"L?"剖面线文件，有间距等信息，可直接使用，完全符合SK-98勘察软件要求。
***********************
连线信息说明：
连线信息应从左到右，编完一个钻孔之后，再接着编下一个钻孔的连线信息，换句话说，就是连线信息按孔位编，而不要按层位编，这样最简单，且不容易出错，理论上来说，就是100个钻孔也不会连错的了。

*********************************************
本程序所有的版权归作者本人所有，未经允许，不得转载和复制。

本程序可供免费使用，在使用过程中遇到问题可与作者联系获得技术支持，作者对程序中可能存在的缺陷和风险不承担任何责任。未经允许，不得将本程序用于任何商业用途，如果需要项目合作和开发，请与作者本人联系。

请尊重知识产权，不要随意传播本程序。

=========================
桩编号程序
E-Mail:sckcy@163.com          QQ:506551028  
四川省建筑设计院 聂浩帆
=========================

mjh

可惜用不上！

wawbt

专业性很强的啊

yshf

不如将*.dat改有Excel文件更好。

woaidan2002

搞个试用版来用一下。

shaner143

学习

asdfzxc

学习中

huiyin

桩孔自动编号、勘察自动编号、生成剖面及桩长统计程序（免费申请2009全功能版）
自动生成EXCEL统计表格
  自动生成剖面
  勘察cad编号
  桩孔CAD编号
  下载地址：HTTP://SCKCY.YS168.COM
桩孔编号程序（2009版，免费申请全功能）