利用CorelDraw的二次开发功能来制作矿图

1、近年来，随着计算机制图技术的日趋成熟和不断发展，许多煤矿专业制图软件也随之诞生。目前生产单位常用的有：AutoCAD,EasyMap,MapGIS,Maplnfo,CorelDraw等。但是，选择怎样的制图软件才最能体现该软件的价值和最能满足单位的需求，却是一个非常难的问题。具体到矿业单位来说，大部分单位都选择AutoCAD作为日常生产中的主要软件，AutoCAD以其操作简单、功能强大等特点赢得了广大用户的青睐,尤其是在线划图的制作和处理上更是有其独到之处。但许多时候,还要求将AutoCAD图以纸质图的方式打印出来，并且要求打印出来的图除了具有原图中所有的信息外，还要求图文并茂、美观漂亮，给人

2、以美的感觉。这时候CorelDraw无疑是一个更好的选择。本文主要探讨了如何利用CorelDraw的二次开发功能来制作矿图。1制作矿图的一般流程矿图制作一般分为:底图制作和专题要素添加两个步骤。主要使用AutoCAD提供底图，然后在此基础上利用CorelDraw来制作矿图。下面分别从底图制作和专题要素的制作两个方面加以介绍。底图的制作通常有以下几种方法：第一，直接利用底图数据，将现有的底图数据导入CorelDraw中；第二，如果没有现成的底图数据，就需要将绘制的资料底图进行扫描，并将其作为底图。但由于扫描后的底图是栅格格式，就需要用专门的矢量化软件对其进行跟踪，转换成矢量格式才能作为底图。第三

3、，利用卫星遥感影像图作为底图或者背景图的数据源。专题要素的制作：第一，可以根据矿图对专题要素的特殊要求，直接在已经修改好的底图数据上进行编辑处理，从而得到想要的专题要素；第二，对于不同的矿业领域，通常对专题要素有不同的要求，因此，可以将修改好的原图进行扫描后，再与先前制作好的底图进行叠加，对不满足要求的地方进行编辑、修改。对于某些矿图，除了一些线型、文字、符号之外，还需要加上某些关键性的图片，才会使得制作出来的矿图更加美观，并且达到图文并茂的效果，增加矿图的可读性。对于图片资料的处理，通常是在专业的图像处理软件下进行处理，然后导入到CorelDraw中进行相应的拼装，便可以达到很好的效果。2C

4、orelDraw的二次开发在有些时候，我们需要对矿图进行更准确的加工和处理。例如：对于图框四周的坐标注记，需要严格地按照比例尺输出；相应的矿图图例也需要按照相应的规范绘出等。如果用户只需要输入几个参数，就让CorelDraw自动地加载上这些坐标注记，自动绘制出用户需要的相应图例。对于他们来说就节省了很多时间，而且能够在保证精度的前提下，提高工作效率.CorelDraw的二次开发就可以实现这些功能。本文主要讲述使用VBA来控制CorelDraw，在VBA的编辑环境下实现编程。这种方法的工作机理是通过CorelDrawActiveXAutomation技术来建立与CorelDraw对象的链接.Co

5、relDrawActiveX提供了一种编程机制，方便用户使用VBA控制CorelDraw的对象模型，通过编程来实现访问和控制CorelDraw。图1为基于VBA的CorelDraw二次开发流程图.2.1CorelDraw制图二次开发中常用的函数计算机制图中，常用的基本函数有画线、画圆、画面、面域填充和文字标注等基本的命令，下面给出CorelDraw提供的二次开发语言VBA中提供的这些函数。基本函数的头文件如下：veDimshAsShape，spathAsSubPath,crvAsCu定义数据类型；DimxlAsDouble,ylAsDouble定义数据类型；Dimx2AsDouble，y2As

6、Double定义数据类型；ActiveDocument.Unit=cdrMillimeter定义文档的单位为mm。画线函数。Setcrv=Application.CreateCurve(ActiveDocument)创建曲线对象；Setspath=crv.CreateSubPath(xl,yl)创建一个子路径；spath.AppendLineSegmentx2,y2添加线段；Setsh=ActiveLayer.CreateCurve(crv)生成曲线。画椭圆函数。Setsh=ActiveLayer.CreateEllipse2(xl,yl,x2,y2)生成椭圆或圆。说明：要画出椭圆或圆，必须给

7、出椭圆或圆的中心坐标(xl,yl)和长短半轴(x2,y2),当x2=y2时，画出的便是圆形。画矩形函数。Setsh=ActiveLayer.CreateRectangle2(xl,yl，x2，y2)生成矩形。说明：画矩形时需要给出矩形的左下角坐标(xl,yl)和宽度x2、高度y2,如果想画出正方形的话，需要x2=y2。图形填充函数。sh.Fill.UniformColor.RGBAssign0,0,0将矩形填充为黑色。说明：填充的颜色用户可以自己定义，就是改变R,G,B三色的组合就可以了。也就是将sh.Fill.UniformColor.RGBAssign后面的0,0,0变成自己想要的颜色就行

8、了。文字注记函数。Setsh=ActiveLayer.CreateArtisticText(xl,x2,“SpecialCheck”，cdrChineseHongKong,_cdrCharSetANSI,“宋体”，l2)添加文字。2.2实现步骤CorelDraw二次开发编辑矿图步骤：将数字化后的矿图导入CorelDraw编辑环境，利用CorelDraw提供的较强的文字编辑功能、强大的线形绘制和编辑功能、符号制作等工具对地图进行整饰。以原图作为参考，将矿图变化的部分进行修复。对整幅矿图进行综合判断和分析，选取符合编程思想的制图对象。这相对来说，就对工作者提出了难题，需要他们进行综合考虑，进行编程

9、思路构思，尽可能将程序的流程图画出，方便后续程序的编制。进入CorelDraw的二次开发平台VisualBasicEditor,插入相应的窗体和控件。利用CorelDraw二次开发平台VBA提供的基本函数，对制图对象编制相应的程序，实现CorelDraw二次开发绘制矿图。通过VBA来实现对CorelDraw的控制，也就是通过定义宏并且使用VBA语言编制程序来实现控制。具体实现步骤如下：第一，点击CorelDraw编辑环境下的运行宏按钮，出现运行VisualBasicforApplicationsMacros界面，在Macroname下面输入代表一定意义的宏名，如DrawLegend，也可以在M

10、acrosin右边的下拉按钮中选择Macros所在的位置，可以在VBAProject中，也可以在GlobalMacrosCGlobalMacros.gms)中。选择完后，可以在Description下面对该宏命令所执行的功能进行描述，这样使用者便可以在使用以前就对该宏的功能有个初步的了解，再决定是否点击该命令。第二，点击Create按钮。点击后便可以进入VisualBasic编辑环境，工程中自动生成一个Modulel模块。在Modulel中自动生成如下代码：SubDrawLegend()EndSub第三，在工程中插入相应的窗体UserForm,可以将UserForm改名为可以表示的名称口：Dr

11、awRectangle，并在窗体上放置满足功能要求的各种控件，以ThisDocument直接访问CorelDraw并编程。如果将宏定义在GlobalMacros(GlobalMacros.gms)中，就是以ThisMacroStorage直接访问CorelDraw并编程。在宏中写入代码如下：SubDrawLegend()SymbloWizard.showEndSub3CorelDraw制作矿图的优缺点比较3.1优点CorelDraw可以直接将AutoCAD的dwg和dxf格式的图导入到其编辑环境中，这样就可以直接利用矿业单位的AutoCAD图来作为底图。在CorelDraw环境中，利用其强大的

12、线形绘制和编辑功能实现对AutoCAD图的修复和整饰。并且可以根据实际需要，在适当的位置加入某些图片，在图框的周围加入花边等。对于某些较繁琐而又需要较高精度的图框、图例和比例尺，利用CorelDraw提供的二次开发平台进行二次开发，可以极大地减少用户的工作时间，降低劳动强度，满足实际生产的需要。3.2缺点在使用CorelDraw制作矿图的时候，通常是将矿业单位生成的AutoCAD图作为底图，导入到CorelDraw的编辑环境下。在导入的时候，便产生了信息的丢失和原有符号的破坏。例如：在AutoCAD下的铁路符号和围墙符号，当导入到CorelDraw后，原来完整的铁路符号和围墙符号就会破坏，不再

13、能表达原图的信息。这时候我们利用CorelDraw提供的线型编辑工具进行绘制相应的符号，就可以将那些破坏的符号修复。并且绘制出的符号直观、形象，能够充分表达原图的信息。4结语总而言之，CorelDraw软件的图文编辑功能非常强大。虽然它不是专门的矿图制图软件，但是编制矿图也只用到了其中一部分的功能。然而，利用CorelDraw编制矿图的方法在软件操作手册上是很难找到的，只有通过制图工作者不断地摸索、实践和积累才能灵活地把它运用到矿图编辑和制作中，编制出更加精良的矿图，进一步提高劳动生产率，并且为煤矿制图提供新的途径。参考文献1姚兴海，姚磊.CorelDraw地图制图M.北京：中国地图出版社，2

14、003.2杨穗，易捷.用VB或VBA对CorelDraw进行二次开发J.电脑学习,2004(1)：31-32.以上是用CorelDRAW制作的专题地图，从图像可以看出CorelDRAW软件制作的地图不仅在视觉上，还是在内容上相对于其它制图软件都有其独特的优势。对利用CorelDRAW制作专题地图的小感悟相对于其它地图制图软件，CorelDRAW可以非常方便，精确地编辑任何线条，图形和文字。因此，它在平面图形的设计和制作中越来越受到重视，尤其是编制小幅面，内容相对简单，对数学精度要求不高的专题地图。CorelDRAW制作专题地图的方法包括：1底图的调绘专题地图的绘制一般包括地理底图和专题要素的绘

15、制。利用CorelDRAW软件绘制专题地图，一般通过两种途径获得地理底图：一种是直接导入;另一种是先对资料底图进行扫描，再把栅格形式的底图矢量化。图层管理CorelDRAW有较强的图层数据管理功能。数据图层管理对于专题地图的制作相当重要。首先：专题地图表示的要素很多，如行政区划，居民地，交通等。同一要素又包含许多内容，如交通就包括有铁路，公路，交通，桥梁等。为了便于数据的统一管理和地图编辑，应把不同内容要素数据放到不同数据层。其次：要合理地处理符号，文字，划线，面域的压盖关系。地理底图上的要素分层在所有的专题图中，整个图面的视觉层次色彩浓重，重点突出，专题内容表现形式丰富。线的绘制在实际的制图过程中用到最多的是绘制线型，在CorelDRAW中可用画笔工具绘制线型，用形状工具来修饰，用轮廓工具来定义，表现力更强。面域的制作在专题地图制作中要用面积色表