cad图框绘制.docVIP

Auto CAD 二次开发 实验报告 （1） 专 业：测绘工程 班级学号：0902601-11 编 写 人：左小勇 指导老师：唐争气 日 期：2011.09 图框的绘制 实验目的与要求 利用CAD和VBA绘制1:500 CASS标准图框，熟练掌握CAD及VBA 编程环境,，学会自己编写代码来设计程序。 设置图框层，并在图框层中绘制图框，要求在CAD中基点选择、比例、图框大小，并设置相应的文字样式(不允许字值) 。 实验安排 先创建图框层，并将置为当前层，然后用多段线绘制图框和图表，利用TEXT编写文字，并按照CASS中的图框的文字样式设置。 实验原理和过程（包括算法、框图、验证算例） 首先创建图框层，然后在图框层中绘制图框和写CASS标准的图框一些相应的文字，利用画矩形的命令绘制内外图框，将外图框的线条加粗，内图框中的画相应的线，图框内利用画点，并将点的样式设置为十字架类型的样式，利用文本写图名比例尺及相应的测图员，绘图员，校正员，利用多文本写竖直文字测绘单位。 程序代码（主要算法部分） Option Explicit Public Sub Createtbl() Dim yjlayer As AcadLayer Dim tk As String 定义Tk为字符型 Dim bl As String 定义bl为字符型 Dim hdx As Variant 定义hdx为