Em mới học VBA trong cad nên không giải quyết được bài toán chèn nhiều Block có tên khác nhau trong cad (trong cad đã tồn tại tên của những block đó. Nếu để tên của một block ở vị trí Nameblk thì chạy tố nhưng chuyển qua biến thì không chạy
Mã:
Sub insertblock()
Dim blk As AcadBlockReference
Dim Nameblk As String
Dim x1(0 To 2) As Double
Dim AcadMo As AcadModelSpace
x1(0) = Sheets("khaosat").Cells(i, 7)
x1(1) = Sheets("khaosat").Cells(i, 8)
x1(2) = 0
Set blk = AcadMo.insertblock(x1, "Nameblk", 1#, 1#, 1#, 0)
end sub