基于VBA技术的AutoCAD智能自动评分系统的设计_廖瑞雪.pdf

362023 年 第 2 期On Error Resume Next自动评分技术就是借助于计算机来辅助人工评分的一项If Not IsNull(ThisDrawing.SelectionSets.Item(mySelectionSet)Then技术。自动评分系统可以帮助阅卷者快速、准确、公平公正Set createSSet=ThisDrawing.SelectionSets.Item(mySelectionSet)的评分，以达到减少人力、物力、财力的目的，因此需要设createSSet.Delete计一种可自动评分的系统，以便减轻教师的工作量。该系统End If以VBA为开发语言，通过对AutoCAD的二次开发，具备读取标Set createSSet=ThisDrawing.SelectionSets.Add(mySelectionSet)准图纸，输入评分标准，自动评卷，统计成绩以及成绩管理End Function（2）圆属性的读取实例。判断选择的图元是否为圆，然后功能。再读取标准图纸中圆的圆心坐标、半径、线宽、颜色等参数，并把得到的属性参数进行储存，程序如下：If StrComp(objEntity1.EntityName,AcDbcircle,vbTextCompare)=0 1 引言Then工程图学是工科类学生必修的一门技术基础课，在工程图Dim ptCen As Variant学的考试中一直沿用教师手动阅卷、成绩统计，在这种考察模Dim radius As Double1式下教师需要付出大量的时间和精力。目前，在针对填空、选ptCen=objEntity1.Center 择、判断等客观题型的CAD系统中，自动测评技术已经相当完radius=objEntity1.radius善，如判断题只需将考生所选的内容与正确答案进行匹配对比r(x)=radiusP1(x)=ptCen(0)即可，填空中文字录入内容的评判则可通过在一定字数范围内2P2(x)=ptCen(1)从某一个字开始进行精准对比来实现。相对于客观题型的考X=x+1试，AutoCAD课程的测评的目的则在于考查学生操作的熟练程End If度正确性和熟练性，所以题目类型多是图形的绘制、尺寸的标其它图元属性的读取也是3注、图形的编辑、块类型的标注等主观题。在AutoCAD自动评可以借鉴以上图元属性读取的分系统中对于图元数据的提取和属性的表达以及自动测评功能方法进行，最主要的是知道每是该系统开发的核心所在。个图元在VBA中的表示方法才能判断是否为所需要的图元，再2 智能评分的实现原理根据每个图元的特点提取图元属性，并储存起来，以便于需要VBA是Visual Basic for Application的简写，它是基于Visual 评分的图纸进行对比，图元的表示方法主要参考VBA中对象模Basic发展而来的，它寄生于AutoCAD模块中，它不但继承了VB5型库，见图2。4的开发机制，而且还具有与VB相似的语言结构。AutoCADVBA提供了访问AutoCAD文档的接口，在AutoCAD绘图过程中，每一个图元的绘制和格式的设置均作为不同对象的属性保存在文档中。在自动评分系统中只需要读取每个学生的图纸中图元的属性与标准图对比即可得出成绩，并利用Excel打印出成绩。3 智能评分的实现过程3.1 标准图纸的输入设计利用选择集对标准图纸的读取，读取方式采用手动选取需要评分的图元并输入对应的分数，见图1。（1）选择集的初始化与建立。删除图纸中可能包含的选择集，以免影响新的选择集的建立。初始化程序如下：图2 CAD对象模型库PublicFunction createSSet()As AcadSelectionSet（3）标准图纸分数的输入。标准图纸的分数的输入，应该基于VBA技术的AutoCAD智能自动评分系统的设计基于VBA技术的AutoCAD智能自动评分系统的设计聊城大学机械与汽车工程学院 廖瑞雪 李凯龙 许亚辉 赵传哲 徐立鹏聊城大学机械与汽车工程学院 廖瑞雪 李凯龙 许亚辉 赵传哲 徐立鹏图1 建立标准图形数据库流程图37 技术创新s=s+1在图元属性的读取后进行，同一个图元的分数与属性的读取应d=d+1该在同一个过程中进行，以便一一对应。对于图元分数的输入GoTo tiao首先需要判断图元再输入分数，分输入的输入可以采用ElseInputBox函数进行。以直线图元的分数输入为例进行说明：j=jElseIf StrComp(objEntity(0).EntityName,AcDbline,vbTextCompare)End If=0 Then End IfScoreL(a)=InputBox(请输入该图元的分数（默认每个1分）：,Next标准评分标准的输入：,1)End Functiona=a+1在该程序中首先判断哪个图元是圆，使用程序StrComp3.2 评分图纸的评分系统设计(objEntity.EntityName,AcDbcircle,vbTextCompare)=0，再用（1）新图纸的打开与关闭。在对需要评分的图纸评分时，ptCen=objEntity.Center提取圆的圆心坐标，并储存在数组首先需要打开新的图纸，并在评完分数后关闭该图纸。以下以ptCen中，用radius=objEntity.radius提取圆的半径，并储存在打开“学生A”的图纸为例，程序如下：radius中，下面对该图元属性与标准图元属性进行对比得出正For b1=0 To j1-1误，对比程序为ptCen(0)=P1(d)And ptCen(1)=P2(d)And radius ThisDrawing.Application.Documents.Open(i1(m)打开指定图纸=r(d)，再利用IF函数进行对比，值得注意的是，在对比过程中Call SelectionSet99 读取Score(m)=j提取该图纸分数一定保证数组的对应，判断出正误后，对分数进行读取m=m+1ScoreC(s)，与原分数相加，得出最后分数。ThisDrawing.Close（4）对其他图元进行评分。在对其他图元的评分时，需要Next b1知道该图元的一些属性，该属性也可以在VBA中的本地窗口中在该程序中首先打开新图纸，新图纸应该放在指定的文件看到，便于对图元属性的确定和程序的调试。夹中，才能被读取，打开新图纸后调用评分程序进行评分并得3.3 成绩的输出设计出最后分数储存在数组Score(m)中，以便在最后以Excel输出是（1）学生信息的采集。本系统最终分数以Excel表格的形式读取该图纸的分数。在得到该图纸分后，图纸需要关闭，以减输出。该系统需要学生把做好的图纸放在指定的文件夹中，读少电脑的卡顿，关闭程序为ThisDrawing.Close，但值得注意的是取“2021级车辆工程3班”该文件下的所有后缀为.dwg的图纸，关闭程序一定在另一个新图纸打开前，否则可能造成下一个新并读取图纸名称，程序如下：图纸的评分为0或者出现错误导致程序无法进行。Private Function SelectionSet98()As Single（2）对新图纸进行遍历评分。第一步对新图纸进行遍历取Dim Str1$,Str2$,mPath$6mPath=C:UsersAdministratorDesktop2021级车辆工程3班 出该图纸中的全部图元，第Str1=Dir(mPath&*.dwg)二步对所有图元按类进行筛Dim j1 As Integer选，如在所有图元中筛选出圆Do While Str1 这个图元，在对所有圆与前边Str2=Left(Str1,InStr(Str1,.)-1)标准图中所取出的标准圆进行i1(j1)=C:UsersAdministratorDesktop2021级车辆工程3班+Str2 对比评分，最终得出分数，见+.dwg图3。i2(j1)=Str2（3）对 圆 图 元 进 行 评j1=j1+1Str1=Dir分。在上一步中对图纸进行遍Loop历时，已经提取了图纸中所有End Function图元的属性，所以在该过程中该程序把读取的图纸名称放在输入j2（j1）中以遍输入只需要调出圆图元的属性并与标准图对比即可，调取该图元的excel中。圆心、半径径等进行评分。（2）分数的输入。把前期得到的学生分数，以Excel形式输Private Function SelectionSe()As Single出，见图4。For w=0 To SSet.Count-1Set xlapp=CreateObject(Excel.Application)Set objEntity=SSet.Item(w)Set xlbook=xlapp.Workbooks.AddIf StrComp(objEntity.EntityName,AcDbcircle,vbTextCompare)=0 xlapp.Visible=TrueThenSet xlsheet=xlbook.Worksheets(1)Dim ptCen As Variantxlsheet.Cells(1,1)=姓名Dim radius As Doublexlsheet.Cells(1,2)=成绩ptCen=objEntity.CenterDim m1 As Integerradius=objEntity.radiusDim m2 As IntegerIf(P1(d)-h9 ptCen(0)And ptCen(0)P1(d)+h9)And(P2(d)-h9 For m1=2 To j1+1ptCen(1)And ptCen(1)P2(d)+h9)And(r(d)-h9 radius And radius r(d)+h9)Thenxlsheet.Cells(m1,2)=Score(m2)j=j+ScoreC(s)xlsheet.Cells(m1,1)=i2(m2)（下转56页）图3 CAD图形判别流程图562023 年 第 2 期至绿化喷灌管网，用于校园绿化灌溉与楼宇雨水罐补水。流面积大、节能节水的潜力很大，加强高校校园雨水的回收与（1）景观水体植物配置。人工湿地是模拟自然湿地系统，再利用，是海绵城市、节约型校园以及绿色校园建设的重要内利用基质-植物-微生物构成的生态系统完成对水的净化处理，容。本文以实际工程为例，详细的介绍了低影响开发理念在高对构建校园生态景观、丰富生物多样性等方面有着积极的作校校园规划建设与雨水收集利用系统中的应用，结合高校环境用。与运行特点，论证了高校道路雨水收集、雨水全收集利用的合人工湿地选用的植物可分为水生、湿身和陆生植物，水生理性与适用性。该工程设计将水质保障与校园景观相结合，以植物又分为挺水植物、浮水植物、浮叶植物与沉水植物；湿身最低投资实现了雨水处理与资源化利用，以期为其他学校雨水植物和陆生植物分为草本、木本两种。收集利用提供借鉴。在配置植物时，应根据所在区域的气候、土壤等条件，结合景观观赏需要，优先选择耐水湿、抗污染、根系发达的适生乡土植物。1 陶正凯,陶梦妮,王印,等.人工湿地植物的选择与应用J.湖北农业科学,2019,58(01):44-48.2 徐晓凤.某学校海绵城市建设方案设计及计算J.低碳世界,2018(05):98-99.3 李婷婷,刘晶茹,李东,等.屋面雨水作为冲厕用水的案例分析J.中国给水排水,2010,26(16):122-125.4 王旭,戎贵文,沈齐婷,等.自动集雨灌溉系统的设计与实现J.节水灌溉,2018(08):99-102.5 李新燕,李敏,孙德智.宜兴某学校低影响开发雨水收集利表4 北校区景观水体湿地植物主要配置用系统设计研究C/.2016全国水环境污染控制与生态修复技术（2）绿地浇灌系统。浇灌系统由潜水泵、输水管、管道压高级研讨会论文集,2016:70-77.力开关、土壤湿度传感器等组成。当土壤湿度达到土壤湿度传6 李瑶.西安市校园屋面雨水资源化利用关键技术研究D.感器设置的下限时，控制台根据传感器信号