第八讲-autoCAD二次开发.pptVIP

3 对象特性 线型和线宽 方法： ThisDrawing.Linetypes.Load “名称” “线型” Dim line As AcadLine Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double Set line = ThisDrawing.ModelSpace.AddLine(startPoint,endPoint) line.Linetype = line.Lineweight = acLnWt040 Set layerobject= thisdrawinglayers.add(中心线层) 第八讲 AutoCAD二次开发 机械CAD软件开发实用技术教程 1概述 宏是在选择工具栏某个选项时执行特定操作的一系列命令，可以只是完成任务的按键记录，也可以是复杂的命令。 集合对象是一种预定义的对象，包括相似对象的所有实例（或是相似对象所有实例的上级对象） 重要的集合对象： Documents：当前AutoCAD任务中打开的所有文档 ModelSpace：模型空间中的所有图形对象 Blocks：图形中所有的块 Group：图形中的所有编组 Layers：图形中的所有图层 Linetypes：图形中的所有线型 SelectionSets：图形中所有的选择集 TextStyles：图形中所有的文字 1概述 大部分的集合对象都是通过Document对象访问，对于每一个集合对象，Document对象都有一个相应的特性。 如：通过定义变量访问集合对象 Dim objLayer As AcadLayer Dim layerCollection As AcadLayers Set layerCollection = ThisDrawing.Layers Set objLayer = layerCollection.Add(“中心线”); objLayer.Name = “细实线” 1概述 实例 Sub Circles() Dim cc(0 To 2) As Double 声明坐标变量 cc(0) = 1000 定义圆心座标 cc(1) = 1000 cc(2) = 0 For i = 1 To 1000 Step 10 ‘开始循环 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) 画圆 Next i End Sub 1概述 说明： Sub Circles()……End Sub Circles是宏的名称，也叫过程名称。 Dim cc(0 To 2) As Double ‘声明坐标变量语法：Dim变量名 As 数据类型 Double Integer Long Boolean 1概述 cc(0) = 1000 ‘定义圆心座标cc(1) = 1000cc(2) = 0它们的作用是给CC变量的每一个元素赋值，其顺序是X、Y、Z坐标 For i = 1 To 1000 Step 10 ‘开始循环……Next i?? ’结束循环i也是一个变量step后面的数值是每次循环时增加的数值，也可以用负值例如：For i =1000 To 1 Step -10 很多情况下，后面可以不加step 10 如：For i=1 to 100，它的作用是每循环一次i值就增加1 1概述 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)Call语句的作用是调用其他过程或者方法。 ThisDrawing.ModelSpace是指当前CAD文档的模型空间 AddCircle是画圆方法Addcicle方法需要两个参数：圆心和半径CC就是圆心坐标，i*10就是圆的半径，本例中，这些圆的半径分别是10、110、210、310…… 2 创建和编辑二维图形对象 1、直线 类：AcadLine 修改 类：ModelSpace AddLine 创建 Dim line As AcadLine Set line = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint) 2 创建和编辑二维图形对象 Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double startPoint(0) = 0， startPoint(1) = 0， startPoint(2) = 0 endPoint(0) = 100， endPoint(1) = 100， endPoi