Giới Thiệu Tác giả và thông tin liên hệ

Chào Các bạn: Mình là Mainlink, một Blogger là Admin của blog này đồng thời cũng là Admin của kênh video youtube VBA Exel Cad. Rất vui được các bạn ủng hộ.
- Kinh nghiệm: Thiết kế xây dựng 15 năm, Kinh nghiệm lập trình từ lúc sinh viên. Đã tạo được nhiều phần mềm và tiện ích xây dựng.
- Chia sẻ các hướng dẫn phần mềm đồ họa: Autocad, Revit. Phần mềm lập trình VB, VB.net.
- Đam mê lập trình và đã tạo ra nhiều ứng dụng trên Autocad, Exell trên VBA và VB.net.
- Luôn muốn học hỏi, chia sẻ các kiến thức của mình.
- Hãy tiếp tục ủng hộ mình bằng Like và Share, Subcrible blog, và kênh youtube VBA Exel Cad của mình.

Trang cá nhân: VBA Cad Exel: https://vbacadexel.blogspot.com/
Kênh Youtube:  VBA Exel Cad

Mọi thắc mắc và yêu cầu hỗ trợ hãy comment trên blog và kênh youtube của mình

Thank All

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

Lập trình VBA Autocad tạo đối tượng text chữ trong Autocad

Hướng dẫn tạo đối tượng Text, chữ trong Autocad bằng VBA
1. Đối Tượng Text trong Autocad gồm có:
- Chuỗi ký tự String
- Điểm đắt Text
- Chiều cao Text
2. Mục tiêu của bài học:
Tạo 1 nút bấm tự động vẽ đối tượng Text 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:



Private Sub CommandText_Click()
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
   
    ' Define the text object
    textString = "Hello the World. I am beginner of VBA"
    insertionPoint(0) = 5: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 2
   
Call AddMyText(textString, insertionPoint, height)
End Sub

Function AddMyText(textString, insertionPoint, height)
    ' This example creates a text object in model space.

    Dim textObj As AcadText

   
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    ZoomAll

End Function

Lập trình VBA tạo đường tròn Cirle trên AutoCad

Hướng dẫn tạo 1 đường tròn trên Autocad
Circle là một đối tượng rất hay dùng trong Autocad. Lập trình VBA giúp chúng ta nhanh chóng tạo ra 1 đường Circle tự động. Sau đây là hướng dẫn tạo Circl đường tròn bằng VBA for Autocad
1. Đối tượng đường tròn trong Autocad:
Về mặt hình học gồm:
- 1 điểm tâm đường tròn 0
- 1 bán kính R
- Đường tròn là đường nối giữa các điểm có khoảng các bẳng R đến tâm 0
2. Mục tiêu bài học:
Tạo đường tròng bằng cách ấn 1 nút bấm trên giao diễn Userform và tự động vẽ trên autocad.

3. Video hướng dẫn tạo đường tròn tự động trên Autocad bằng lập trình VBA.

Lập trình Tạo đường Polyline trong VBA For AutoCad

Hướng dẫn lập trình Tạo đường Polyline trong VBA For AutoCad

Chúng ta tiếp tục chuyển sang bài học lập trình tạo đường polyline trên auto cad bằng VBA.

 1. Tính chất:   đường polyline được sử dụng rất nhiều trong AutoCAD Nó là một đường
nối liền giữa các điểm có tọa độ xyz.

Để tạo được 1 đường polyline ta phải nhập tập hợp các điểm đầu vào và vẽ chúng trên Autocad

2. Trong bài hôm nay tôi giới thiệu đường LWPolyline.   chỉ chứa dãy các điểm có hai toạ độ xy.
Mục tiêu bài học: tạo 1 nút bấm trên from giao diện và tự động vẽ 1 đường polyline theo yêu cầu

3. Video hướng dẫn lập trình VBA tạo Polyline trong autocad

Tạo đường Line trong VBA For AutoCad:

 Cách tạo, ve đường thẳng line trong Lập trình VBA For AutoCad:
- Tiếp tục bài học: Tạo 1 đường line trong VBA Autocad:
- Mục tiêu lập trình vẽ đường line trên Model Space.
- Cách thức học bằng cách sử dụng các hàm sẵn có trên Help VBA và tùy biến theo mong muốn.( đây là cách dùng chuyên nghiệp trong thời đại này nay). Tuy nhiên để nâng cao kỹ năng bạn cũng nên viết cụ thể 1 chương trình.
Trong bào học này tôi sẽ cố gắng giải thích rõ từ tham số, hàm để các bạn cùng nắm bắt.
Code sử dụng:

Function AddMyLine(x1, y1, z1, x2, y2, z2 As Double)

 
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double

    startPoint(0) = x1: startPoint(1) = y1: startPoint(2) = z1
    endPoint(0) = x2: endPoint(1) = y2: endPoint(2) = z2
    ' Create the line in model space
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    ZoomAll

End Function


Video hướng dẫn: tạo đường thẳng tự động vào autocad bằng VBA

Làm quen với mối trường AutoCad VBA

Làm quen với mối trường AutoCad VBA
Trước khi đi sâu vào các nội dung hướng dẫn sử dụng VBA for Autocad. Chung ta làm quen với môi trường phát triển Visual basic của AutoCad

1. Để lập trình VBA trong autocad bạn phải là người đã biết sử dụng autocad

2. và nắm được kiến thức cơ bản về Visual Basic VB: Giao diện chính của VBA trong Autocad

3. Video Bắt đầu tạo 1 project trong VBA Autocad