[紧急求助高手]怎样用VBA实现CAD图形识别
本帖最后由 作者 于 2009-5-9 9:23:19 编辑 <br /><br /> <p><font size="4">请教高手一个问题，就是如何用VBA实现CAD图形的识别，需要编程。具体步骤如下： 首先对变量、函数、类型的声明．通过Type—End Type语句对图层、直线、圆弧、圆等进行定义，包括名称、线宽、图层等．声明程序中所需图形的变量，通过公用对话框实现对所需识别文件的读取(*．dwg)（任意简单图形，只需包含几条直线和圆即可），并应用ThisDrawing Application．Doc—uments．Open FileName来打开标准库文件，并获取当前空间的图元总数．取得刚刚打开的标准库文档所有的层数．初始化本文档的层变化数组空间之后，取得所有的层属性，并对文档中所有图形属性进行操作，包括文本、直线、圆弧、圆、多义线等．因为多义线在不同用户绘制时有不同途径达到相同目的，如将一矩形用四条直线绘制而成，因而首先要将多义线打散成单一的直线段再进行处理，并将原多义线删除(因打散后生成了新的直线，原来的多义线仍然存在)，然后再对文档进行处理，否则图形不会有变化．打散多义线之后，由于图元数量发生了变化，因而就必须重新执行初始化、文档打开、对层属性获取等操作，因此设置标号start．当多义线被打散后，跳至start处，重新进行上述的相关操作．对于文本，由于在文档中不作为识别正误的依据，因此只需进行颜色的改变，并对其更新．对于直线段，该程序通过相关的语句实现对直线段函数、直线段的起点坐标、终点坐标、线型、线宽、随层的线型、随层的线宽等属性的识别．相应地，用相关语句实现对圆弧、圆等属性的获取、相关操作以及执行关闭标准库的操作．最后对所绘图形文件的处理．通过公用对话框打开所绘图形文件，依照上述方法对相关图形进行获取并识别，得出相应的识别结果．</font></p><p><font size="4"> 我对编程不太熟悉，不会写程序，急死我了，大家帮帮我吧。万分感谢！</font></p> 怎么没人注意呢，各位高手？ <p>这样的程序对实际并没有意义，感觉是为了应付的作业。</p><p>也就是说你需要从基础的学起，而不要到了交作业的时候才来求助。</p><p>一般来说，编这样的程序没有意义，只是拿来练练手。</p><p>你所需要的这个程序是非常基础的东西，而且整个编程思路都注得很清楚，你只需要所它变成代码就可以了。</p> 本帖最后由 作者 于 2009-5-10 12:27:09 编辑 <br /><br /> <p>对你们来说是练练手，对我可就惨了。我对编程不熟悉，现在使劲看书，就是不会编，感觉语言很难写出来，各位谁能帮帮我？就当练练手了</p> <p>都是这样过来的，所以不要。。。</p><p>帮助是最好的老师</p><p>先试着按例子做下，实在不会再把你在编写代码时的疑惑发上来</p><p></p> <p>楼主的程序似乎是关于测绘方面的，不懂</p><p>还要请教楼主一下，北京54和西安80，一般同一点坐标大致能差多少？差几十米还是几万米？</p><p>我晕了，发错贴子，请无视</p>
页:
[1]