Sub Example_Layer()
    'Этот пример создает новый слой "ABC" (синий).
    'Затем создает круг и назначает слой "ABC"
 
    'Создайте новый слой
    Dim layerObj As AcadLayer
    Set layerObj = ThisDrawing.Layers.Add("ABC")
    Dim color As AcadAcCmColor
	Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
    Call color.SetRGB(80, 100, 244)
    layerObj.TrueColor = color
    
    'Создайте Круг
    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 3: center(1) = 3: center(2) = 0
    radius = 1.5
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
    ZoomAll
    MsgBox "Круг был создан на слое " & circleObj.Layer, , "Layer Пример"
        
    'Установите слой нового круга к "ABC"
    circleObj.Layer = "ABC"

    'Регенерация
    ThisDrawing.Regen (True)
    MsgBox "Круг находится теперь на слое " & circleObj.Layer, , "Layer Пример"
    
End Sub

Сайт управляется системой uCoz