Chuyển dữ liệu từ Excel sang AutoCad để vẽ

Liên hệ QC

PhanTuHuong

VBA & VB.NET for Excel & AutoCad
Thành viên danh dự
Tham gia
13/6/06
Bài viết
7,121
Được thích
24,279
1/ Vẽ cột địa tầng(các lớp đất đá) trong Acad (số liệu lấy từ excel)
File : "SPT.xls"
Cách dùng : chọn một bảng dữ liệu trên Excel, nhấn nút mũi tên phía trên thanh menu để chạy chương trình.

2/ Chuyển bảng dữ liệu từ Excel sang Acad
File : "uti.xla"
Cách dùng :
_ Thêm uti.xla và mục Add-Ins : chọn Tools\Add-Ins\Browse chọn đường dẫn đến file uti.xla, chọn ok...
_ Tạo một nút trên thanh công cụ gán vào macro "vebangtk" : chọn Tools\Customize...\Commands ở mục "Categories" chọn Macros, trong mục "Commands" nhấn chuột trái và giữ mục "Custom Button" kéo rê lên thanh công cụ trên cùng, khi thấy xuất hiện biểu tượng thì thả chuột ra, nhấn chuột phải vào biểu tượng này chọn Assign Macro, gõ vào "vebangtk" (không có dấu ngoặc kép)
_ Chọn vùng dữ liệu trên Excel rồi nhấn nút vừa tạo để chạy chương trình.

Cả hai tiện ích trên tôi viết để dùng cho Acad2006, nếu bạn dùng Acad version khác thì sau khi mở chương trình bạn nhấn Alt-F11, chọn Tools\Preferences... bỏ đánh dấu mục "Missing... AutoCAD 2006 Type Library" rồi chọn "AutoCAD... Library" version tương ứng với Acad bạn đang dùng, thực hiện tương tự đối với version của Excel (tôi dùng Excel2003). Có thể cả hai tiện ích trên không dùng được cho Acad R14, tiện ích vẽ SPT sẽ không chạy được trên nền Acad2000 và Acad2002, nếu các bác cần tôi sẽ gửi sau, đối với Acad2007 thì tôi chưa kiểm tra.


Bài của bạn Nguyễn Văn Điệp (bên ketcau.com)
 

File đính kèm

  • Tien ich.zip
    360.7 KB · Đọc: 9,787
Lần chỉnh sửa cuối:
Xu hướng lập trình đối tượng Object là rất hay đấy. Dân kỹ thuật nghiên cứu theo xu hướng này là rất thực dụng. Tuy nhiên đây chỉ là ứng dụng đơn giản, để đạt được hiệu quả cao hơn thì trong AutoC bạn phải khai báo trước một số kiểu như font chữ, kiểu đường nét, kiểu pattern,...
 
Upvote 0
Ai chà tôi đang cần tìm món này không ngờ lại gặp được ở đây cảm ơn các bạn nhé !
 
Upvote 0
Trang này có nhiều ứng dụng về kĩ thuật hay quá. Cảm ơn mọi người đã nhiệt tình như thế. Mình mới hỏi đã có câu trả lời chứ một số diễn đàn vào hỏi mãi đâu ai thèm trả lời cho.
 
Upvote 0
hung1981 đã viết:
anh huong
sao em down khong duoc file tienich.zip cua anh the
anh post cai link khac duoc khong

Bạn nhớ gõ bài có dấu nha!. File của A.Hướng không có vấn đề gì. Bạn kiểm tra xem máy của bạn có phần mềm giải nén chưa. Nếu chưa có bạn thì bạn down tại đây nha.
 
Upvote 0
Vẽ tự động lấy số liệu từ Excel sang cad quả là tuyệt vờiSử dụng VBA là rất hữu ích đó
 
Upvote 0
không chạy được trong cad2007

PhanTuHuong đã viết:
1/ Vẽ cột địa tầng(các lớp đất đá) trong Acad (số liệu lấy từ excel)
File : "SPT.xls"
Cách dùng : chọn một bảng dữ liệu trên Excel, nhấn nút mũi tên phía trên thanh menu để chạy chương trình.

2/ Chuyển bảng dữ liệu từ Excel sang Acad
File : "uti.xla"
Cách dùng :
_ Thêm uti.xla và mục Add-Ins : chọn Tools\Add-Ins\Browse chọn đường dẫn đến file uti.xla, chọn ok...
_ Tạo một nút trên thanh công cụ gán vào macro "vebangtk" : chọn Tools\Customize...\Commands ở mục "Categories" chọn Macros, trong mục "Commands" nhấn chuột trái và giữ mục "Custom Button" kéo rê lên thanh công cụ trên cùng, khi thấy xuất hiện biểu tượng thì thả chuột ra, nhấn chuột phải vào biểu tượng này chọn Assign Macro, gõ vào "vebangtk" (không có dấu ngoặc kép)
_ Chọn vùng dữ liệu trên Excel rồi nhấn nút vừa tạo để chạy chương trình.

Cả hai tiện ích trên tôi viết để dùng cho Acad2006, nếu bạn dùng Acad version khác thì sau khi mở chương trình bạn nhấn Alt-F11, chọn Tools\Preferences... bỏ đánh dấu mục "Missing... AutoCAD 2006 Type Library" rồi chọn "AutoCAD... Library" version tương ứng với Acad bạn đang dùng, thực hiện tương tự đối với version của Excel (tôi dùng Excel2003). Có thể cả hai tiện ích trên không dùng được cho Acad R14, tiện ích vẽ SPT sẽ không chạy được trên nền Acad2000 và Acad2002, nếu các bác cần tôi sẽ gửi sau, đối với Acad2007 thì tôi chưa kiểm tra.


Bài của bạn Nguyễn Văn Điệp (bên ketcau)
Bạn chỉ cách dùng trong cad2007 đi mình chạy ở trong 2007 không được
cám ơn
 
Upvote 0
không được trong cad2007 bạn à
có thể chỉ cho mình không
 
Upvote 0
Lang thang trên forum này vô tình đọc được thread này, tôi là Điệp, tác giả của tiện ích trên.
Tôi chưa cài Acad 2007 nên chưa thử, không biết các bạn thử cách này chưa : "nếu bạn dùng Acad version khác thì sau khi mở chương trình bạn nhấn Alt-F11, chọn Tools\Preferences... bỏ đánh dấu mục "Missing... AutoCAD 2006 Type Library" rồi chọn "AutoCAD 2007... Library", thực hiện tương tự đối với version của Excel (tôi dùng Excel2003)"
 
Upvote 0
Cám ơn bạn Điệp, Automation Object giữa Excel và AutoCad sẽ rất hữu ích cho dân kỹ thuật. --=0
 
Upvote 0
Tôi thấy tiện ích này rất hay, rất cảm ơn tác giả. Nhưng cho hỏi có cách nào để khi ta thay đổi giá trị trong vùng mà ta chọn thì tương ứng các giá trị này trong CAD cũng thay đổi theo không? mà không phải chạy lại.
 
Upvote 0
thanhlamct82 đã viết:
Tôi thấy tiện ích này rất hay, rất cảm ơn tác giả. Nhưng cho hỏi có cách nào để khi ta thay đổi giá trị trong vùng mà ta chọn thì tương ứng các giá trị này trong CAD cũng thay đổi theo không? mà không phải chạy lại.


Cái này chắc là không được đâu, vì đã có sự khai báo từ đầu là đối tượng Object, muốn cập nhật tự động thì lại phải sử dụng thủ tục gán trong sự kiện nào đó khi bạn thay đổi Range. Kiểu liên kết tự động thường chỉ ứng dụng trong Office thôi.
 
Upvote 0
Tôi có một bài toán thế này nhờ bác Hương và mọi người giúp: Tôi muốn vẽ một đoạn thẳng trong CAD mà số liệu toạ độ điểm đầu và điểm cuối có trong Excel. Khi tôi thay đổi toạ độ điểm cuối trong excel thì đường thẳng trong CAD cũng thay đổi theo (do thay đổi toạ độ điểm cuối) . Liệu có làm được như vậy không các bác. Nếu làm được như vậy thì sẽ giúp ích cho công việc của tôi rất nhiều. Xin chân thành cảm ơn!
 
Upvote 0
thanhlamct82 đã viết:
Tôi có một bài toán thế này nhờ bác Hương và mọi người giúp: Tôi muốn vẽ một đoạn thẳng trong CAD mà số liệu toạ độ điểm đầu và điểm cuối có trong Excel. Khi tôi thay đổi toạ độ điểm cuối trong excel thì đường thẳng trong CAD cũng thay đổi theo (do thay đổi toạ độ điểm cuối) . Liệu có làm được như vậy không các bác. Nếu làm được như vậy thì sẽ giúp ích cho công việc của tôi rất nhiều. Xin chân thành cảm ơn!

Bạn thử tải file này về nghiên cứu xem sao.

Chạy lúc đầu (mở AutoCad) thì sẽ chậm, sau đó thì rất nhanh.

Bạn cứ thay đổi số liệu tọa độ tuyệt đối của 2 điểm thì sẽ tự động được cập nhật ngay lập tức trên bản vẽ AutoCad.
 

File đính kèm

  • Line_Excel_AutoCad.xls
    24.5 KB · Đọc: 1,081
Upvote 0
Không có gì đâu bạn PhanTuHuong, mọi người thấy nó dùng được là tốt rồi ;D
Tôi đã thử với Acad2007, các bạn cứ làm theo cách trên là được.
 
Upvote 0
Vẽ line trong Cad

Minh đã down file vẽ line trong cad về dùng nhưng Excel báo lỗi không tìm thấy "KT" library là sao vậy bạn?
Tiện thể bạn chỉ mình cách vẽ 3 vòng tròn bằng cách nhập từ excel các bán kính, vị trí của tâm không. Các đường tròn này có tâm nằm trên trục hoành của trục tọa độ. Sau đó, mình cần vẽ thêm một đường thẳng tiếp xúc qua ba vòng tròn. Rồi từ đó xác định góc tạo bởi đường thẳng và trục hoành , độ dài tính từ gốc tọa độ đến vị trí trục tung giao với đường thẳng được tạo ra.
Bạn có thể chỉ mình cách viết được không thế. Thanks nhiều! Nếu cần thêm thông tin bạn gửi tin nhắn vào nich yahoo:subaru0007rock@yahoo.com
Thanks!!!
 
Upvote 0
Binhscc đã viết:
....
Tiện thể bạn chỉ mình cách vẽ 3 vòng tròn bằng cách nhập từ excel các bán kính, vị trí của tâm không. Các đường tròn này có tâm nằm trên trục hoành của trục tọa độ. Sau đó, mình cần vẽ thêm một đường thẳng tiếp xúc qua ba vòng tròn. Rồi từ đó xác định góc tạo bởi đường thẳng và trục hoành , độ dài tính từ gốc tọa độ đến vị trí trục tung giao với đường thẳng được tạo ra.
....
PhanTuHuong đã viết:
Còn câu thứ hai có phải bạn hỏi về cách xác định sức kháng cắt từ vòng tròn Mohr phải không? Để vẽ được thì trước hết phải hiểu về thuật toán để vẽ. Cái này thì anh nvson đã xây dựng trong Excel rồi đó.
Trước kia mình làm trên Excel 2003 thì việc vẽ được các nửa vòng tròn trên đồ thị của Excel bắt buộc phải dùng cột phụ (nhưng cũng ko phức tạp lắm đâu).
Còn việc vẽ tiếp tuyến của các vòng tròn đó thì là kiến thức phổ thông rùi (Các xác định phương trình tiếp tuyến qua 2 đường tròn).

Vui mừng thông báo với bạn (và những người làm lĩnh vực ĐCCT) rằng từ phiên bản Excel 2007 đã có thêm dạng biểu đồ hình tròn.
Bạn chỉ việc nhập 3 cột:
Cột 1: Toạ độ X
Cột 2: Toạ độ Y
Cột 3: Bán kính R
Sau đó chọn vùng trên, rồi chọn Insert/ Charts/ Other Charts, tiếp đến là chọn một dạng của Buddle.
Bạn có thể nhấn tiếp vào đồ thị, chọn Chart Tools/ Design/ Data/ Switch Row/Column (nếu cần) --> đề Excel hiểu về dữ liệu vẽ đồ thị.
Các công việc còn lại thì đơn giản rùi, đúng ko?
 
Upvote 0
Bạn đọc cái hướng dẫn của anh Điệp nhé:

bkxd98 đã viết:
... sau khi mở chương trình bạn nhấn Alt-F11, chọn Tools\Preferences... chọn "AutoCAD 200X... Library","

Trong đó 200X là đời của AutoCad, ví dụ như 2004, 2006, 2007, 2008 ,...


Còn câu thứ hai có phải bạn hỏi về cách xác định sức kháng cắt từ vòng tròn Mohr phải không? Để vẽ được thì trước hết phải hiểu về thuật toán để vẽ. Cái này thì anh nvson đã xây dựng trong Excel rồi đó.
 
Upvote 0
Tôi có biết một tiện ích cho AutoCAD là Autotable có thể cập nhật dữ liẹu nếu nguồn từ Excel có thay đổi. Tác giả PhanTuHuong nghiên cứu thử xem ( và đấy là PM có phí )
 
Upvote 0
Web KT
Back
Top Bottom