Lập trinh VBA tạo Layer trong AutoCad

Lập trinh VBA tạo Layer trong  AutoCad
1. Đối Tượng Layer trong Autocad gồm có:
- Là đối tượng chứa các thuộc tính: Màu sắc, Loại đường (đứt, liên tuc, ...),  ... để quản lý các đối tượng hình học như line, Circle, polyline....
- Layer gồm có các thuộc tính chính như sau
+ Tên
+ Màu
+ Loai đường
....

2. Mục tiêu của bài học:
Tạo 1 nút bấm tự động vẽ đối tượng Layer trên Autocad và tùy biến các tham số theo mục đích của người dùng

3. Video hướng dẫn

4. Code chương trình:
Function AddMyLayer(LayerName As String)
   ' 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(LayerName)
   
    ' 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"
End Function