第五章采矿编程初步.pptVIP

第五章 采矿编程初步 ADDLAYER This example creates a new layer called New_Layer Dim layerObj As AcadLayer Add the layer to the layers collection Set layerObj = ThisDrawing.Layers.Add(New_Layer) Make the new layer the active layer for the drawing ThisDrawing.ActiveLayer = layerObj Display the status of the new layer MsgBox layerObj.name has been added. vbCrLf _ LayerOn Status: layerObj.LayerOn vbCrLf _ Freeze Status: layerObj.Freeze vbCrLf _ Lock Status: layerObj.Lock vbCrLf _ Color: layerObj.Color, , Add Example ADDTEXTSTYLE Create a textstyle named New_Textstyle in current drawing Dim txtStyleObj As AcadTextStyle Add the textstyle to the textstyles collection Set txtStyleObj = ThisDrawing.TextStyles.Add(New_Textstyle) MsgBox txtStyleObj.name has been added. vbCrLf _ Height: txtStyleObj.height vbCrLf _ Width: txtStyleObj.width, , Add Example Return 创建和修改文字样式 新的文字会从当前的文字样式继承高度、宽度比例、倾斜角度和文字生成等特性。 要创建文字样式，请使用 Add 方法创建新的 TextStyle 对象并将其添加到 TextStyles 集合中。 Add 方法需要输入 TextStyle 名称。 文字样式创建之后，用户不能通过 AutoCAD ActiveX Automation 修改其名称。 样式名可以包含字母、数字和特殊字符，例如美元符 ($)、下划线 (_) 和连字符 (-)。AutoCAD 将字符转换为大写字符。如果用户不输入样式名，AutoCAD 自动将其命名为 Stylen，其中 n 是从 1 开始的数字。每个新样式会加 1 来显示。 用户可以通过修改 TextStyle 对象的特性来修改现有的样式，也可以更新该样式的现有文字以反映更改。 请使用以下特性来修改 TextStyle 对象： FontFile 指定与字体（字符样式）关联的文件。 BigFontFile 指定适用于非 ASCII 字符集的特殊形定义文件。 Height 指定字符高度。 Width 指定字符的扩展或压缩 ObliqueAngle 指定字符的倾斜度。 TextGenerationFlag 指定反向文字、倒置文字或两者。 如果用户修改现有样式的字体或方向，所有使用该样式的文字均被修改为使用新的字体或方向。 更改文字的高度、宽度比例和倾斜角不会改变现有的文字，但会应用到以后创建的文字对象上。 注意? 必须调用 Regen 或 Update 方法，才能看到对上述特性所做更改的效果。 Load Method object.Load LineTypeName, FileName Object LinetypesThe object or objects this method applies to. LineTypeName String; input-onlyThe name of the linetype to load. FileName String; input-onlyThe name of the file the linetype is in. Linetype Example Sub Example_Linetype() This example searches for the linetype DashDot. If it is not found, it is added from the ac