Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
3 replies to this topic

#1 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 11 December 2010 - 01:38 PM

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 ạ ?
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#2 phantuhuong

phantuhuong

    biết dimstyle

  • Moderator
  • PipPipPipPipPip
  • 383 Bài viết
Điểm đánh giá: 200 (khá)

Đã gửi 12 December 2010 - 11:38 PM

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

  • 0
Bồi dưỡng Excel & VBA cho các đơn vị ở Hà Nội và khu vực lân cận

Từng bước loại đồ Tàu ra khỏi cuộc sống!


#3 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 13 December 2010 - 09:32 AM

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:.
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#4 phantuhuong

phantuhuong

    biết dimstyle

  • Moderator
  • PipPipPipPipPip
  • 383 Bài viết
Điểm đánh giá: 200 (khá)

Đã gửi 15 December 2010 - 10:54 AM

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

  • 0
Bồi dưỡng Excel & VBA cho các đơn vị ở Hà Nội và khu vực lân cận

Từng bước loại đồ Tàu ra khỏi cuộc sống!