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

[nguyendan81985 3]

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.

[nguyendan81985 3]

bro nào giúp mình với.

[nguyendan81985 3]

phần này có lẽ hơi khó nên ko ai trả lời thì phải. hii

[Namvanvo 44]

:) 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.

[nguyendan81985 3]

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)