• <tr id="yyy80"></tr>
  • <sup id="yyy80"></sup>
  • <tfoot id="yyy80"><noscript id="yyy80"></noscript></tfoot>
  • 99热精品在线国产_美女午夜性视频免费_国产精品国产高清国产av_av欧美777_自拍偷自拍亚洲精品老妇_亚洲熟女精品中文字幕_www日本黄色视频网_国产精品野战在线观看 ?

    CorelDraW VBA繪制構(gòu)造地質(zhì)學中節(jié)理玫瑰花圖

    2020-07-04 02:14:28張君伍
    電腦知識與技術(shù) 2020年14期

    張君伍

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

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

    中圖分類號:TP3 文獻標識碼:A

    文章編號:1009-3044(2020)14-0267-02

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

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

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

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

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

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

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

    2.2繪制玫瑰花圖

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

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

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

    3成圖效果

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

    4結(jié)語

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

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

    涟水县| 卢氏县| 汨罗市| 阜南县| 钟山县| 二连浩特市| 宿州市| 曲沃县| 永城市| 察哈| 柞水县| 镇远县| 清镇市| 武山县| 青铜峡市| 轮台县| 勐海县| 南江县| 犍为县| 遵义县| 全州县| 清镇市| 乌兰浩特市| 青阳县| 阳原县| 孟连| 儋州市| 会理县| 慈溪市| 三河市| 太白县| 南部县| 德安县| 南皮县| 胶州市| 武安市| 大新县| 嘉祥县| 呼伦贝尔市| 如东县| 江陵县|