2024年5月7日发(作者：)
维普资讯
第２９卷第２期 物探化探计算技术 ２００７年３月
文章编号：１００１—１７４９（２００７）Ｏ２—０１７１—０６
ＧＯＣＡＤ矢量汉字数据库的开发
朱焱辉 ，朱培民２，张英德２
（１．中海油深圳分公司技术部，广州５１０２４０；
２．中国地质大学地球物理与空间信息学院，湖北武汉４３００７４）
摘要：为了在地质建模软件ＧＯＣＡＤ中实现常用汉字和字符的输入和显示，这里详细阐述了
基于ＣｏｒｅＤｒａｗ中用ＶＢＡ编程提取常用汉字轮廓线坐标数据的基本方法，并形成所有汉字矢量
字体表示的数据库。通过ＧＯＣＡＤ进行二次开发并在该环境输出矢量汉字。同时还为输入汉字
设计了汉字输入模块，为提取汉字提供了便利条件。实践证明，该方法方便、快捷、实用。
关键词：汉字；ＧＯＣＡＤ；ＣｏｒｅＤｒａｗ；ＶＢＡ
中图分类号：ＴＰ ３９１．１２ 文献标识码：Ａ
０前言
１ ＧＯＣＡＤ汉字库建立和汉字输入
方案
ＧＯＣＡＤ是由法国Ｎａｎｃｙ大学研制的地质建模
软件。由于该软件在构造和表达三维对象上具有
开发一个汉字字符的矢量字库并实现汉字字
较强的能力，所以常用于地质分界面、地层、断层、
符在ＧＯＣＡＤ中的输入和显示软件，需要分四步完
钻井、物化探数据等地质对象的建模和显示上，并
成（见图１）：①找出包含所有的第一级、第二级汉
提供了相应的地质分析和解释功能。它是一个在
字中的常用部分，以及英文、数字和标点符号共
地质建模和地质解释中应用相当广泛的软件¨】。
６ ８５１个，将它们存入同一个字符文件中；②利用
ＣＡ）ＣＡＤ软件是英文版，不支持汉字的输入和显示，
ＣｏｒｅＤｒａｗ软件的二次开发功能，将字符文件中的
即使是ＧＯＣＡＤ的工程文件和文件的路径中也不
全部字符转换成实际的字体坐标数据输出；③建立
能含有中文字符，这给实际工作带来了诸多不便。
矢量汉字字符数据库，将步骤②中转换输出的字符
在进行地质建模时，难免会遇到需要显示和输入汉
字体数据存入这个数据库中，形成一个可随时调用
字的地方，例如地质体的名称、地理位置、区域名称
的矢量字库；④利用ＧＯＣＡＤ的二次开发功能，使
等都需要进行中文输入和显示。为了解决ＧＯＣＡＤ
得开发出的程序能根据用户输入的汉字和字符，从
不能输入和显示汉字的缺陷，需要构造一个实用的
数据库中将对应字符的字体坐标数据取出，然后转
矢量汉字库，并可以任意地进行缩放、平移、旋转等
化成ＧＯＣＡＤ的闭合曲线对象，并在ＧＯＣＡＤ中显
变换，形成完全的三维汉字。为此，作者在本文中
示出来。
利用ＣｏｒａｌＤｒａｗ绘图软件的字符到曲线的转换功
能，形成ＧＯＣＡＤ可以接受的曲线字体对象，解决
了ＧＯＣＡＤ汉字输入和显示的问题。在本文中，作
者详细阐述了这种解决方案，通过实践证明，该方
图１程序实现框图
案方便、快捷、实用。
Ｆｉｇ．１ Ｆｌｏｗ ｃｈａｒｔ ｏｆ ｐｒｏｇｒａｍ
收稿日期：２００５—１１—０８
维普资讯
１７２ 物探化探计算技术 ２９卷
２矢量汉字的提取
ＣｏｒｅＤｒａｗ是一个优秀的通用绘图软件，它能
将汉字或者字符转换成由汉字或字符轮廓曲线构
成的闭合曲线图形。这种曲线形式的图形与ＧＯ—
ＣＡＤ的曲线图形对象有类似的表示方式，如果把
汉字字符当作曲线对象对待，则可完美地显示到软
件ＧＯＣＡＤ中，并且可以任意地进行缩放、平移、旋
转等变换，形成完全的三维汉字。
为了利用ＣｏｒｅＤｒａｗ提取矢量汉字，作者先将
第一级和第二级常用的６ ７２５个汉字和１２６个常
用字符（包括英文２６个大小写字母，０到９的ｌＯ
个数字以及常用的标点和其它符号）代码存人到
文件中；然后把每一个汉字或字符的轮廓曲线的控
制点，全部转换成相对坐标数据，具体过程如下：
（１）在ＣｏｒｅＤｒａｗ中将汉字和字符转换成闭合
曲线的组合。
（２）将曲线组合图形拆分成单个的闭合曲线
对象。
（３）通过对闭合曲线对象中弯曲的部分进行
插值，然后获得所有曲线对象中的控制点坐标再按
顺序输入到文件，从而实现字符的矢量化。
下面是程序的主要ＶＢＡ实现代码。
Ｄｉｍ Ｓ Ａｓ Ｓｈａｐｅ ’定义Ｓ为图形对象
Ｄｉｍ ｓｉｍｐｌｅｃｕｒｖｅ Ａｓ Ｃｕｒｖｅ’定义ｓｉｍｐｌｅ—
ｃｕｒｖｅ为曲线对象，创建并显示汉
字，在此以汉字”我”为例
ＡｃｔｉｖｅＬａｙｅｒ．ＣｒｅａｔｅＡｒｔｉｓｔｉｃＴｅｘｔ ０，０，”我”，一
ｃｄｒＳｉｍｐｌｉｉｆｅｄＣｈｉｎｅｓｅ，，”隶书”，１００，ｃｄｒ－
Ｔｒｕｃ，ｃ￣Ｔｍｅ，，ｅｄｒＬｅｆｔＡｌｉｇｎｍｅｎｔ
ＡｃｔｉｖｅＬａｙｅｒ．Ｓｈａｐｅｓ（１）．ＣｏｎｖｅｒｔＴｏＣｕｒｖｅｓ
’将汉字转化成闭合曲线的组合
ＡｃｔｉｖｅＬａｙｅｒ．Ｓｈａｐｅｓ（１）．ＢｒｅａｋＡｐａｒｔ
’将闭合曲线组合拆分成不同的部分
ｓｈａｐｅｃｏｕｎｔ＝ＡｃｔｉｖｅＬａｙｅｒ．Ｓｈａｐｅｓ．Ｃｏｕｎｔ
’获得当前图层中图形（闭合曲线）的数目
’以下代码在闭合曲线的弯曲部分插人
节点，提高字符的显示分辨率
Ｆｏｒ ｉｉ＝ｌ Ｔｏ ｓｈａｐｅｃｏｕｎｔ
ｄｏｔｃｏｕｎｔ＝ｌ
Ｓｅｔ Ｓ＝ＡｃｔｉｖｅＬａｙｅｒ．Ｓｈａｐｅｓ（ｉｉ）
’依次获得图层中的闭合曲线对象
Ｓｅｔ ｓｉｍｐｌｅｃｕｒｖｅ＝Ｓ．Ｃｕｒｖｅ
ｓｃｇｔ￣ｎｔｃｏｕｎｔ＝ｓｉｒ￣ｌｅｃｕｒｖｅ．Ｓｃｇｒ￣．Ｃｏｕｎｔ
’得到闭合曲线对象包含段的数目
Ｆｏｒ ｉｉｉ＝ｌ Ｔｏ ｓｃｇｍｅｎｔｅｏｕｎｔ
ｅＳｔ ｓｃｇ ｓｉｍｐｌｅｃｕｒｖｅ．Ｓｅｇｍｅｎｔｓ（ｄｏｔｃｏｕｎｔ）
’依次得到闭合曲线的每一段
Ｉｆ ｓｅｇ．Ｔｙｐｅ＝ｃｄｒＣｕｒｖｅＳｅｇｍｅｎｔ Ｔｈｅｎ
’判断每一段的曲线类型，如果是
曲线则进入下面的插值程序。
ｓｅｇ．ＡｄｄＮｏｄｅＡｔ（Ｏ．１６７）
ｓｉｍｐｌｃｃｕｒｖｅ．Ｓｅｇｍｅｎｔｓ（ｄｏｔｃｏｕｎｔ＋１）．
ＡｄｄＮｏｄｅＡｔ（Ｏ．２）
ｓｉｍｐｌｅｃｕｒｖｅ．Ｓｅｇｍｅｎｔｓ（ｄｏｔｃｏｕｎｔ＋２）．
ＡｄｄＮｏｄｅＡｔ（Ｏ．２５）
ｓｉｍｐｌｅｃｕｒｖｅ．Ｓｅｇｍｅｎｔｓ（ｄｏｔｃｏｕｎｔ＋３）．
ＡｄｄＮｏｄｅＡｔ（０．３３）
ｓｉｍｐｌｅｃｕｒｖｅ．Ｓｅｇｍｅｎｔｓ（ｄｏｔｅｏｕｎｔ＋４）．
ＡｄｄＮｏｄｅＡｔ（０．５）
ｄｏｔｃｏｕｎｔ＝ｄｏｔｅｏｕｎｔ＋６
Ｅｌｓｅ
ｄｏｔｃｏｕｎｔ＝ｄｏｔｃｏｕｎｔ＋ｌ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉｉｉ
Ｎｅｘｔ ｉｉ
’为闭合曲线的弯曲部分插人节点的代码结
束
ｓｈａｐｅｃｏｕｎｔ＝ＡｃｔｉｖｅＬａｙｅｒ．Ｓｈａｐｅｓ．Ｃｏｕｎｔ
’第二次得到图形的数目
ａ．ｗｒｉｔｅｌｉｎｅ（”我”）’输出汉字
ａ．ｗｒｉｔｅｌｉｎｅ（ＣＳｔｒ（ｓｈａｐｅｃｏｕｎｔ））
Ｆｏｒ ｊ＝ｌ Ｔｏ ｓｈａｐｅｃｏｕｎｔ
ｅＳｔ Ｓ＝ＡｃｔｉｖｅＬａｙｅｒ．Ｓｈａｐｅｓ（ｊ）
ａ．ｗｒｉｔｅｌｉｎｅ（ＣＳ虹（Ｓ．Ｃｕｒｖｅ．Ｎｏｄｅｓ．Ｃｏｕｎｔ））
Ｆｏｒ ｉ＝ｌ ＴＯ Ｓ．Ｃｕｒｖｅ．Ｎｏｄｅｓ．Ｃｏｕｎｔ
ｘ＝Ｓ．Ｃｕｒｖｅ．Ｎｏｄｅｓ（ｉ）．ＰｏｓｉｔｉｏｎＸ
Ｙ＝Ｓ．Ｃｕｒｖｅ．Ｎｏｄｅｓ（ｉ）．ＰｏｓｉｔｉｏｎＹ
ａ．ｗｒｉｔｅｌｉｎｅ（ＣＳｔｒ（ｘ）＋””＋ＣＳｔｒ（ｙ））
Ｎｅｘｔ ｉ
Ｎｅｘｔｊ
ＡｃｔｉｖｅＬａｙｅｒ．Ｓｈａｐｅｓ．Ａｌ１．Ｄｃｌｃｔｃ
上面的程序代码①先将Ｓ定义为Ｓｈａｐｅ类型
的对象，ｓｉｍｐｌｅｃｕｒｖｅ定义为Ｃｕｒｖｅ类型的对象；②
然后通过函数ＣｒｅａｔｅＡｒｔｉｓｔｉｃＴｅｘｔ在当前图层中显示
汉字“我”。汉字是简体中文隶书，字体尺寸为１００；
③由于此时图层中只有一个图形，即只有一个
Ｓｈａｐｅ对象，因此可通过获得这个Ｓｈａｐｅ对象，调用
函数ＣｏｎｖｅｒｔＴｏＣｕｒｖｅｓ，并将汉字转换成由曲线组合
的图形；④通过ＢｒｅａｋＡｐａｒｔ将曲线组合图形拆分成
维普资讯
２期 朱焱辉等：ＧＯＣＡＤ矢量汉字数据库的开发 １７３
单个的闭合曲线对象。
Ｉ委一 雹＿嗣警蠼 墨呲 矗墙●■■Ｅ
每个闭合曲线对象由多个节（Ｓｅｇｍｅｎｔ）组成。
为了对单个闭合曲线中弯曲的节进行插值，需要调
垂０ 啊 ７
用Ｓｈａｐｅ的属性Ｃｏｕｎｔ，以获得当前图层中闭合曲
２ １ 阿 ４
线对象的数目。程序中间部分是对弯曲的节插值
ｍｉ ３ ２ 吖 ５
４ ３ 嗄 ７
的部分，插值的方法是通过在一节中均匀地插入五
５ ４ 腌 ９
个节点后实现的。程序的最后一部分是获得所有
节点的（ ，ｙ）坐标，并将它们输入到文件，最后调
用Ｄｅｌｅｔｅ方法，删除当前图层中所有的图形对象。
鬻 ６Ｔ８９ ５６Ｔ８ 哎锕埃挨 ４６３
以上是将单个的汉字转化成闭合曲线图形的
程序。通过循环的方法就可以将外部字符文件中
图２汉字基本资料表
的所有字符，全部转换成由节点坐标控制的闭合曲
Ｆｉｇ．２ Ｔｈｅ ｔａｂｌｅ ｏｆ Ｃｈｉｎｅｓｅ ｗｏｒｄ ｄａｔａ
线对象。
匮蛋 ■ ｉｉ●目■；；■●１．睡嗡苗■ 蛙●■■＿Ｅ一
隧 目目目ｇ目目 目９ ｇｇｇ目＆ 硝 ｇｇ目目目目ｇ目舞●ｇ目目 目躐 器疆圜藁摹蘸囊—曩曩嚣墨酲曩霪謇鏊
３ 矢量汉字数据库的设计与建立
蜀 ５０ ０
２６ ０ １
２７ ０ ２
为了存储汉字坐标数据，并方便数据地导出，
需要建立适当的数据库，以存储和管理这些数据。
作者在本文中设计的汉字数据库共包括了三个表，
荔 ２２３
分别是“汉字基本资料表”、“汉字闭合曲线编号
３２ １
８ｇ０１ ０ ４３５６
０
３３ １ １
表”和“汉字坐标数据表”。
３４ １ ２
“汉字基本资料表”有四列数据（如图２所
示）。第一列是ＩＤ号，其作用主要用于排序；第二
图３汉字闭合曲线编号表
Ｆｉｇ．３ Ｔｈｅ ｃｏｄｅ ｔａｂｌｅ ｏｆ ｃｌｏｓｅ ｌｌｎｅ
列为汉字或字符在数据库中的唯一编号；第三列为
的闭合曲线对象的数目，但却没有对每一个曲线对
具体的汉字或字符；第四列是每一个汉字或字符包
象进行编号。因此，在后二张表中设计了“闭合曲
含闭合曲线的数目。
线编号”，就是为每一个闭合曲线对象进行编号。
“汉字闭合曲线编号表”（如图３所示）的主要
“汉字坐标数据表”（见图４）包含了五列。第
作用是为每一个汉字所包含的闭合曲线对象进行
一
列是ＩＤ号，功能与前面二个表相同；第二列“汉
编号。它包括了三列，第一列ＩＤ号（作用与汉字
字编号”与“汉字基本资料表”中的汉字编号相同；
基本资料表的ＩＤ字段相同）；第二列“汉字编号”
第三列“闭合曲线编号”与“汉字闭合曲线编号表”
与图１中的“汉字编号”相对应。虽然在“汉字基
中的“闭合曲线编号”相同。表的最后二列分别记
本资料表”中已经记录下了每个汉字或字符所包含 录了字体轮廓控制点的 、Ｙ坐标。
网 溜瞪驽ｇｉＣ－￣Ｊ Ｅ疆 一
疆黼疆鞫 阔鼹爨 露Ｉ１．１鞭疆龋骚露圉黼鹱鼹鼹骥 疆蘑 鹱 爨
玉－０ ０ ．０９２ １ ０１５ ０
２ ０ ０ ．０９４ ．９Ｅ．２ ０
爨 ３ ０ ０ ．０９５ ．９０２ ０
雾
爨
４５
６
０
０
０
０
．
．
０
０９
９６＂
８
ｆ ．８Ｔ
．
３６
６８
５２
０
０
骥 Ｔ ０ ０ ．０９Ｂ ．５９ｌ ０
８ ０ ０ ．０９８ ．５０３ｉ ０
９ ０ ０ ．ＯｇＴ ．４２２ ０
１０ ０ ０ ．０９６ ．３４Ｂ ０
雾 ｌ１２ｌ ０ ０ ．０Ｏ９５４ ．２８２３５ ０
图４汉字坐标数据表
Ｆｉｇ．４ Ｔｈｅ ｃｏｏｒｄｉｎａｔｅ ｔａｂｌｅ ｏｆ Ｃｈｉｎｅｓｅ ｗｏｒｄｓ
维普资讯
ｌ７４ 物探化探计算技术 ２９卷
考虑到每种汉字字体矢量字库只有数十兆字
节，上述数据库用ＡＣＣＥＳＳ平台实现。通过以上三
个数据表的建立，将汉字与其对应的坐标联系在一
起，方便了后续程序对汉字的访问与数据导出。三
张表的矢量汉字字体数据，可以用前述的代码，略
加改变，直接输出到这些表中即可。
汉字中每一个闭合曲线对象的编号（见图３）。
ｓｔｒＳｑ１．Ｆｏｒｍａｔ（”ｓｅｌｅｃｔ ｆｒｏｍ汉字闭合曲线编
号表ｗｈｅｒｅ汉字编号＝ ％ｓ，，，，ｍ＿ＣｈｉｎｅｓｅＣｏｄｅ）；
／／构造ＳＱＬ语句
ｍ
＿
ｐＲｅｅｏｒｄｓｅｔ一
．
＞Ｏｐｅｎ（一ｖａｒｉａｎｔ—ｔ（ｓｔｒＳｑ１），ｉｎ—ｐＣｏｎｎｅｃｔｉｏｎ．Ｇｅｔ—
ＩｎｔｅｒｆａｃｅＰｔｒ（），ａｄＯｐｅｎＤｙｎａｍｉｃ，ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ，
ａｄＣｍｄＴｅｘｔ）；
４汉字输入与ＧＯＣＡＤ汉字曲线对
象的形成方法
在ＧＯＣＡＤ中的汉字显示与其它图形处理软
件中的汉字显示有类似的方式和特点，除了可以输
入汉字或字符外，还需要满足用户对字体、尺寸
（放大倍数）、字间距、排列方式等的显示要求。为
此，在本文中特别设计了满足这些要求的汉字输入
的程序界面（如图５所示）。
图５汉字输出程序界面
Ｆｉｇ．５ Ｔｈｅ ｏｕｔｐｕｔ ｐｌａｔｆｏｒｍ ｏｆ Ｃｈｉｎｅｓｅ ｗｏｒｄｓ
要实现汉字的输人，第一步是根据用户输人的
汉字，从“汉字基本资料表”中找出汉字对应的唯
一
编号（见图２）。具体代码（Ｃ＋＋）实现是：
ｓｔｒＳｑ１．Ｆｏｒｍａｔ（”ｓｅｌｅｃｔ木ｆｒｏｍ汉字资料表
ｗｈｅｒｅ汉字＝ ％Ｓｍ，ｒｅ＿Ｃｈｉｎｅｓｅ）；
ｍ
＿
ｐＲｅｃｏｒｄｓｅｔ——
＞Ｏｐｅｎ（一ｖａｒｉａｎｔ＿ｔ（ｓｔ￣Ｓｑ１），ｉｎ—ｐＣｏｎｎｅｃｔｉｏｎ．
ＧｅｔＩｎｔｅｒｆａｃｅＰｔｒ（），ａｄＯｐｅｎＤｙｎａｍｉｃ，ａｄＬｏｃｋ・
Ｏｐｔｉｍｉｓｔｉｃ，ａｄＣｍｄＴｅｘｔ）；ｖａｒ：ｉｎ—ｐＲｅｃｏｒｄｓｅｔ
一
＞ＧｅｔＣｏｌｌｅｃｔ（”汉字编号”）；
ｍ
＿
ＣｈｉｎｅｓｅＣｏｄｅ：（ＬＰＣＳＴＲ）（＿ｂｓ ）ｖａｔ；
其中，ｉｎ—ｐＲｅｃｏｒｄｓｅｔ是一ＲｅｅｏｒｄｓｅｔＰｔｒ类型的指
针；ｍ＿ｐＣｏｎｎｅｃｔｉｏｎ￣＿ＣｏｎｎｅｃｔｉｏｎＰｔｒ类型的指针。
上面的程序通过构造一个ＳＱＬ语句，利用打
开满足ＳＱＬ语句的记录集，从记录中通过取出汉
字所对应的唯一编号赋给一ｖａｒｉａｎｔ—ｔ类型的变量
ｖａｒ，最后将ｖａｒ强制类型转换成ＣＳｔｒｉｎｇ类型，并赋
给变量ｍ＿ＣｈｉｎｅｓｅＣｏｄｅ。
程序实现的第二步是根据找出的汉字编号ｉｎ—
ＣｈｉｎｅｓｅＣｏｄｅ，再从”汉字闭合曲线编号表”中获取
／／打开满足ＳＱＬ语句条件的记录集
ｌｉｎｅｃｏｕｎｔ＝ｍ
＿
ｐＲｅｃｏｒｄｓｅｔ一＞ＲｅｃｏｒｄＣｏｕｎｔ；
／／获得汉字中闭合曲线对象的数目
ｍ
＿
ＬｉｎｅＰａｒｔＣｏｄｅ＝ｎｅｗ ＣＳｔｒｉｎｇ［１ｉｎｅｃｏｕｎｔ］；
ｆｏｒ（１ｏｎｇ ｉ＝０；ｉ＜ｌｉｎｅｃｏｕｎｔ；ｉ＋＋）
｛ ｖａｒ＝ｉｎ—ｐＲｅｃｏｒｄｓｅｔ一＞ＧｅｔＣｏｌｈｅｔ（”闭
合曲线编号”）；／／获得闭合曲线对象
编号
ｍ
＿
ＬｉｎｅＰａｒｔＣｏｄｅ［ｉ］＝（ＬＰＣＳＴＲ）（一ｂｓｔｒ～
ｔ）ｖａｔ； ／／强制类型转换
ｍ
＿
ｐＲｅｃｏｒｄｓｅｔ一＞ＭｏｖｅＮｅｘｔ（）；｝
／／移到下一条记录
以上程序将汉字闭合曲线对象的编号存人
ＣＳｔｒｉｎｇ类型的ｍ＿ＬｉｎｅＰａｒｔＣｏｄｅ数组中。
程序实现的第三步是获取汉字每一闭合曲线
对应点的坐标。下面的代码实现了从数据库中取
出单个汉字或者字符所有控制点的坐标，并分别存
人三个数组中。具体如下：
ｓｔｒＳｑ１．Ｆｏｒｍａｔ（”ｓｅｌｅｃｔ ｆｒｏｍ汉字坐标数
据表ｗｈｅｒｅ汉字编号＝ ％Ｓ ，ｍ＿ＣｈｉｎｅｓｅＣｏｄｅ）；
／／构造ＳＱＬ语句
ｍ
＿
ｐＲｅｃｏｒｄｓｅｔ——
＞Ｏｐｅｎ（一ｖａｒｉｎａｔ—ｔ（ｓｔ￣Ｓｑ１），ｉｎ—ｐＣｏｎ—
ｎｅｃｔｉｏｎ．ＧｅｔＩｎｔｅｒｆａｃｅＰｔｒ（），ａｄＯｐｃｎＤｙｎａｍｉｃ，ａｄＬｏｃｋ—
Ｏｐｔｉｍｉｓｔｉｃ，ａｄＣｍｄＴｅｘｔ）；
／／打开记录集
ｍ
＿
ｐＲｅｃｏｒｄｓｅｔ一＞Ｓｏｒｔ＝”ＩＤ ＡＳＣ”：
／／用于按照ＩＤ号排序
ｒｅｃｏｒｄｃｏｕｎｔ＝ｍ
—
ｐＲｅｃｏｒｄｓｅｔ一＞Ｒｅｃｏｒｄ—
Ｃｏｕｎｔ； ／／获得每个汉字在数据库中包含记录的
数目
ｌｆｏａｔ木ｘ
木ｚ
，
木Ｙ
，
；
／／定义三个数组用于存放所有闭合曲线
对象的Ｘ，Ｙ，ｚ坐标
ＣＳｔｒｉｎｇ ｍ
＿
Ｃｏｄｅ：
／／用于存放所有闭合曲线编号
维普资讯
２期 朱焱辉等：ＧＯＣＡＤ矢量汉字数据库的开发 １７５
ｘ＝ｎｅｗ ｆｌｏａｔ［ｒｅｃｏｒｄｃｏｕｎｔ］；Ｙ＝ｎｅｗ ｆｌｏａｔ
｛／ ｍ＿Ｚｏｏｍ表示图５中用户输入的放
［ｒｅｃｏｒｄｃｏｕｎｔ］；ｚ＝ｎｅｗ ｌｆｏａｔ［ｒｅｃｏｒｄｃｏ吼ｔ］；
大倍数，ｍ＿Ｘｅｏｒｄ，ｍ＿Ｙｃｏｒｄ，ｍ＿Ｚｃｏｒｄ表示用户输
ｍ
＿
Ｃｏｄｅ＝ｎｅｗ ＣＳｔｒｉｎｇ［ｒｅｅｏｒｄｅｏｕｎｔ］；
入的ｘ、Ｙ、ｚ的起始坐标，ｘ＿ｍｏｖｅ和ｙ＿ｍｏｖｅ是与
ｆｏｒ（１ｏｎｇ ｊ＝Ｏ；ｊ＜ｒｅｃｏｒｄｃｏｕｎｔ；ｊ＋＋）
字体排列方式和汉字间距有关的变量 ／
／／读出编号和坐标数据
ｘｘ［ｋ］＝ｍ＿ＸＣｏｄｒ＋（ｘ［ｉ］ ｍ—Ｚｏｏｍ）＋
｛ ｖａｔ＝ｍ—ｐＲｅｅｏｒｄｓｅｔ一＞ＧｅｔＣｏｌｌｅｅｔ（”
闭合曲线编号”）；
ｙｙ［ｋ］＝ｍ＿ＹＣｏｒｄ＋（Ｙ［ｉ］ ｍ＿Ｚｏｏｍ）＋ｙ
ｍ
—
Ｃｏｄｅ［ｊ］＝（ＬＰＣＳＴＲ）（一ｂｓｔｒ—ｔ）
＿
ｍｏｖｅ；ＺＺ［ｋ］＝ｍ＿ＺＣｏｒｄ＋Ｚ［ｉ］；ｋ＋＋；｝
ｖａｔ＂；
ｅｌｓｅ
ｖａｔ＂＝ｍ
ｐＲｅｅｏｒｄｓｅｔ一＞ＧｅｔＣｏｌｌｅｅｔ
＿
（”ｘ”）；ｘ［ｊ］＝ｆｌｏａｔ（ｖａｒ．ｆｌｔＶａ１）；
／／表示同一个闭合曲线对象的坐标点已经判断完
毕，然后调用生成ＧＯＣＡＤ闭合曲线对象的函数。
ｖａｔ＂＝ｍ
＿
ｐＲｅｅｏｒｄｓｅｔ一＞ＧｅｔＣｏｌｌｅｅｔ
（”Ｙ”）；Ｙ［Ｊ］＝ｆｌｏａｔ（ｖａｔ＂．ｆｌｔＶａ１）；
｛ｍｙｐｌｉｎｅ．ＧＯＣＡＤＰ￣ｎｅ（强，ＹＹ，ｚｚ，ｋ）；ｋ＝Ｏ；
ａｋ；｝
ｖａｔ＂＝ｍ
＿
ｐＲｅｅｏｒｄｓｅｔ一＞ＧｅｔＣｏｌｌｅｅｔ
ｂｒｅ
（”ｚ”）；ｚ［ｊ］＝ｆｌｏａｔ（ｖａｔ＂．ｆｌｔＶａ１）；
ｉｆ（Ｉ＝＝ｒｅｃｏｒｄｃｏｕｎｔ一１）／／表示一个汉字
ｍ
ｐＲｅｅｏｒｄｓｅｔ一＞ＭｏｖｅＮｅｘｔ（）；｝
的最后一个闭合曲线对象
＿
／／移动到下一记录
｛ｍｙｐｌｉｎｅ．ＧＯＣＡＤＰ￣ｎｅ（强，ＹＹ，ｚｚ，ｋ）；ｋ＝０；
ｍ
＿
ｐＲｅｅｏｒｄｓｅｔ一＞Ｃｌｏｓｅ（）；
ｂｒｅａｋ；｝
／／关闭记录集
｝｝ ．
程序实现的第四步是将每一个闭合曲线以及
以上四步程序组合到一起，通过循环的方式可
它们的控制点全部分开，成为单个的闭合曲线对
以将用户输入的所有汉字和字符一起生成ＧＯＣＡＤ
象，再调用生成ＧＯＣＡＤ闭合曲线对象的函数，完
的一个闭合曲线对象文件，然后调用ＭｙＰＬｉｎｅ的成
成数据的转换。
员函数ＧＯＣＡＤＳａｖｅ（）将数据存储到磁盘上。
上面的程序中用到的ＭｙＰＬｉｎｅ变量是用ＧＯ—
ｌｆｏａｔ ｘｘ， ＹＹ， ｚｚ； ／／用于存放每个闭合
ＣＡＤ的标准线对象类Ｐｌｉｎｅ来定义的。Ｐｌｉｎｅ类主
曲线对象控制点坐
要包括三个函数：ＧＯＣＡＤＣｒｅａ￣ｎｅ、ＧＯＣＡＤＰＬｉｎｅ
标
和ＧＯＣＡＤＳａｖｅ。
ｘｘ＝ｎｅｗ ｆｌｏａｔ［ｒｅｃｏ￣ｃｏｕｎｔ］；ｙｙ＝ｎｅｗ ｆｌｏａｔ
程序实现的第五步是：在ＧｏＣＡＤ中，为了将
［ｒｅｃｏ￣ｃｏｕｎｔ］；ＺＺ＝ｎｅｗ ｆｌｏａｔ［ｒｅｃｏｒｄ—
汉字控制点坐标数据转化成闭合曲线对象，首先需
ｃｏｕｎｔ］；
要将控制点坐标数据转化成ＧＯＣＡＤ的空间点
／／ｒｅｅｏｒｄｅｏｕｎｔ表示每个汉字在数据库中
Ｐｏｉｎｔ３ｄ对象；然后由Ｐｏｉｎｔ３ｄ对象构造原子Ａｔｏｍ；
．
包含记录的目
再由原子Ａｔｏｍ对象构造节ｓｅｇｍｅｎｔ对象；最后将
ｉ＝０；ｋ＝０；ｍｙｐｌｉｎｅ．ＧＯＣＡＤＣｒｅａ￣Ｕｎｅ（ｏｕｔ一
所有的节ｓｅｇｍｅｎｔ连接起来，构成ＧＯＣＡＤ的闭合
￥ａｖｅｎａｌｎｅ）；／／ｍｙｐｌｉｎｅ是ＭｙＰＬｉｎｅ类型的变量ｏｕｔ－
曲线对象。下面是Ｃ＋＋代码实现。
￥ａｖｅｎａｌｎｅ是输出文件名，ＭｙＰＬｉｎｅ是
ＩＬｉｎｅ ｉｌｉｎｅ；ＰＬｎｅ ｐｌｉｎｅ
对ＧＯＣＡＤ进行开发产生的新类
＿
ｔｍｐ；ＳｅｇＵｓｅ
ｆｏｒ（ｊ＝Ｏ；ｊ＜ｌｉｎｅｒｅｅｏｒｄｅｏｕｎｔ；ｊ＋＋）
・ｓｅｇｍｅｎｔ＝ｎｉｌ；ＰｔｒＬｉｓｔ＜ＳｅｇＵｓｅ＞ｓｅｇｓ；
｛ ／／ｌｉｎｅｒｅｅｏｒｄｅｏｕｎｔ表示每个汉字所包
ＰｔｒＬｉｓｔ＜ＩＬｉｎｅ＞ ｉｌｉｎｅｓ；
含的闭合曲线对象的数目
ｐｌｉｎｅ
＿
ｔｍｐ＝ｐｌｉｎｅ：：ｃｒｅａｔｅ（ｓａｖｅｎａｍｅ）；
ｏｆｒ（；ｉ＜ｒｅｃｏｒｄｃｏｕｎｔ；ｉ＋＋）
／／创建Ｐｌｉｎｅ对象
｛ｉｆ（ｍ—Ｃｏｄｅ［ｉ］＝＝ｍ—ＬｉｎｅＰａｒｔＣｏｄｅ
ｉｌｉｎｅ＝ｐｌｉｎｅ
＿
ｔｍｐ一＞ｃｒｅａｔｅ＿ｅｌｅｍｅｎｔ（）；
［ｊ］）
／／由Ｐｈｎｅ对象创建一个Ｉｌｉｎｅ
／ 如果第ｉ个坐标点所对应的闭合曲线对象编号
对象
与第ｊ个闭合曲线对象编号相同，即这些坐标点都
Ｐｏｉｎｔ３ｄ ｐｏｉｎｔ＝ｎｅｗ Ｐｏｉｎｔ３ｄ［Ｎｕｍｂｅｒ］；
属于同一个闭合曲线对象，则将这些点的坐标连同
／／定义三维空间点数组
放大倍数以及其它参数重新存入新的数组中。 ／
Ａｔｏｍ ａｔｏｍｓ＝ｎｅｗ Ａｔｏｍ 『Ｎｕｍｂｅｒ］：
维普资讯
１７６ 物探化探计算技术
／／定义原子即含有属性的三
维空间点
２９卷
ｆｏｒ（１ｏｎｇ ｉ＝０；ｉ＜Ｎｕｍｂｅｒ；ｉ＋＋）｛
／／给三维空间点和属性数组
赋值
・ｐｏｉｎｔ［ｉ］＝Ｐｏｉｎｔ３ｄ（ｆｌｏａｔ（ｘ［ｉ］），ｆｌｏａｔ（Ｙ
［ｉ］），ｌｆｏａｔ（ｚ［ｉ］））；／／由坐标构造ＧＯＣＡＤ的空
间点对象
ａｔｏｍｓ［ｉ］＝ｉｌｉｎｅ一＞ｃｒｅａｔｅ—ａｔｏｍ（ｐｏｉｎｔ
［ｉ］）； ／／用于构造出原子
｝
ｆｏｒ（１ｏｎｇ ｉ＝１；ｉ＜Ｎｕｍｂｅｒ；ｉ＋＋）｛
／／调用ＩＬｉｎｅ的成员函数由原
子构造节对象（ｓｅｇｍｅｎｔ）
ｓｅｇｍｅｎｔ＝ｉｌｉｎｅ一＞ｃｒｅａｔｅ
＿
一
图６一个汉字字符串在ＧＯＣＡＤ软件中四种字体的
显示对比结果
Ｆｉｇ．６ Ｔｈｅ ｏｕｔｐｕｔ ｒｅｓｕｌｔ ｏｆ Ｃｈｉｎｅｓｅ ｗｏｒｄｓ ｉｎ ＧＯＣＡＤ
ｓｉｍｐｌｅｘ（ａｔｏｍｓ［ｉ
５结论
为了在ＧＯＣＡＤ地质建模软件中实现三维汉
１］，ａｔｏｍｓ［ｉ］）；
｝
ｓｅｇｍｅｎｔ＝ｉｌｉｎｅ一＞ｃｒｅａｔｅ
—
ｓｉｍｐｌｅｘ（ａｔｏｍｓ［Ｎｕｍ—
ｂｅｒ一１］，ａｔｏｍｓ［０］）；／／将Ｉｌｉｎｅ起始点连起来构成
闭合曲线对象
ｓｅｇｓ．ａｐｐｅｎｄ（ｓｅｇｍｅｎｔ）；
／／将节对象添加到节对象列
表中
以上程序将汉字中单个的闭合曲线对象用
ＧＯＣＡＤ的Ｓｅｇｍｅｎｔ表示出来，然后将该节对象添
加到节列表ｓｅｇｓ中，通过循环的方式就能将所有
汉字的所有闭合曲线对象以ｓｅｍｅｎｔ的形式添加 ｇ
到节列表ｓｅｇｓ中，用于最终构成ＧＯＣＡＤ的ＰＬｉｎｅ
对象ｐｌｉｎｅ—ｔｍｐ。
程序实现的第六步是将前述程序形成的汉字
字体轮廓曲线保存，形成ＧＯＣＡＤ能够接受的对象
文件。代码如下
ｐｌｉｎｅ
ｔｍｐ一＞ｉｎｉｔ（ｓｅｇｓ，ｉｌｉｎｅｓ，ｒｅ，ｅ）；
／／由节对象列表ｓｅｇｓ生成ＰＬｉｎｅ的
＿
字的显示，作者在文中提出的利用ＣｏｒｅＤｒａｗ绘图
软件提取矢量汉字，建立矢量汉字数据库，并将之
在ＧＯＣＡＤ中输入和显示的方案是成功的。实际
上，上述汉字的实现方案，完全可以移植到一些只
能在工作站上运行的大型图形处理和三维可视化
软件上。
参考文献：
［１］ 朱焱辉，朱培民，金丹．从＆ｒｅＧｉｓ平面栅格图形到
ＧＯＣＡＤ三维图像转换的开发探讨［Ｊ］．工程地球物
理学报，２００４，ｌ０（５）：４３５．
［２］张立科．Ｖｉｓｕａｌ Ｃ ６．０数据库开发技术与工程实
践［Ｍ］．北京：人民邮电出版社，２００４．
［３］李村合．ＶＣ 应用程序中ＯＤＢＣ数据源的自动注
册［Ｊ］．物探化探计算技术，２００３，２５（１）：８８．
［４］ 张丽莉，吴健生，王家林．地学数据文件向Ｓｈａｐｅｆｉｌｅ
文件的转换［Ｊ］．物探化探计算技术，２００４，２６（１）：
７８．
对象ｐｌｉｎｅ＿ｔｍｐ
ＧＯｂｊ ｇｒｏｕｐ＝（ＧＯｂｊ ）ｐｌｉｎｅ—ｔａｐ；ｒ
／／将Ｐｎｎｅ的对象指针强制转换成
［５］冯德山，戴前伟．用Ｖｉｓｕａｌ Ｃ
２３１．
开发地质雷达正演
模拟软件［Ｊ］．物探化探计算技术，２００４，２６（３）：
［６］汤彬，陆玲．用ＶＣ开发Ｗｉｎｄｏｗｓ字符曲线类［Ｊ］．
物探化探计算技术，２０００，２２（３）：２８２．
［７］陈志远，赵程．ＶＣ环境下ＡｕｔｏＣＡＤ图形实体的二次
Ｃ，ｏｂｊ类型的指针
ｇｏｂｊ：：ｓａｖｅ（ｇｒｏｕｐ）；
／／调用Ｇｏｂｊ的成员函数保存数据
前述的六步程序，完整实现了将用户输入的汉
字或者字符串显示在ＧＯＣＡＤ软件的过程。图５
和图６是一个用户输入“中华人民共和国”的汉字
字符串，并在ＧＯＣＡＤ中显示出四种字体对比结果
的例子。
开发［Ｊ］．现代制造工程，２００６，８：５４．
作者简介：朱焱辉（１９７９一），男，汉族，四川泸州
人，硕士，主要研究方向：地球探测与信息技术。
发布评论