◇聊城大學(xué)機(jī)械與汽車工程學(xué)院 廖瑞雪 李凱龍 許亞輝 趙傳哲 徐立鵬

自動評分技術(shù)就是借助于計算機(jī)來輔助人工評分的一項技術(shù)。自動評分系統(tǒng)可以幫助閱卷者快速、準(zhǔn)確、公平公正的評分，以達(dá)到減少人力、物力、財力的目的，因此需要設(shè)計一種可自動評分的系統(tǒng)，以便減輕教師的工作量。該系統(tǒng)以VBA為開發(fā)語言，通過對AutoCAD的二次開發(fā)，具備讀取標(biāo)準(zhǔn)圖紙，輸入評分標(biāo)準(zhǔn)，自動評卷，統(tǒng)計成績以及成績管理功能。

1 引言

工程圖學(xué)是工科類學(xué)生必修的一門技術(shù)基礎(chǔ)課，在工程圖學(xué)的考試中一直沿用教師手動閱卷、成績統(tǒng)計，在這種考察模式下教師需要付出大量的時間和精力[1]。目前，在針對填空、選擇、判斷等客觀題型的CAD系統(tǒng)中，自動測評技術(shù)已經(jīng)相當(dāng)完善，如判斷題只需將考生所選的內(nèi)容與正確答案進(jìn)行匹配對比即可，填空中文字錄入內(nèi)容的評判則可通過在一定字?jǐn)?shù)范圍內(nèi)從某一個字開始進(jìn)行精準(zhǔn)對比來實現(xiàn)[2]。相對于客觀題型的考試，AutoCAD課程的測評的目的則在于考查學(xué)生操作的熟練程度正確性和熟練性，所以題目類型多是圖形的繪制、尺寸的標(biāo)注、圖形的編輯、塊類型的標(biāo)注等主觀題[3]。在AutoCAD自動評分系統(tǒng)中對于圖元數(shù)據(jù)的提取和屬性的表達(dá)以及自動測評功能是該系統(tǒng)開發(fā)的核心所在。

2 智能評分的實現(xiàn)原理

VBA是Visual Basic for Application的簡寫，它是基于Visual Basic發(fā)展而來的，它寄生于AutoCAD模塊中，它不但繼承了VB的開發(fā)機(jī)制，而且還具有與VB相似的語言結(jié)構(gòu)[4]。AutoCADVBA提供了訪問AutoCAD文檔的接口，在AutoCAD繪圖過程中，每一個圖元的繪制和格式的設(shè)置均作為不同對象的屬性保存在文檔中。在自動評分系統(tǒng)中只需要讀取每個學(xué)生的圖紙中圖元的屬性與標(biāo)準(zhǔn)圖對比即可得出成績，并利用Excel打印出成績。

3 智能評分的實現(xiàn)過程

3.1 標(biāo)準(zhǔn)圖紙的輸入設(shè)計

利用選擇集對標(biāo)準(zhǔn)圖紙的讀取，讀取方式采用手動選取需要評分的圖元并輸入對應(yīng)的分?jǐn)?shù)，見圖1。

圖1 建立標(biāo)準(zhǔn)圖形數(shù)據(jù)庫流程圖

（1）選擇集的初始化與建立。刪除圖紙中可能包含的選擇集，以免影響新的選擇集的建立。初始化程序如下：

（2）圓屬性的讀取實例。判斷選擇的圖元是否為圓，然后再讀取標(biāo)準(zhǔn)圖紙中圓的圓心坐標(biāo)、半徑、線寬、顏色等參數(shù)，并把得到的屬性參數(shù)進(jìn)行儲存，程序如下：

其它圖元屬性的讀取也是可以借鑒以上圖元屬性讀取的方法進(jìn)行，最主要的是知道每個圖元在VBA中的表示方法才能判斷是否為所需要的圖元，再根據(jù)每個圖元的特點提取圖元屬性，并儲存起來，以便于需要評分的圖紙進(jìn)行對比，圖元的表示方法主要參考VBA中對象模型庫[5]，見圖2。

圖2 CAD對象模型庫

（3）標(biāo)準(zhǔn)圖紙分?jǐn)?shù)的輸入。標(biāo)準(zhǔn)圖紙的分?jǐn)?shù)的輸入，應(yīng)該在圖元屬性的讀取后進(jìn)行，同一個圖元的分?jǐn)?shù)與屬性的讀取應(yīng)該在同一個過程中進(jìn)行，以便一一對應(yīng)。對于圖元分?jǐn)?shù)的輸入首先需要判斷圖元再輸入分?jǐn)?shù)，分輸入的輸入可以采用InputBox函數(shù)進(jìn)行。以直線圖元的分?jǐn)?shù)輸入為例進(jìn)行說明：

ElseIf StrComp(objEntity(0).EntityName,"AcDbline",vbTextCompare)=0 Then

ScoreL(a)=InputBox("請輸入該圖元的分?jǐn)?shù)（默認(rèn)每個1分）：","標(biāo)準(zhǔn)評分標(biāo)準(zhǔn)的輸入：",1)

a=a+1

3.2 評分圖紙的評分系統(tǒng)設(shè)計

（1）新圖紙的打開與關(guān)閉。在對需要評分的圖紙評分時，首先需要打開新的圖紙，并在評完分?jǐn)?shù)后關(guān)閉該圖紙。以下以打開“學(xué)生A”的圖紙為例，程序如下：

在該程序中首先打開新圖紙，新圖紙應(yīng)該放在指定的文件夾中，才能被讀取，打開新圖紙后調(diào)用評分程序進(jìn)行評分并得出最后分?jǐn)?shù)儲存在數(shù)組Score(m)中，以便在最后以Excel輸出是讀取該圖紙的分?jǐn)?shù)。在得到該圖紙分后，圖紙需要關(guān)閉，以減少電腦的卡頓，關(guān)閉程序為ThisDrawing.Close，但值得注意的是關(guān)閉程序一定在另一個新圖紙打開前，否則可能造成下一個新圖紙的評分為0或者出現(xiàn)錯誤導(dǎo)致程序無法進(jìn)行。

（2）對新圖紙進(jìn)行遍歷評分。第一步對新圖紙進(jìn)行遍歷取出該圖紙中的全部圖元[6]，第二步對所有圖元按類進(jìn)行篩選，如在所有圖元中篩選出圓這個圖元，在對所有圓與前邊標(biāo)準(zhǔn)圖中所取出的標(biāo)準(zhǔn)圓進(jìn)行對比評分，最終得出分?jǐn)?shù)，見圖3。

圖3 CAD圖形判別流程圖

（3）對圓圖元進(jìn)行評分。在上一步中對圖紙進(jìn)行遍歷時，已經(jīng)提取了圖紙中所有圖元的屬性，所以在該過程中只需要調(diào)出圓圖元的屬性并與標(biāo)準(zhǔn)圖對比即可，調(diào)取該圖元的圓心、半徑徑等進(jìn)行評分。

在該程序中首先判斷哪個圖元是圓，使用程序StrComp(objEntity.EntityName,"AcDbcircle",vbTextCompare)=0，再用ptCen=objEntity.Center提取圓的圓心坐標(biāo)，并儲存在數(shù)組ptCen中，用radius=objEntity.radius提取圓的半徑，并儲存在radius中，下面對該圖元屬性與標(biāo)準(zhǔn)圖元屬性進(jìn)行對比得出正誤，對比程序為ptCen(0)=P1(d) And ptCen(1)=P2(d) And radius=r(d)，再利用IF函數(shù)進(jìn)行對比，值得注意的是，在對比過程中一定保證數(shù)組的對應(yīng)，判斷出正誤后，對分?jǐn)?shù)進(jìn)行讀取ScoreC(s)，與原分?jǐn)?shù)相加，得出最后分?jǐn)?shù)。

（4）對其他圖元進(jìn)行評分。在對其他圖元的評分時，需要知道該圖元的一些屬性，該屬性也可以在VBA中的本地窗口中看到，便于對圖元屬性的確定和程序的調(diào)試。

3.3 成績的輸出設(shè)計

（1）學(xué)生信息的采集。本系統(tǒng)最終分?jǐn)?shù)以Excel表格的形式輸出。該系統(tǒng)需要學(xué)生把做好的圖紙放在指定的文件夾中，讀取“2021級車輛工程3班”該文件下的所有后綴為.dwg的圖紙，并讀取圖紙名稱，程序如下：

該程序把讀取的圖紙名稱放在輸入j2（j1）中以遍輸入excel中。

（2）分?jǐn)?shù)的輸入。把前期得到的學(xué)生分?jǐn)?shù)，以Excel形式輸出，見圖4。

圖4 評分結(jié)果對比

4 結(jié)束語

本課題設(shè)計一種AutoCAD的自動評分系統(tǒng)，并利用VBA和EXCEL進(jìn)行設(shè)計，可進(jìn)行標(biāo)準(zhǔn)圖紙的讀取，分?jǐn)?shù)的輸入，自動測評，輸出分?jǐn)?shù)等功能。本課題在對評分系統(tǒng)的設(shè)計中，對于標(biāo)準(zhǔn)圖紙的輸入采用單個圖元的手動輸入和單個圖元的分?jǐn)?shù)輸入，這樣可以做到根據(jù)圖元的重要性進(jìn)行評分，得到的評分結(jié)果更加具代表性。同時，已經(jīng)對評分系統(tǒng)的開發(fā)過程進(jìn)行了完整設(shè)計。該系統(tǒng)已經(jīng)具備了基礎(chǔ)圖紙的完整評分，有一定的實用價值，在一定程度上彌補了國內(nèi)高校對工程圖自動評分系統(tǒng)需求的不足。