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

dùng VBA chèn khung bản vẽ tùy theo dự án.

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

cho mình hỏi. làm thế nào dùng VBA để chèn 1 khung tên bản vẽ vào một bản vẽ được xuất ra cũng từ VBA trên CAD. khung này tùy theo mỗi dự án khác nhau. có thể thay đổi đc.

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

:) mình không biết VBA, tuy nhiên mình thấy yêu cầu của bạn không khó tí nào, nhưng các bác trên diễn đàn rất khó giúp bạn vì bài viết của bạn thiếu thốn quá nhiều thông tin, dữ liệu -->phải cụ thể hơn nữa đi bạn.

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

hii. sau một thời gian tìm tòi mình cũng đã làm được. ý của mình là khung cho bản vẽ ấy.

phần chương trình bên dưới mình viết cho excel. add khung vào các bản vẽ tự động

 

 

Dim pointframe(0 To 2) As Double

Dim insertBlock As AcadExternalReference

Dim PathName As String

 

pointframe(0) = 0: pointframe(1) = 0

PathName = "d:\Drawing2.dwg"

Set acad = GetObject(, "autocad.application")

Set insertBlock = acad.ActiveDocument.ModelSpace.AttachExternalReference(PathName, "XREF_IMAGE", pointframe, 1, 1, 1, 0, False)

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  

×