请问怎样用VBA建立图层？

rb

请问怎样用VBA建立图层？

秋枫

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"
    Return

mccad

可以为在设计概念上相关的一组对象（例如墙或标注）创建和命名图层，并为这些图层指定通用特性。当组织你的图层方案时，请慎重选择图层名称。

开始绘制一个新图形时，AutoCAD 将创建一个名为 0 的特定图层。默认时，图层 0 将被指定编号为 7 的颜色（白色或黑色，由背景色决定）、CONTINUOUS（连续）线型、“缺省”线宽（“缺省”的缺省设置是 .01 英寸或 .25 毫米）以及“普通”打印样式。图层 0 不能被删除或重命名。

可以创建新图层并为其指定颜色、线型、线宽和打印样式特性。每一单独的图层均为Layers集合的一部分。使用Add方法创建新的图层并将其添加到Layers集合中。

创建图层时可指定图层的名称。在图层创建后更改图层的名称，使用Name属性。图层名称可包含至多31个字符，可以包含字母、数字和特殊字符美元符号($)、连字号(-)和下划线(_)，但不能包含空格。

详细可参见：http://www.mjtd.com/a2/list.asp?id=100#2