关闭的图层随图形一起再生,但不显示或打印。 通过关闭图层,可以避免每次解冻图层时重新生成图形。打开已关闭的图层时,AutoCAD 将重绘该图层上的对象。 要打开和关闭图层,请使用属性。如果为此属性输入值 TRUE,则会打开图层。如果输入值 FALSE,图层将关闭。LayerOn 关闭图层本示例创建一个新图层,向该图层添加一个圆圈,然后关闭该图层,使该圆不再可见。 Sub Ch4_LayerInvisible() ' Create a circle 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) ' Create a new layer called "ABC" Dim layerObj As AcadLayer Set layerObj = ThisDrawing.Layers.Add("ABC") ' Assign the circle to the "ABC" layer circleObj.Layer = "ABC" circleObj.Update ' Turn off layer "ABC" layerObj.LayerOn = False ThisDrawing.Regen acActiveViewport End Sub |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-19 14:37
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.