创建和命名图层 |
您所在的位置:网站首页 › cad怎样更改对象所在图层名称 › 创建和命名图层 |
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 |