请问怎样用VBA建立图层？

秋枫 · 发表于 2002-9-13 21:22:00

请问怎样用VBA建立图层？

mccad · 发表于 2002-9-13 21:42:00

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 · 发表于 2002-9-13 21:47:00

可以为在设计概念上相关的一组对象（例如墙或标注）创建和命名图层，并为这些图层指定通用特性。当组织你的图层方案时，请慎重选择图层名称。
开始绘制一个新图形时，AutoCAD 将创建一个名为 0 的特定图层。默认时，图层 0 将被指定编号为 7 的颜色（白色或黑色，由背景色决定）、CONTINUOUS（连续）线型、“缺省”线宽（“缺省”的缺省设置是 .01 英寸或 .25 毫米）以及“普通”打印样式。图层 0 不能被删除或重命名。
可以创建新图层并为其指定颜色、线型、线宽和打印样式特性。每一单独的图层均为Layers集合的一部分。使用Add方法创建新的图层并将其添加到Layers集合中。
创建图层时可指定图层的名称。在图层创建后更改图层的名称，使用Name属性。图层名称可包含至多31个字符，可以包含字母、数字和特殊字符美元符号($)、连字号(-)和下划线(_)，但不能包含空格。
详细可参见：http://www.mjtd.com/a2/list.asp?id=100#2

请问怎样用VBA建立图层？

发表回复

精选推荐