Một số thủ tục VBA trong AutoCAD để tạo bản vẽ

[freeway2207]

Xin giới thiệu với các bạn một số ví dụ về thủ tục VBA phục vụ tạo bản vẽ trong AutoCAD.

1. Thủ tục tạo các Layers
Sub TaoLayers()
Dim layerObj As AcadLayer
Dim layertypeName As String
layertypeName = "ACAD_ISO03W1000"
Set layerObj = Thisdrawing.Layers.Add("netthuong") 'Tạo layer "netthuong"
layerObj.color = acBlue 'chọn màu nét của Layer "netthuong"
On Error Resume Next 'nếu kiểu nét ACAD_ISO03W1000 đã được load rồi sẽ phát sinh lỗi nên dùng câu lệnh này để loại bỏ lỗi phát sinh đó
Thisdrawing.Linetypes.Load layertypeName, "acad.lin" 'Load kiểu nét ACAD_ISO03W1000 để sẵn sàng các layers có thể sử dụng
Set layerObj = Thisdrawing.Layers.Add("netdut") 'tạo layer "netdut"
layerObj.color = acRed
layerObj.Linetype = linetypeName 'chọn kiểu net cho layer "netdut"
End Sub

2. Thủ tục tạo Dimension Style
Sub TaoDimStyle()
Dim DimStyleObj As AcadDimStyle
Set DimStyleObj = ThisDrawing.DimStyles.Add("kichthuoc") 'Tạo Dimension Style "kichthuoc"
'tiếp theo hiệu chỉnh một số yếu tố liên quan đến đường ghi kích thước của Dim Style hiện hành
ThisDrawing.SetVariable. "DIMASZ", 80
ThisDrawing.SetVariable. "DIMDEC", 0
ThisDrawing.SetVariable. "DIMTXT", 100
DimStyleObj.CopyFrom ThisDrawing 'Copy Dim Style hiện hành vào Dim Style "kichthuoc"
ThisDrawing.ActiveDimStyle = DimStyleObj 'Chuyển Dim Style hiện hành là "kichthuoc"
End Sub

3. Thủ tục tạo Text Style
Sub TaoTextStyle
Dim TextStyleObj As AcadTextStyle
Set TextStyleObj = ActiveDocument.TextStyles.Add("chuhoa")
TextStyleObj.SetFont ".VnArialH", True, False, 0, 34
Set TextStyleObj = ActiveDocument.TextStyles.Add("chuthuong")
TextStyleObj.SetFont ".VnArial", True, False, 0, 34
End Sub

Bài viết sẽ được cập nhật thêm, mong được đóng góp của các bạn !