Dim Blok1_Layer As AcadLayer

Set Blok1_Layer = ThisDrawing.Layers.Add("Blok1")

' створення кольору для даного слою

Dim color As AcadAcCmColor

Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")

color.ColorIndex = 160

Blok1_Layer.TrueColor = color

' активація відповідного обєкту

ThisDrawing.AddCylinderRotate

ThisDrawing.AddSliceBox

ThisDrawing.AddBox2

' створення відповідного слою для даної частини

Dim Blok2_Layer As AcadLayer

Set Blok2_Layer = ThisDrawing.Layers.Add("Blok2")

Dim color2 As AcadAcCmColor

' створення кольору для даного слою

Set color2 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")

color2.ColorIndex = 100

Blok1_Layer.TrueColor = color2

' активація відповідного обєкту

ThisDrawing.AddBox6

' задання слою для створеного обєкта

box6Obj.Layer = "Blok2"

' Change the viewing direction of the viewport to better see the box

Dim NewDirection(0 To 2) As Double

NewDirection(0) = 1: NewDirection(1) = 1: NewDirection(2) = 1

ThisDrawing.ActiveViewport.Direction = NewDirection

ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport

ZoomAll

End Sub