CAD数据导入CoreDraw问题探析.docVIP

CAD数据导入CoreDraw问题探析摘要：CAD数据在地理信息领域应用比较广，而CoreDraw在艺术制作中比较厉害，此两个在数据导入中就必然存在一些问题，本文针对两个常见问题提出了很好的解决方法。 关键字：CAD，Core Draw，DXF,VB,VBA Abstract: The CAD data is more widely used in the geographic information field, the Core Draw is more serious in the art making, and the two will inevitably have some problems in the import data, according to the two common problem ,this paper offers very good solution. Keywords: CAD, Core Draw, DXF, VB, VBA 1． CoreDraw简介 CoreDraw软件在测绘制图领域有着很广的应用，其印刷效果要远远高于其他测绘软件，并且上手容易，所以尽管不是GIS软件范畴，但在测绘中也时常使用，比如制作图册等。其与AutoCAD软件的数据交换格式一般都为DXF。 2． CorelDraw VBA简介 VBA,（visual basic for applications），是一种标准宏语言。 VBA提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。它作为一种通用的宏语言可被所有的Microsoft 可编程应用软件所共享，使可编程应用软件得到完美的实现。VBA 是基于Visual Basic 发展而来的，它们具有相似的语言结构，它们的集成开发环境IDE（Intergrated Development Environment）也几乎相同。二者不同之处在于：利用VB我们可以编写出独立的windows可执行程序（exe文件），而在使用VBA时我们必须在一个宿主软件中调用我们所编写的程序。CORELDRAW从6.0版本即支持宏命令(Marcos)，但直到9.0版本它都主要使用它自己特有的CORELSCRIPT语言进行宏命令的编写。1998年，COREL公司作出战略性决定，决定在CORELDRAW 9.0中引入VBA，这使CORELDRAW立刻得到了很多VBA开发者的喜爱。但是在CORELDRAW的9.0版本中，针对VBA的对象模型并不很完善，这很大程度地限制了利用VBA对CORELDRAW的开发。在10.0以后的版本中，情况得到了彻底的改善，在11版本后的VBA环境已经非常的成熟，用户可以用CorelDraw VBA很轻松地调用CORELDRAW的现有功能，也可以利用CorelDraw VBA来调用CORELSCRIPT语言来实现一些特定的操作。 3．导入时存在的文字问题及其解决 3.1 问题 AutoCAD中数据导出DXF格式，在CoreDraw中导入后文字都不在是词组形式，都变成单个的了，如“张家屯”变成三个单字“张” “家” “屯”，则对于文字编辑是很致命的，对于少量文字可在CoreDraw软件中利用字连接工具手工连接成字串，但对于大批量的则无形中增加了许多工作量，这时就可以靠编程来实现了。 3.2 编程原理及核心代码 主要是操作dxf文件，通过对dxf明码文件的研究，读出文字的定位坐标和文字的内容在CoreDraw中用创建文字命令重新创建。 Set fs = CreateObject(“Scripting.FileSystemObject”) Set f = fs.OpenTextFile(“c:\qqq.txt”, 1) Do While Not f.atendofstream str = f.readline If str = “AcDbText” Then n = n + 1 If (n Mod 2) = 1 Then For i = 0 To 9 str = f.readline If i = 1 Then xstr = str End If If i = 3 Then ystr = str End If If i = 9 Then txt = str End If Next Set p = CreateArtisticText(CDbl(xstr), CDbl(ystr),txt) End If End If Loop f.Close End Su