張君伍

摘要：本文為將CorelDraw和節(jié)理玫瑰花圖繪圖相結(jié)合實(shí)現(xiàn)自動(dòng)繪圖，在CorelDraw VBA中實(shí)現(xiàn)了節(jié)理數(shù)據(jù)的自動(dòng)讀取、分組統(tǒng)計(jì)、繪制節(jié)理玫瑰花圖、群組、平移等功能，并編成節(jié)理走向、節(jié)理傾向、節(jié)理傾角、傾向傾角等四個(gè)玫瑰花圖繪圖函數(shù)，建立了窗口界面。該繪圖插件提高了繪制節(jié)理玫瑰花圖的效率。

關(guān)鍵詞：構(gòu)造地質(zhì)學(xué);CorelDraw;VBA;節(jié)理玫瑰花圖;自動(dòng)繪圖

中圖分類號(hào)：TP3 文獻(xiàn)標(biāo)識(shí)碼：A

文章編號(hào)：1009-3044（2020）14-0267-02

節(jié)理玫瑰花圖是構(gòu)造地質(zhì)學(xué)中整理、統(tǒng)計(jì)節(jié)理數(shù)據(jù)的圖形，能夠突出節(jié)理數(shù)據(jù)的優(yōu)選方位。Coreldraw是一款矢量繪圖軟件，在設(shè)計(jì)、編輯等中應(yīng)用很廣。本文利用CoreldrawVBA編制了節(jié)理玫瑰花圖繪圖插件，可以完成節(jié)理走向玫瑰花圖、節(jié)理傾向玫瑰花圖、節(jié)理傾角玫瑰花圖、節(jié)理傾向傾角玫瑰花圖等的繪制，具有窗口界面、繪圖快速、節(jié)約時(shí)間、圖形簡(jiǎn)潔等特點(diǎn)，在構(gòu)造地質(zhì)學(xué)的生產(chǎn)、科研、教學(xué)中簡(jiǎn)潔易用。

1節(jié)理玫瑰花圖插件的使用方法

節(jié)理玫瑰花圖插件開發(fā)首先通過Coreldraw菜單中選擇“工具”>“宏”>“宏管理工具”，調(diào)出“宏管理工具”泊塢窗（或按Mt+F11組合鍵打開），然后加載“構(gòu)造節(jié)理玫瑰花圖.gms”，雙擊內(nèi)部的宏運(yùn)行插件。

節(jié)理玫瑰花圖窗口中提供了數(shù)據(jù)文件選擇按鈕，選擇數(shù)據(jù)存儲(chǔ)的文本文件（*.txt）;節(jié)理玫瑰花圖繪圖類型選擇，每次只能選擇一種節(jié)理玫瑰花圖進(jìn)行繪制;每一種玫瑰花圖繪制前有默認(rèn)的圖層名（可修改）;成圖比例系數(shù)默認(rèn)值為2（可修改，但系數(shù)須大于0，系數(shù)與圖大小成反比）;參數(shù)設(shè)置好后點(diǎn)擊“開始繪圖”可繪制玫瑰花圖;點(diǎn)擊“關(guān)閉窗口”可以關(guān)閉窗體（圖1）。

2節(jié)理玫瑰花圖實(shí)現(xiàn)過程

2.1讀取并統(tǒng)計(jì)數(shù)據(jù)

節(jié)理玫瑰花圖插件的數(shù)據(jù)輸入文件為文本文件（*.txt），數(shù)據(jù)分為三列，第一行數(shù)據(jù)為“編號(hào)橫坐標(biāo)縱坐標(biāo)”，橫縱坐標(biāo)單位為cm，坐標(biāo)為玫瑰花圖中心點(diǎn)坐標(biāo)，從第二行開始向下均為節(jié)理數(shù)據(jù)“編號(hào)傾向傾角”（圖2）。采用CorelScriptTools.Get-FileBox選取文件并利用循環(huán)Do While Loop和input讀取數(shù)據(jù)。根據(jù)玫瑰花圖類型進(jìn)行數(shù)據(jù)統(tǒng)計(jì)，節(jié)理按照一定的間隔分組，傾向轉(zhuǎn)化為走向，分組統(tǒng)計(jì)平均值和數(shù)目。

2.2繪制玫瑰花圖

玫瑰花繪制原理為簡(jiǎn)單的幾何和三角函數(shù)，玫繪制過程分為繪制底圖、繪制玫瑰花、標(biāo)注文字、群組與平移等部分。

1）繪制底圖：底圖中節(jié)理走向玫瑰花圖為半圓，其余三個(gè)玫瑰花圖為整圓（下面的示例是繪制整圓）。內(nèi)部小圓（半圓）為虛線圓（半圓），最外圈大圓（半圓）為實(shí)線圓（半圓）。采用循環(huán)調(diào)用CreateEllipse2繪制底圖圓，利用對(duì)象的Outline.SetProp-erties和Fill.ApplyNoFill屬性設(shè)置底圖圓細(xì)節(jié)如不填充顏色、內(nèi)部輔助圓為虛線、外圈圓為實(shí)線等。

2）繪制玫瑰花：四種玫瑰花圖的花繪制方法相同，根據(jù)統(tǒng)計(jì)的每組節(jié)理平均角度（平均傾向、平均走向、平均傾角）數(shù)據(jù)繪制成圖。主要代碼如下：

3成圖效果

利用某處的構(gòu)造節(jié)理數(shù)據(jù)（表1）在CorelDraw中利用繪圖插件繪圖后效果見下圖（圖3）。

4結(jié)語

基于Coreldraw VBA開發(fā)的Coreldraw節(jié)理玫瑰花圖繪圖插件的優(yōu)勢(shì)有：可以作為構(gòu)造地質(zhì)學(xué)教學(xué)繪圖插件;后期可以拓展開發(fā)批量成圖功能以滿足大批量成圖的要求;可以為開發(fā)CorelDraw VBA環(huán)境下其他的構(gòu)造地質(zhì)學(xué)插件提供參考;提高了繪制節(jié)理玫瑰花圖的效率;不足之處為未實(shí)現(xiàn)批量繪制節(jié)理玫瑰花圖，圖面的細(xì)節(jié)控制需要繼續(xù)完善。

[通聯(lián)編輯：梁書]