创建和命名图层

您所在的位置:网站首页 cad怎样更改对象所在图层名称 创建和命名图层

创建和命名图层

2023-12-27 15:08| 来源: 网络整理| 查看: 265

previous page next page 图层和线型排序 使用图层 将图层置为活动   ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 使用图层、颜色和线型 >  使用图层 >  创建和命名图层      

用户可以创建新的图层并指定这些图层的颜色和线型特性。所有图层都属于 Layers 集合。使用 Add 方法可创建新图层并将其添加到 Layers 集合。

用户可以在创建图层时指定图层名称。要在创建图层后更改图层名,请使用 Name 特性。图层名称最多可包含三十一个字符,名称中可以包含字母、数字以及特殊字符美元符号 ($)、连字符 (-) 和下划线 (_),但不能包含空格。

有关创建图层的详细信息,请参见《用户手册》中的“创建和命名图层”。

创建新图层,指定为红色,然后向图层添加对象

以下代码创建一个圆和一个新图层。新的图层指定使用红色。圆被指定到该图层,然后其颜色也相应改变。

Sub Ch4_NewLayer() ' 创建圆 Dim circleObj As AcadCircle Dim center(0 To 2) As Double Dim radius As Double center(0) = 2: center(1) = 2: center(2) = 0 radius = 1 Set circleObj = ThisDrawing.ModelSpace. _ AddCircle(center, radius) ' 创建颜色对象 Dim col As New AcadAcCmColor col.ColorMethod = AutoCAD.acColorMethodForeground ' 设置图层的颜色 Dim layColor As AcadAcCmColor Set layColor = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17") Call layColor.SetRGB(122, 199, 25) ThisDrawing.ActiveLayer.TrueColor = layColor col.ColorMethod = AutoCAD.acColorMethodByLayer ' 将圆的颜色指定为“随层” ' 以便圆自动拾取所在图层的 ' 颜色 circleObj.Color = acByLayer circleObj.Update End Sub 请将关于此页的评论发送给我们


【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3