Chuyển dữ liệu từ Excel sang AutoCad để vẽ (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

PhanTuHuong

VBA & VB.NET for Excel & AutoCad
Thành viên danh dự
Tham gia
13/6/06
Bài viết
7,187
Được thích
24,646
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

Lần chỉnh sửa cuối:
Thắc mắc

Thầy ơi, em tải fie về rồi.
Nhưng chạy ko được, em đã làm theo đúng các bước như thầy đã hướng dẫn nhưng no chỉ báobboxoxbboxx nội dung là:
Macro is dislaybled because the security is set to high and a digitall signed trusted Certificate is not attached to the macros. To run the macros, change the security level aloow setting , or request themacros is signed the author using the certificate issued by a cetificate security
 
Upvote 0
Bạn phải để chế độ Security ở Low hay Medium thì macro mới có tác dụng
 
Upvote 0
File tiện ích vừa mới cập nhật lại (đã sửa lỗi tải), các bạn có thể download.
 
Upvote 0
Phần rất hay!Mình là sinh viên Xây Dựng lên quan tâm vấn đề này nhưng mấy nay kô đc học hỏi lên còn mù tịch nắm?Qua đây mình xin file và hướng dẫn cụ thể để học,rất mong đc giúp đỡ!Please,Send to Email:hocvien2005@yahoo.com!Thanhk a lot!
 
Upvote 0
các you oi minh học bên cầu đường các bác có knh nghiệm về bên này chỉ giúp em với
 
Upvote 0
Em dùng Excel 2003 và CAD2008 Thấy kết nối khó quá. Có bác nào làm trên hai công cụ này rồi xin hướng dẫn cụ thể
Nếu bạn đang dùng CAD2008 thì có thể lập bảng tính trực tiếp trên CAD, vì phiên bản này có tính năng chèn table có khả năng tính toán khá giống excel.
 
Lần chỉnh sửa cuối:
Upvote 0
Mọi người cho mình hỏi làm thế nào để thay Line bằng Spline, mình muốn vẽ đường cong qua các điểm đó
 
Upvote 0
tôi mới tham gia diễn đàn này được vài hôm, tôi cũng chưa hiểu rõ lắm mục đích của các bạn khi kết nối với CAD và Excel bằng những cách kể trên, còn tôi thì làm theo cách là: tạo một bảng Ẽxcel có dữ liệu bình thường, sau đó ghi lại với tên nào đó. Sau đó mở bản vẽ CAD nếu cần thì chèn cả file Excel đó vào, khi đó bảng tính trongExcel vẫn làm việc bình thường, và tự động thay đổi dữ liệu cập nhật.
 
Upvote 0
Mọi người cho mình hỏi làm thế nào để thay Line bằng Spline, mình muốn vẽ đường cong qua các điểm đó
Cái này bạn sử dụng luôn lệnh PEdit của AutoCad 2008 cũng được mà.
Bạn làm như sau:
Đánh lệnh PEdit, chọn M để chọn đựoc nhiều đối tượng, rồi chọn các đối tượng là các Line, chọn J để Join các Line thành Pline, tiếp tục chọn S để convert các Pline thành Spline.
Command: pedit
Select polyline or [Multiple]: m
Select objects: all
7 found
Select objects:
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.0000>:
0 segments added to polyline
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: s
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]:
 
Upvote 0
anh điệp ơi em thử như anh nói với cad 2007 nhưng nó cứ báo là:"the macor 'book1.xls!vebangtk' cannot be found".thế là thế nào hở anh?anh chỉ dùm em với!

a quên mail của em đây:huykhanh_xd@yahoo.com.vn mong anh chỉ dùm cho
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Sao tôi xài 2 autocard 2005 và 2007 khi sử dụng uti "go" là nó luôn hiện qua card 2005 không vậy, đổi libary rồi mà không được, ngộ vậy!
 
Upvote 0
Sao tôi xài 2 autocard 2005 và 2007 khi sử dụng uti "go" là nó luôn hiện qua card 2005 không vậy, đổi libary rồi mà không được, ngộ vậy!

Về nguyên tắc, khi cài 1 loại phần mềm nhưng khác phiên bản, nó sẽ mở bộ cài sau ra (không quan tâm đến phiên bản).
 
Upvote 0
Ca'i món này hay ghê, đọc qua một lần, chưa làm được, phải đọc lại lần nữa thôi. Mình tìm cái món này lâu rồi để vễ các mặt cắt kênh, trong công ty, ông kia cũng biết nhưng kô chỉ mình, tức ghê. Giờ thì có lẽ Giải pháp excel làm bạn tốt của mình rồi. Mình bên kĩ thuật, nhưng cũng thích nghien cứu Excel, anh em chỉ giúp đỡ mình nhé.
 
Upvote 0
Chào Phan Tu Huong bạn có cuốn sách nào hướng dẫn vẽ từ Excel sang Auto Card ko? Nếu có phát hành thì tôi đặt mua một cuốn, Ứng dụng này công nhận rất hay. Cảm ơn bạn và những bài viết có giá trị của bạn
 
Upvote 0
bạn nào có cách để vẽ những bản vẽ cơ khí không,mình dùng cad 2004 vẽ mà lâu quá,nhất là mấy con bulong,bánh răng....mệt lắm.không biết có thư viện về mấy ốc vít bu long để mình copy vẽ cho nhanh khong nhỉ.bạn nào có chỉ cho minh hén.kỳ này mình làm đô án thiết kế máy.có tài liệu nào hay chuyển cho mình hén.cám on nhiều
 
Upvote 0
chuyển dữ liệu từ exel sang acad 2007

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)"
Tôi dùng Acad 2007 và làm như bạn hướng dẫn nhưng không thành, vậy có giải pháp nào không mong bạn chỉ bảo. Cảm ơn nhiều
 
Upvote 0
Xin chào các anh chị, em ở GTVT Q9, hiện em đang làm đồ án tốt nghiệp, 1 phần liên quan đến lập trình: Kiểm toán trụ đặc thân hẹp. Em định kiểm toán mố trên Excel sau đó vẽ các mặt cắt mố trong CAD.
Các anh chị có tài liệu, hay code tham khảo nào liên quan có thể cho em xin được không ạ?
Em muốn nắm được tổng quan, định hướng, cần phải làm những gì?, trình tự làm? liên quan đến các vấn đề nào trong VBA?
Cảm ơn các anh chị nhiều! ^_^
 
Upvote 0
Về nguyên tắc, khi cài 1 loại phần mềm nhưng khác phiên bản, nó sẽ mở bộ cài sau ra (không quan tâm đến phiên bản).
em đang là sinh viên ngành TK cầu đường của trường giao thông.em có tham khảo các ví dụ của thầy hướng.rất tiện ích và phù hợp với hiện tại em đang học.và em cũng làm dc hầu hết các ví dụ em có đọc qua của thầy thật bổ ích.em mong thầy mở rộng thêm nũa.và đưa các ngôn ngữ lập trình như C#,VB6,...kết hợp với VBA trong execl,cad để em có thể hiểu thêm nũa.mong thầy giúp đỡ nhiều.
 
Upvote 0
anh PhanTuHuong làm ơn chỉ giùm sao khi em chọn Tools\Add-Ins\Browse chọn đường dẫn đến file uti.xla, rồi chọn Ok thì excel nó báo lổi ---------------------------
Microsoft Visual Basic
---------------------------
Compile error:
Can't find project or library
---------------------------
OK Help
---------------------------
vậy là không chạy được, mong anh giải đáp giùm, xin cảm ơn anh nhiều
 
Upvote 0
file không dùng được cho office2007 phải không bác Hướng. em mở lên nó cứ báo thiếu đối tượng vba j không à,
This workbook has lost its VBA project, ActiveX controls and any other programmability-related features
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom