Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
4 replies to this topic

#1 nguyendan81985

nguyendan81985

    biết vẽ circle

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

Đã gửi 05 November 2013 - 10:37 PM

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.


  • 0

#2 nguyendan81985

nguyendan81985

    biết vẽ circle

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

Đã gửi 08 November 2013 - 04:59 PM

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


  • 0

#3 nguyendan81985

nguyendan81985

    biết vẽ circle

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

Đã gửi 15 November 2013 - 10:28 AM

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


  • 0

#4 Namvanvo

Namvanvo

    Edu level: li5

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

Đã gửi 15 November 2013 - 11:19 AM

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

#5 nguyendan81985

nguyendan81985

    biết vẽ circle

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

Đã gửi 20 November 2013 - 05:10 PM

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)
  • 0