Dim duongbao As AcadLWPolyline

Dim diem1(0 To 9) As Double

Dim diem2(0 To 9) As Double

Dim r As Double

Dim thep As AcadLWPolyline

Dim diema(0 To 2) As Double

Dim diemb(0 To 2) As Double

Dim diemxoay(0 To 2) As Double

Dim gocxoay As Double

Dim doixug As Variant

Dim kichthuoc, kichthuoc2 As AcadDimAligned

Dim chu As AcadText

Dim d As Variant

Dim s As AcadSelectionSet

Private Sub doixung_Click()

UserForm1.Hide

Set s = ThisDrawing.SelectionSets.Add("s1")

s.SelectOnScreen

Dim Enty As AcadEntity

diema(0) = xa.Text

diema(1) = ya.Text

diemb(0) = xb.Text

diemb(1) = yb.Text

Dim m

For Each Enty In s

Set m = Enty.Mirror(diema, diemb)

Next Enty

s.Clear

s.Delete

Application.Update

UserForm1.Show

End Sub

Private Sub vehinh_Click()

diem1(0) = x1.Text: diem1(1) = y1.Text

diem1(2) = diem1(0) + b: diem1(3) = diem1(1)

diem1(4) = diem1(2): diem1(5) = diem1(3) + h

diem1(6) = diem1(0): diem1(7) = diem1(5)

diem1(8) = diem1(0): diem1(9) = diem1(1)

Set duongbao = ThisDrawing.ModelSpace.AddLightWeightPolyline(diem1)

duongbao.color = acGreen

diem2(0) = diem1(0) + t1: diem2(1) = diem1(1) + t1

diem2(2) = diem2(0) + b - 2 * t1: diem2(3) = diem2(1)

diem2(4) = diem2(2): diem2(5) = diem2(3) + h - 2 * t1

diem2(6) = diem2(0): diem2(7) = diem2(5)

diem2(8) = diem2(0): diem2(9) = diem2(1)

Set thep = ThisDrawing.ModelSpace.AddLightWeightPolyline(diem2)

thep.color = acRed

ZoomAll

End Sub

Private Sub ghikichthuoc_Click()

Dim kt As AcadDimStyle

Set kt = ThisDrawing.DimStyles.Add("kt")

ThisDrawing.SetVariable "DIMSCALE", 1

ThisDrawing.SetVariable "DIMTIH", 0

ThisDrawing.SetVariable "DIMDEC", 0

ThisDrawing.SetVariable "DIMTAD", 1

kt.CopyFrom ThisDrawing

ThisDrawing.ActiveDimStyle = kt

Application.Update

Dim d1(0 To 2) As Double

Dim d2(0 To 2) As Double

Dim d3(0 To 2) As Double

d1(0) = diem1(2)

d1(1) = diem1(3)

d2(0) = diem1(4)

d2(1) = diem1(5)

d3(0) = diem1(2) + b / 4

d3(1) = diem1(3) + h / 2

Set kichthuoc = ThisDrawing.ModelSpace.AddDimAligned(d1, d2, d3)

kichthuoc.color = acMagenta

kichthuoc.Update

Dim d4(0 To 2) As Double

Dim d5(0 To 2) As Double

Dim d6(0 To 2) As Double

d4(0) = diem1(0)

d4(1) = diem1(1)

d5(0) = diem1(2)

d5(1) = diem1(3)

d6(0) = diem1(0) + b / 2

d6(1) = diem1(1) - b / 4

Set kichthuoc2 = ThisDrawing.ModelSpace.AddDimAligned(d4, d5, d6)

kichthuoc2.color = acMagenta

kichthuoc2.Update

ZoomAll

End Sub

Private Sub xoayhinh_Click()

    diemxoay(0) = xi

    diemxoay(1) = yi

    diemxoay(2) = 0

    gocxoay = 3.14159265358979 * g / 180

    duongbao.Rotate diemxoay, gocxoay

    thep.Rotate diemxoay, gocxoay

    kichthuoc.Rotate diemxoay, gocxoay

    kichthuoc2.Rotate diemxoay, gocxoay

    kichthuoc.Update

    kichthuoc2.Update

    duongbao.Update

    thep.Update

    Application.Update

End Sub