《CAD二次开发的一点体会》贴几个之前用的简单代码|编程与CAD二次开发 - 领先的岩土技术社区，岩土领域的媒体、社区与应用平台！

离线小瘦子工程师

助理工程师

发帖: 116

土币: 2150

威望: 31

原创币: 0

只看楼主倒序阅读使用道具楼主发表于: 2012-04-23

今天发现去年发的那个帖子《CAD二次开发的一点体会》http://www.yantubbs.com/read.php?tid=127972居然这两天好多网友点击，当时没火现在火了，真是很欣慰又惊奇。看到有网友建议贴几个例子，回去翻了一下电脑确实有很少自己做的小工具，不过因为是临时做的用完也没管，所以程序都没什么注释，变量命名图方便。现在挑几个典型的贴出来算是对新手学习想放弃时的鼓励，这几个小例子中你会发现原来这么简单的几句话这么多用途。

1、替换选中集合中的字符串

这个是之前做高速公路的勘察，中间区域很长一段的桩号要改，用CAD自带的编辑-替换不够灵活容易全局都替换了，就写了这个小东西。点击按钮，去CAD界面选中要替换的那些文字，点击回车或右键，选中部分就全部替换，比如“左线”替换成“右线”。
主要的功能代码就一个过程：

2、柱状图辅助工具

这是上次做竖井的时候编的工具，因为当时的那个项目就一个深孔，手头上也没有现成的辅助软件，包括水位曲线、采取率曲线等五条曲线几千个数据，要是自己手画估计几天都完不成，还不一定准确，就写了这个东西。最后的效果还是蛮好，如下：
全部内容，较多看不清楚，但能发现确实很多数据。
另外也能独立使用《按坐标写文字》的功能，这在很多不同类型图纸中都用的到。

局部放大后

这个工具能实现按照数据区内容，按照预定深度和相关值，添加层位信息，岩性描述，绘制采取率、水位、RQD、块度、裂隙率等曲线。虽然不是很规范，但达到生产实际要求了。另外通过加上之前写的一个填充函数，就可以自动填充岩心花纹了。
主要的代码为：
添加OWC控件、AutoCAD 2004\2006\2008中某一个的引用，里面那个按钮是XPCMD风格控件（百度就有）。里面变量命名多为中文拼音首字母，SP=Starpoint，EP=EndPoint等缩写，有兴趣的人看了差不多就懂。

[attachment=234805]

。。。。。。。。。。。。
。。。。。。。。。。。。
OK今天写弄到这吧，时间有限，以后有空慢慢完成此帖，自认为还是有一点参考意义的，看到了功能才能激起新人的热情，我当年就是看到别人做的很NB就自己吓琢磨，现在工作中遇到的有些需要编程的问题也算是能信手拈来，熟能生巧吧
PS：老帖子一直不通过，花了心思写的不忍心删了，因为贴代码总是出现“文章包含敏感词，请修改”，所以就改成截图了再发一遍，呵呵，全部代码在附件1里面。