Xác định số bản vẽ đang mở

[ketxu 2998]

Làm cách nào để xác định được số bản vẽ đang mở bằng VB,hoặc VBA ạ ^^

Làm thế nào để đóng từng bản vẽ 1 ạ ??

.Cụ thể hơn là e làm 1 project Batch Process,n nếu mở tất cả các bản vẽ lên để giải quyết r tắt hết thì chậm lắm.E muốn lúc nào cad cũng chỉ có 2 bản vẽ được mở cùng lúc,cứ mở thêm 1 bản mới thì 1 bản cũ sẽ close,có đc k ạ ?

[phantuhuong 226]

Làm cách nào để xác định được số bản vẽ đang mở bằng VB,hoặc VBA ạ ^^

Làm thế nào để đóng từng bản vẽ 1 ạ ??

.Cụ thể hơn là e làm 1 project Batch Process,n nếu mở tất cả các bản vẽ lên để giải quyết r tắt hết thì chậm lắm.E muốn lúc nào cad cũng chỉ có 2 bản vẽ được mở cùng lúc,cứ mở thêm 1 bản mới thì 1 bản cũ sẽ close,có đc k ạ ?

 

 

Em thử đoạn code này, sau đó tự phát triển nhé:

Sub Test()
 Dim ObjDrawing As AcadDocument
 For Each ObjDrawing In Documents
MsgBox ObjDrawing.Name
 Next
End Sub

[ketxu 2998]

Hiện e đang có 1 tập objFile là các file trong thư mục đó.Sau lệnh open,gán ObjDrawing.Name = ObjFile.Name mà hok được ạ :undecided:.

[phantuhuong 226]

Hiện e đang có 1 tập objFile là các file trong thư mục đó.Sau lệnh open,gán ObjDrawing.Name = ObjFile.Name mà hok được ạ :undecided:.

 

Dòng code này để xác định tên file hiện tại và cả đường dẫn:

ThisDrawing.Name

ThisDrawing.Path