Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
nguyenvietlong0505

Giúp đếm số layout và in bằng VBA

Các bài được khuyến nghị

TÌnh hình là thế này, ông thầy em cho cái đề khoai quá, chả phải thuật toán gì lằng nhằng, chỉ là viết code trên VBA đếm xem có bao nhiêu layout rồi in toàn bộ các hình vẽ ra máy in, Có cao nhân nào giúp em vđề này được không ạ, em xin cám ơn rất nhiều. Google với forum em kiếm hoài mà k ra :(((((((((((( :mellow:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Code tham khảo nhé.

Muốn tìm những cái về VBA thì phải từ khoá bằng tiếng Anh nhé.

Sub Count_Layout()
Dim Dem As AcadLayout
Dim i As Integer
For Each Dem In ThisDrawing.Layouts
If Dem.Name <> "Model" Then
i = i + 1
End If
Next
MsgBox i
End Sub

 

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Code tham khảo nhé.

Muốn tìm những cái về VBA thì phải từ khoá bằng tiếng Anh nhé.

 

à mà bài này mình còn 1 phần nữa là in toàn bộ các hình vẽ có trong các layout đó ra máy in, bác giúp em làm nốt phần này với :D

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×