Viết VBA theo yêu cầu.............

[Viết VBA theo yêu cầu.............]

Bạn viết luôn cho minh đầy đũ luôn được không à, chứ mình copy về chạy thử báo lỗi. Khi chỉ thêm thủ tục Sub() và end sub

sub block()
Dim Bang As AcadBlockReference
VT1(0) = Diembatdau(0) - 5: VT1(1) = Diembatdau(1): VT1(2) = Diembatdau(2)
Set Bang = ThisDrawing.ModelSpace.InsertBlock(VT1, "BB", 1, 1, 1, 0)
end sub

[Viết VBA theo yêu cầu.............]

Dim Bang As AcadBlockReference
VT1(0) = Diembatdau(0) - 5: VT1(1) = Diembatdau(1): VT1(2) = Diembatdau(2)
Set Bang = ThisDrawing.ModelSpace.InsertBlock(VT1, "BB", 1, 1, 1, 0)

Ví dụ trên sẽ Insert block có tên BB tại vị trí VT1

Bạn viết luôn cho minh đầy đũ luôn được không à, chứ mình copy về chạy thử báo lỗi. Khi chỉ thêm thủ tục Sub() và end sub

[Viết VBA theo yêu cầu.............]

Chào các bác em mới mò mẫm về VBA trong autocad, trong exel thì biết sơ sơ à. Em muốn làm một ví dụ là INSERT Block có tên sẳn trong bản vẽ rồi thì làm viết thế nào ạ.