362023年第2期OnErrorResumeNext自动评分技术就是借助于计算机来辅助人工评分的一项IfNotIsNull(ThisDrawing.SelectionSets.Item("mySelectionSet"))Then技术。自动评分系统可以帮助阅卷者快速、准确、公平公正SetcreateSSet=ThisDrawing.SelectionSets.Item("mySelectionSet")的评分，以达到减少人力、物力、财力的目的，因此需要设createSSet.Delete计一种可自动评分的系统，以便减轻教师的工作量。该系统EndIf以VBA为开发语言，通过对AutoCAD的二次开发，具备读取标SetcreateSSet=ThisDrawing.SelectionSets.Add("mySelectionSet")准图纸，输入评分标准，自动评卷，统计成绩以及成绩管理EndFunction（2）圆属性的读取实例。判断选择的图元是否为圆，然后功能。再读取标准图纸中圆的圆心坐标、半径、线宽、颜色等参数，并把得到的属性参数进行储存，程序如下：IfStrComp(objEntity1.EntityName,"AcDbcircle",vbTextCompare)=0��引言Then工程图学是工科类学生必修的一门技术基础课，在工程图DimptCenAsVariant学的考试中一直沿用教师手动阅卷、成绩统计，在这种考察模DimradiusAsDouble[1]式下教师需要付出大量的时间和精力。目前，在针对填空、选ptCen=objEntity1.Center择、判断等客观题型的CAD系统中，自动测评技术已经相当完radius=objEntity1.radius善，如判断题只需将考生所选的内容与正确答案进行匹配对比r(x)=radiusP1(x)=ptCen(0)即可，填空中文字录入内容的评判则可通过在一定字数范围内[2]P2(x)=ptCen(1)从某一个字开始进行精准对比来实现。相对于客观题型的考X=x+1试，AutoCAD课程的测评的目的则在于考查学生操作的熟练程EndIf度正确性和熟练性，所以题目类型多是图形的绘制、尺寸的标其它图元属性的读取也是[3]注、图形的编辑、块类型的标注等主观题。在AutoCAD自动评可以借鉴以上图元属性读取的分系统中对于图元数据的提取和属性的表达以及自动测评功能方法进行，最主要的是知道每是该系统开发的核心所在。个图元在VBA中的表示方法才能判断是否为所需要的图元，再�智能评分的实现原理根据每个图元的特点提取图元属性，并储存起来，以便于需要VBA是VisualBasicforApplication的简写，它是基于Visual评分的图纸进行对比，图元的表示方法主要参考VBA中对象模Basic发展而来的，它寄生于AutoCAD模块中，它不但继承了VB[5]型库，见图2。[4]的开发机制，而且还具有与VB相似的语言结构。AutoCADVBA提供了访问AutoCAD文档的接口，在AutoCA...
