第八讲-autoCAD二次开发.ppt

2021/3/26 * 3 对象特性 Public Function DeleteLayer(ByVal name As String) Debug.Assert (HasLayer(name)) Dim layer As AcadLayer Set layer = ThisDrawing.Layouts.Item(name) On Error Resume Next layer.Delete If Err Then DeleteLayer = False Else DeleteLayer = True End If End Function 2021/3/26 * 3 对象特性 Public Sub TurnOnlayer(ByVal name As String, Optional bOpen As Boolean = True) Debug.Assert (HasLayer(name)) Dim layer As AcadLayer Set layer = ThisDrawing.Layers.Item(name) If bOpen Then layer.LayerOn = True Else layer.LayerOn = False End If End Sub 2021/3/26 * 3 对象特性 Public Sub SetCurrentLayer(ByVal name As String) Debug.Assert (HasLayer(name)) ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item(name) End Sub 2021/3/26 * 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(中心线层) 2021/3/26 * 第八讲 AutoCAD二次开发 机械CAD软件开发实用技术教程 2021/3/26 * 1概述 宏是在选择工具栏某个选项时执行特定操作的一系列命令,可以只是完成任务的按键记录,也可以是复杂的命令。 集合对象是一种预定义的对象,包括相似对象的所有实例（或是相似对象所有实例的上级对象） 重要的集合对象: Documents:当前AutoCAD任务中打开的所有文档 ModelSpace:模型空间中的所有图形对象 Blocks:图形中所有的块 Group:图形中的所有编组 Layers:图形中的所有图层 Linetypes:图形中的所有线型 SelectionSets:图形中所有的选择集 TextStyles:图形中所有的文字 2021/3/26 * 1概述 大部分的集合对象都是通过Document对象访问,对于每一个集合对象,Document对象都有一个相应的特性。 如:通过定义变量访问集合对象 Dim objLayer As AcadLayer Dim layerCollection As AcadLayers Set layerCollection = ThisDrawing.Layers Set objLayer = layerCollection.Add(“中心线”); objLayer.Name = “细实线” 2021/3/26 * 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 2021/3/26 * 1概述 说明: Sub Circles()……End Sub Circles是宏的名