[紧急求助高手]怎样用VBA实现CAD图形识别

尘生尘

请教高手一个问题，就是如何用VBA实现CAD图形的识别，需要编程。具体步骤如下：   首先对变量、函数、类型的声明．通过Type—End Type语句对图层、直线、圆弧、圆等进行定义，包括名称、线宽、图层等．声明程序中所需图形的变量，通过公用对话框实现对所需识别文件的读取(*．dwg)（任意简单图形，只需包含几条直线和圆即可），并应用ThisDrawing Application．Doc—uments．Open FileName来打开标准库文件，并获取当前空间的图元总数．取得刚刚打开的标准库文档所有的层数．初始化本文档的层变化数组空间之后，取得所有的层属性，并对文档中所有图形属性进行操作，包括文本、直线、圆弧、圆、多义线等．因为多义线在不同用户绘制时有不同途径达到相同目的，如将一矩形用四条直线绘制而成，因而首先要将多义线打散成单一的直线段再进行处理，并将原多义线删除(因打散后生成了新的直线，原来的多义线仍然存在)，然后再对文档进行处理，否则图形不会有变化．打散多义线之后，由于图元数量发生了变化，因而就必须重新执行初始化、文档打开、对层属性获取等操作，因此设置标号start．当多义线被打散后，跳至start处，重新进行上述的相关操作．对于文本，由于在文档中不作为识别正误的依据，因此只需进行颜色的改变，并对其更新．对于直线段，该程序通过相关的语句实现对直线段函数、直线段的起点坐标、终点坐标、线型、线宽、随层的线型、随层的线宽等属性的识别．相应地，用相关语句实现对圆弧、圆等属性的获取、相关操作以及执行关闭标准库的操作．最后对所绘图形文件的处理．通过公用对话框打开所绘图形文件，依照上述方法对相关图形进行获取并识别，得出相应的识别结果．

   我对编程不太熟悉，不会写程序，急死我了，大家帮帮我吧。万分感谢！

尘生尘

怎么没人注意呢，各位高手？

mccad

这样的程序对实际并没有意义，感觉是为了应付的作业。

也就是说你需要从基础的学起，而不要到了交作业的时候才来求助。

一般来说，编这样的程序没有意义，只是拿来练练手。

你所需要的这个程序是非常基础的东西，而且整个编程思路都注得很清楚，你只需要所它变成代码就可以了。

尘生尘

对你们来说是练练手，对我可就惨了。我对编程不熟悉，现在使劲看书，就是不会编，感觉语言很难写出来，各位谁能帮帮我？就当练练手了

雪山飞狐_lzh

都是这样过来的，所以不要。。。

帮助是最好的老师

先试着按例子做下，实在不会再把你在编写代码时的疑惑发上来

zzyong00

楼主的程序似乎是关于测绘方面的，不懂

还要请教楼主一下，北京54和西安80，一般同一点坐标大致能差多少？差几十米还是几万米？

我晕了，发错贴子，请无视