Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
3 replies to this topic

#1 nguyenvietlong0505

nguyenvietlong0505

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 15 April 2013 - 10:48 PM

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:


  • 0

#2 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 16 April 2013 - 09:30 AM

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

 


  • 2

#3 nguyenvietlong0505

nguyenvietlong0505

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 April 2013 - 04:54 PM

thanks bác nhiều nhé :D


  • 0

#4 nguyenvietlong0505

nguyenvietlong0505

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 April 2013 - 05:02 PM

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


  • 0