阿杰软件工作室

VBA删除所有的组

2011-12-19T20:50:58+08:00

某个测量单位，把我的CAD地形图中搞了8000多个组，打开极慢。
所以编写了这个程序，删除所有的组。
Private Sub aa()
Call MsgBox(ThisDrawing.Groups.Count)
Dim gp As Object
For Each gp In ThisDrawing.Groups
'gp.Delete
Next gp
End Sub
手工删的话，数小时；用小程序的话，1秒。

一个新的管线设计软件【杰图管线协同设计软件】

2011-09-16T15:47:28+08:00

杰图管线协同设计软件是由北京杰图凯德软件有限公司开发的一个新的管线设计软件。北京杰图凯德软件有限公司是由国内行业专家和留学归国人员共同创建，专业致力于工程软件研发、服务的高科技企业。

杰图管线协同设计软件相比我们以往使用的HY管线软件，有以下优点：
（1）你现在有新的选择了，在以前，除了HY，基本你别无选择。而现在，你有了杰图这个选择。这一点很关键。
（2）你终于可以脱离hongye乱糟糟的界面，远离庞大无比的菜单。
（3）你可以和HY慢吞吞的速度说再见了。
（4）很庆幸的是，基本再也没有死机了。

经过初步使用，该软件的特点如下：
（1）销售模式新，采用新的租赁方式，完全租用软件的使用权，价格也不贵哦；
（2）设计成果“所见即所得”，设计的界面即最终成图界面。
（3）操作过程大大简化。这个是我感觉最好的地方。

定管高

不过里面可是依稀有HY原来的影子啊，很多命令行都出奇的相似？为什么呢？

博客恢复运行，可喜可贺！！！

2011-08-04T17:08:45+08:00

经过长时间的沉寂，博客终于找到合适的商业空间，可以正常使用了。欢迎大家回来！

由于程序问题，使用IE8或9的用户可能显示有所错乱了，请使用兼容模式。

2010新年挂历

2009-12-14T15:12:15+08:00

新鲜出炉的2010新年挂历。呵呵。

开始进入新的生活状态

2009-11-03T15:56:16+08:00

忙忙碌碌干了八年，也潇洒走一回。辞职了。呵呵。。。
希望能换来一个新的生活状态，再次步入正轨。。。。。。。
不想提过去，过去了就让他过去，希望未来一切都好。。。。。。。。

EICAD土方计算（界面）

2009-10-21T10:17:07+08:00

晒晒最近写的EICAD土方计算程序。呵呵。。。

程序的主要功能：根据EICAD的有关文件，利用EXCEL计算生成土方分段汇总表、清表碾压工程数量表等表格。
开发进度：目前完成了70%的构架。

EICAD环境下的土方计算（三）

2009-09-22T10:30:33+08:00

逐桩的工程量通过excel计算得到了，然后剩下的就是工程量的合并统计。
一、分段数据的实现
通常的方法，根据不同的填土高度，逐桩进行合并整理出段落。
二、根据分段数据合并工程量
方法主要是用excel的公式进行合并统计。
这里提供我的另外一个工具，直接根据分段的数据生成合并的公式。

注：目前文中提到的这几个程序都基本开发完毕，正在进行工程测试。同时，正在想办法进行合并，整合，弄成一个完整的程序包，统一发布。

EICAD环境下的土方计算（二）

2009-09-22T09:37:32+08:00

下面继续土方计算中最复杂部分—路基中部土方计算。
一、计算思路
江苏地区的一般路基处理，以下面形式为主（以我最近做的一个项目为例）：

通常我们是计算一个分界高度H0，按H=H0来进行分别处理。
路基计算的原始数据，主要是路基两侧的填土高度，由于我们戴帽子通常是不保存两侧的填土高度的（如果采用1：1.5边坡到底戴帽子，保存边坡长数据的时候，能得到填土高度），因此通常为得到这部分数据，必须单独进行戴帽子，1：1.5一坡到底，通过BPL数据来获取到填土高度数据，同时，也可以获取到一坡到底的路基坡脚宽度，这个宽度对于我们计算路基处理宽度也是非常的有用的。
得到了这两个文件（*.bpl，*.zdx），用excel直接导入相关数据，进行排版插行得到初步的计算环境。

然后分别把逐桩的数据计算出来，利用excel强大的公式计算功能。

最后计算出来的将是一个很大的工作表，里面几乎包含了所有的道路数据。呵呵。
二、配合软件
（1）由于EICAD提供的数据比较连续，本人开发了一个独立的数据提取程序进行数据提取。

数据提取后自动导入到excel中，并自动合并单元格。
上面的初步计算环境，即为用该软件自动提取后生成的数据。
（2）由于江苏地区的土方计算比较特殊，但实际上计算的思路还是比较清晰的，因此我也开发了配合excel的公式编辑程序，根据提取的数据，直接进行公示的编写。方便实用。

程序很简单，直接设置相关数据后，他会在初步提取的数据工作表中把相关的公式直接编写好（为节约速度，程序只编写了第一行的公式，下面的公式自己手工复制）。
如果局部有调整，可以在excel里手工调整，程序把所有的内部数据都填写进入公式，可以在excel里方便的修改。

EICAD环境下的土方计算（一）

2009-09-16T17:10:15+08:00

最近一段时间老在土方计算，得空有时间进行下土方计算的归纳和完善，总结以下我们江苏地区的摻灰路基的土方计算过程。
计算工具：excel+truetable。
计算结果：《路基土石方分段汇总表》
一个完整的路基土方通常包括以下几部分：
断面方、沟塘回填方、清表碾压补偿、路床土方、过渡层土方（含路基中部等）、桥台台后土方、路基加宽土方。
一、断面方
断面方的提取首先必须戴过帽子，利用eicad的戴帽子土方来进行计算。我们通常是采用xls版的《路基土石方数量表》，从里面提取数据，从里面提取数据有个好处，可以确保和cad版的《土石方表》保持高度的一致。连小数点数量都是一致的。
以前我尝试过用eicad的are文件自行计算，但里面又涉及到GZX文件的读取，比较麻烦，我比较懒，就直接采用了上面的方法。呵呵。。。。。
对于断面方的提取，我最近写了个小程序，直接提取，见http://www.jiesoft.net/article.asp?id=158。

二、沟塘回填方
沟塘回填方通常是由单位新来的小弟计算完成，大部分人认为沟塘计算是很简单机械的工作，由项目负责人定下计算的宽度，然后直接量平面图就Ok了。
实际上沟塘土方的计算是很重要的环节，通过对多年设计回访发现，几乎每个项目在沟塘土方的计算上都存在较大的误差，主要产生误差的原因有两方面：
1、测量数据有问题，沟塘淤泥测量深度不足。这个是普遍的问题。哈。
2、设计人员的设计意图完全和现场背离，造成土方不准。
扯远了，沟塘回填方通常是根据水深、塘深及淤泥深，用exce计算出回填用的灰土数量。这个没有其他的办法，只有通过一个一个调查、计算完成。
一个典型的沟塘回填工程量表。

三、清表碾压土方
请表碾压土方的计算是比较玄乎的，因为现有的数据能反应请表碾压的比较少，特别是还涉及到戴帽子的情况，进行边沟设计和不进行边沟设计都有所不同。
我们通常省事的做法，是首先进行一次戴帽子，边坡设计的时候都是按1：1.5到底，这样可以获得很多有用的数据，比如道路两侧的填土高度、道路的用地宽度，近似的把这个时候的坡脚宽度认为是清表宽度。
这个能给我们提供的就是*.zdx、*.bpl，有列这两个数据对于路基土方的计算基本就差不多了。
每个断面的请表宽度获取了以后，可以逐桩计算出清表面积及碾压体积。
这其中有两个需要注意的：
（1）如果是老路拓宽还需要增加一个数据，就是老路宽度数据，需要在请表范围内扣除老路的面积。
（2）每个项目都不可避免的存在沟塘，清表的时候需要相应的扣除沟塘的面积。
这个两个也是比较细节的地方，通常要做的好，再这些方面要下点功夫。

四、路床土方
路床土方是所有土方中最简单的一种，因为路床厚度通常是保证的，比如一级公路必须确保80cm路床，那么计算就是很简单的事，计算出宽度，按段落长度直接计算就Ok。

五、路基中部土方
这部分土方是原地面清表碾压后与路床之间的土方，这部分土方是最难算的部分。呵呵。
路基中部计算的excel截图。

请继续关注第二部分。

EICAD土方提取程序

2009-09-14T10:43:22+08:00

很久没有写程序了，最近捣鼓个小东西，都有点感觉生疏了。
最近在搜集数据，打算完成一个EICAD土方计算工具包，针对江苏地区的掺灰路基土方计算，提出一个简单方便的解决方案。这个程序是EICAD土方计算程序包的一部分。

呵呵。。。。。

这个程序很简单，把eicad生成的土方数量表中的填、挖方都提取出来，因为这些数据都是我们进一步土方计算的关键。

看效果就知道了。

程序文件
该文件只允许会员下载! 登录 | 注册