Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

Việc Xuất Block Thuộc Tính Từ Excel Sang Autocad Bằng Vba


  • Please log in to reply
15 replies to this topic

#1 phantuhuong

phantuhuong

    biết dimedit

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

Đã gửi 15 June 2016 - 06:26 PM

Vừa rồi tôi có giúp 1 anh tự động hóa việc xuất Block thuộc tính từ Excel sang AutoCad với khối lượng khá lớn. Lý do là nguồn dữ liệu đầu vào tính toán trong Excel hay bị thay đổi, cần cập nhật trong AutoCad.

Chương trình tôi viết nhận diện tên Block và 1 thuộc tính cơ sở để xác định trong bản vẽ AutoCad và cập nhật.

Bạn nào có nhu cầu thì trao đổi ở đây.


  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4145 Bài viết
Điểm đánh giá: 4520 (đỉnh cao)

Đã gửi 16 June 2016 - 08:02 AM

Bác lưu đối tượng block bên excel bằng phương pháp gì?
  • 0

#3 phantuhuong

phantuhuong

    biết dimedit

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

Đã gửi 16 June 2016 - 12:39 PM

Bác lưu đối tượng block bên excel bằng phương pháp gì?

 

Anh chỉ xử lý thông tin vì nó có bảng kết quả rồi. Coi như người ta giải trong Excel và mình có kết quả. Block đủ cả tên và các thuộc tính. Có thể AutoLisp đã làm nhưng ở đây mình dùng VBA :)


  • 0

#4 huyenle

huyenle

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 June 2016 - 03:36 PM

Hôm trước mình lang thang vào mấy diễn đàn của nước ngoài cho một file họ có file excel xuất block thuộc tính sang cad chỉ cần nhận tên block có trong cad, và tọa độ điểm đặt và text nội dung đính kèm khá hay mình gửi các bạn cùng ngâm cứu. Ai ngâm ra trước thì cho mình hỏi sao mình thay các giá trị vào các cột ATT trong excel nó lại không xuất sang cad được mà họ lại xuất được mình chỉ xuất được blockhttp://www.cadviet.c...2408_sample.rar


  • 0

#5 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1458 Bài viết
Điểm đánh giá: 1435 (rất tốt)

Đã gửi 16 June 2016 - 10:15 PM

Hôm trước mình lang thang vào mấy diễn đàn của nước ngoài cho một file họ có file excel xuất block thuộc tính sang cad chỉ cần nhận tên block có trong cad, và tọa độ điểm đặt và text nội dung đính kèm khá hay mình gửi các bạn cùng ngâm cứu. Ai ngâm ra trước thì cho mình hỏi sao mình thay các giá trị vào các cột ATT trong excel nó lại không xuất sang cad được mà họ lại xuất được mình chỉ xuất được blockhttp://www.cadviet.c...2408_sample.rar

Bạn có chắc là họ "xuất được" với file đính kèm của bạn không ?

 

Thử chạy lai file Excel này xem sao : http://www.cadviet.c...2408_sample.zip


  • 1

#6 huyenle

huyenle

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 June 2016 - 12:42 PM

Bạn có chắc là họ "xuất được" với file đính kèm của bạn không ?

 

Thử chạy lai file Excel này xem sao : http://www.cadviet.c...2408_sample.zip

Cảm ơn bạn rất nhiều và nếu có thể chỉ cho mình biết nguyên nhân tại sao file mình gửi không xuất được không? Vì mình đã xem cái video hướng dẫn (tiếc là không lưu link để gửi bạn và mọi người). Nhân cái tiện mình muốn hỏi chút là mình có file excel Drawing Points In AutoCAD Using Excel & VBA những cái hình nó xuất ra cad thuộc lại block gì vậy mình không thể phá khối được. Cảm ơn bạn đã quan tâm và mong được bạn giải đáphttp://www.cadviet.c..._excel__vba.rar


  • 0

#7 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1458 Bài viết
Điểm đánh giá: 1435 (rất tốt)

Đã gửi 17 June 2016 - 02:36 PM

Nguyên nhân nó chạy không được, chỉ có thể là "Treo đầu dê bán thịt chó" thôi.

 

File excel "Drawing Points In AutoCAD Using Excel & VBA" này cũng vậy, (code và tiêu đề không liên quan với nhau)


  • 0

#8 huyenle

huyenle

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 June 2016 - 03:37 PM

Nguyên nhân nó chạy không được, chỉ có thể là "Treo đầu dê bán thịt chó" thôi.

 

File excel "Drawing Points In AutoCAD Using Excel & VBA" này cũng vậy, (code và tiêu đề không liên quan với nhau)

cảm ơn bạn nhé. Tại vì thấy chia sẻ nên mình tải về thôi chứ cũng không am hiểu rõ nên bó tay, may có bạn giải thích giúp mới biết nguyên nhân


  • 0

#9 phantuhuong

phantuhuong

    biết dimedit

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

Đã gửi 19 June 2016 - 11:25 AM

Hôm trước mình lang thang vào mấy diễn đàn của nước ngoài cho một file họ có file excel xuất block thuộc tính sang cad chỉ cần nhận tên block có trong cad, và tọa độ điểm đặt và text nội dung đính kèm khá hay mình gửi các bạn cùng ngâm cứu. Ai ngâm ra trước thì cho mình hỏi sao mình thay các giá trị vào các cột ATT trong excel nó lại không xuất sang cad được mà họ lại xuất được mình chỉ xuất được blockhttp://www.cadviet.c...2408_sample.rar

 

Tôi đọc qua, thấy code ổn. Chưa test


  • 0

#10 chien_lv

chien_lv

    biết vẽ spline

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

Đã gửi 20 August 2016 - 12:29 AM

bạn gia_bach cho mình hỏi nếu mà mình muốn update giá trị của ATT từ bảng execel sang cad thì làm thế nào? tức là cái bảng excel đó xuất block có các giá trị ATT đi kèm ví dụ là xuất block là mặt cắt kênh có cao độ đi kèm chính là các ATT, nếu mình thay đổi cao độ trong bảng excel thì làm thế nào để cập nhật lại giá trị đó bên cad.


  • 0

#11 huunhantvxdts

huunhantvxdts

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 61 (tàm tạm)

Đã gửi 23 August 2016 - 08:58 AM

bạn gia_bach cho mình hỏi nếu mà mình muốn update giá trị của ATT từ bảng execel sang cad thì làm thế nào? tức là cái bảng excel đó xuất block có các giá trị ATT đi kèm ví dụ là xuất block là mặt cắt kênh có cao độ đi kèm chính là các ATT, nếu mình thay đổi cao độ trong bảng excel thì làm thế nào để cập nhật lại giá trị đó bên cad.

Từ cad bạn xuất ra file *.TXT bằng lệnh attout, sau đó mở file đó lên sửa những cái muốn sửa save sau đó dùng lệnh attin


  • 1

#12 vietanh2108

vietanh2108

    biết vẽ line

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

Đã gửi 10 March 2017 - 07:55 AM

hjx, em đi khắp nơi lục lọi mà toàn thấy từ Excel qua CAD là nhiều... cho em lại đề một chút! có cách nào thay thế được Data Extraction bằng VBA ko, ý là có 1 file Excel vs 1 button, bấm 1 phát là nhảy qua CAD cho phép chọn quét các attrblock cần thiết về ra được các cột

- Số lượng

- Layer name

- Tên block

- Attr 1

- Attr 2

....

- Attr n

Bác nào giúp em với, em xin cảm ơn trước!!!!


  • 1

#13 vietanh2108

vietanh2108

    biết vẽ line

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

Đã gửi 10 March 2017 - 01:28 PM

hjx, em đi khắp nơi lục lọi mà toàn thấy từ Excel qua CAD là nhiều... cho em lại đề một chút! có cách nào thay thế được Data Extraction bằng VBA ko, ý là có 1 file Excel vs 1 button, bấm 1 phát là nhảy qua CAD cho phép chọn quét các attrblock cần thiết về ra được cột

- Số lượng

- Layer name

- Tên block

- Attr 1

- Attr 2

....

- Attr n

Bác nào giúp em với, em xin cảm ơn trước!!!!

 


BTW, e có kiếm đc 1 file VBA trên mạng với macro Extract tất cả các block trong bản vẽ, bác nào đi qua sửa lại giúp em với

 

http://www.cadviet.c..._jwaextattr.zip


  • 1

#14 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1458 Bài viết
Điểm đánh giá: 1435 (rất tốt)

Đã gửi 10 March 2017 - 04:26 PM

Tools => Referencer...  cập nhật lại đường dẫn tương ứng với CAD đang sử dụng :

MissingReferences.png


  • 1

#15 vietanh2108

vietanh2108

    biết vẽ line

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

Đã gửi 11 March 2017 - 09:37 AM

hjx, em đi khắp nơi lục lọi mà toàn thấy từ Excel qua CAD là nhiều... cho em lại đề một chút! có cách nào thay thế được Data Extraction bằng VBA ko, ý là có 1 file Excel vs 1 button, bấm 1 phát là nhảy qua CAD cho phép chọn quét các attrblock cần thiết về ra được các cột

- Số lượng

- Layer name

- Tên block

- Attr 1

- Attr 2

....

- Attr n

Bác nào giúp em với, em xin cảm ơn trước!!!!

 


cám ơn bác! ý em là sửa lại giúp em theo ý tưởng ở trên á!!! ^^


  • 0

#16 dinhvantrang

dinhvantrang

    biết lệnh offset

  • Members
  • PipPipPip
  • 171 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 21 March 2017 - 07:49 AM

 

cám ơn bác! ý em là sửa lại giúp em theo ý tưởng ở trên á!!! ^^

 

Với mỗi Attributes bạn sẽ xuất ra Tagstring hay giá trị Textstring?


  • 0

Thanks and Best Regards

Skype : dinhvantrang73

 

Series video hướng dẫn lập trình VBA cho Autocad & Excel

https://www.youtube....m54mGak6O9YSmfT