Sử Dụng VBA Trong AutoCad để Liên Kết Với Excel
Có thể bạn quan tâm
- Trang chủ Có gì mới Hoạt động gần nhất Tác giả
- Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
- Video Video về Excel Video về tin học khác Tin tức về tin học chung
- Thông tin mới Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
- Tài nguyên Đánh giá mới nhất Tìm tài nguyên
- Đóng góp
Tìm kiếm
Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
- Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
- Trang chủ
- Diễn đàn
- Lập Trình với Excel
- Lập Trình với Excel
- Thread starter PhanTuHuong
- Ngày gửi 18/3/07
PhanTuHuong
VBA & VB.NET for Excel & AutoCad
Thành viên danh dự Tham gia 13/6/06 Bài viết 7,171 Được thích 24,609 Trong lĩnh vực kỹ thuật như trắc địa, địa chất, xây dựng, giao thông, kiến trúc, chế tạo máy,... phần mền AutoCad được sử dụng rất phổ biến. Bạn có thể sử dụng VBA trong Excel để vẽ các đối tượng hình học trong AutoCad như chủ đề đã có. Và tại sao ta lại không thể làm ngược lại?! Bạn hãy sử dụng ngôn ngữ VBA trong AutoCad để thực hiện công việc đó. Nếu bạn đã biết VBA trong Excel thì cũng nhanh chóng học được VBA trong AutoCad. Để dễ dàng so sánh giữa chúng, tôi xin giới thiệu 2 thủ tục để mở AutoCad từ Excel và ngược lại: Mã:Sao chép. Sub Mo_AutoCad() Dim AcaDApp As Object On Error Resume Next Set AcadApp = GetObject(, "AutoCAD.Application") If Err <> 0 Then Err.Clear KT = True Set AcadApp = CreateObject("AutoCAD.Application") End If AppActivate AcadApp.Caption AcadApp.Visible = True Set AcadApp = Nothing End Sub Mã:Sao chép. Sub Mo_Excel() Dim ExcelApp As Object On Error Resume Next Set ExcelApp = GetObject(, "Excel.Application") If Err <> 0 Then Err.Clear Set ExcelApp = CreateObject("Excel.Application") End If ExcelApp.Visible = True AppActivate ExcelApp.Caption ExcelApp.Workbooks.Add Set ExcelApp = Nothing End Sub- 1
- 2
Go to page
Tiếp tục Tiếp Last Sắp xếp theo thời gian sắp xếp theo bầu chọn Bbkxd98
Thành viên mới
Tham gia 2/8/06 Bài viết 15 Được thích 26 Xác định tọa độ các điểm trong Acad Bác PhanThuHuong có vẻ quan tâm đến việc chuyển dữ liệu qua lại giữa acad và excel, hưởng ứng với bác là tiện ích xác định tọa độ các điểm trong acad, số liệu có thể xuất thẳng ra acad hay excel Cách dùng : file lisp dùng để load macro này lên, các bác phải chép 2 file này vào thư mục có đường dẫn trong option-files-support file search path Lỗi : nếu các bác chọn là xuất ra excel mà hiện chưa đang mở chương trình excel thì chạy đến lần thứ chẳng (2, 4, 6, ...) thì chương trình sẽ treo, bạn phải nhấn ctrl-break để tạm thoát ra chương trình và bật task manager lên và end task processes là excel, lần chạy kế sẽ bình thường, nhưng lần tiếp nữa (lần chẳng) sẽ bị nữa, hơi lạ hả các bác tôi cũng không hiểu nguyên tại sao, nếu bác PhanThuHuong hay bác nào quan tâm vui lòng xem giúp nguyên nhân tại sao (tôi có ghi chú dòng lệnh gây ra lỗi trên trong source) --> cách khắc phục : các bác bật excel lên rồi chạy tiện ích trên thì không có vấn đề gì. Mong nhận được sự quan tâm, trau đổi và hướng dẫn của các bác. Thân.File đính kèm
- Xac dinh toa do diem trong Acad.zip 36.4 KB · Đọc: 3,234
PhanTuHuong
VBA & VB.NET for Excel & AutoCad
Thành viên danh dự Tham gia 13/6/06 Bài viết 7,171 Được thích 24,609 Tôi đã xem qua Project của anh, phải công nhận là tác giả có kiến thức về VBA for AutoCad rất giỏi. Tôi chưa có thời gian để test nhiều lần nhưng tôi nghĩ chương trình hoạt động tốt, có thể lỗi là do lỗi tràn bộ nhớ. Các biến đối tượng thủ của anh không đặt là Nothing khi chạy xong thủ tục (để giải phóng bộ nhớ cho Window). Việc chạy nhiều thủ tục như vậy dễ gây tràn bộ nhớ, đặc biệt là đối tượng ExcelApp chiếm bộ nhớ khá lớn. Anh thử bổ sung xem sao. -------- Ngoài lề 1 chút (se xóa sau): Tôi có mấy anh bạn làm trong Tedy South nhưng làm về lĩnh vực địa chất như anh Tuấn Anh, anh Tú (mới chuyển đi cùng cả vợ), anh Hòa tầm trên 30 tuổi. Đều người Bắc cả. Upvote 0PhanTuHuong
VBA & VB.NET for Excel & AutoCad
Thành viên danh dự Tham gia 13/6/06 Bài viết 7,171 Được thích 24,609 Vấn đề liên kết (binding) và chuyển đổi số liệu giữa Excel và AutoCad là rất hay và tiện lợi. Công việc này rất phù hợp với những nghề nghiệp có sử dụng đến cả 2 phần mềm trên như các ngành kỹ thuật đã nêu. Bản thân VBA trong 2 phần mềm hoạt động khá giống nhau, chỉ khác là đối tượng. Vì vậy với những người đã biết về VBA for Excel thì học sang AutoCad cũng nhanh thôi... - Excel: đối tượng là Cell, Range, worksheet, chart,... - AutoCad: đối tượng là đoạn thằng, cung tròn, vòng tròn, polyline, chữ, lớp,... Bạn nào có quan tâm thì nên nghiên cứu phát triển. Upvote 0 Tthanhlamct82
Thành viên mới
Tham gia 12/3/07 Bài viết 6 Được thích 1 Tôi là một người cũng rất quan tâm tới vấn về chuyễn đổi dữ liệu qua lại giữa exel va CAD, bởi vì tôi cũng làm trong nghề kỹ thuật. Cảm ơn bác PhanTuHuong đã gửi cho tôi file vẽ đoạn thảng trong CAD lấy toạ độ từ Exel. Nhưng bác PhanTuHuong ơi sao tôi chạy mà đoạn thẳng cũ không bị xoá đi, máy tôi cài cả CAD14 và CAD2004 khi chạy thì chương trình lại gọi CAD14, CAD2004 chẳng thấy động tĩnh gì. Tôi đang nghiên cứu VBA for CAD, mong các bác giúp đỡ . Upvote 0 Bbkxd98
Thành viên mới
Tham gia 2/8/06 Bài viết 15 Được thích 26PhanTuHuong đã viết: có thể lỗi là do lỗi tràn bộ nhớ. Các biến đối tượng thủ của anh không đặt là Nothing khi chạy xong thủ tục (để giải phóng bộ nhớ cho Window). Việc chạy nhiều thủ tục như vậy dễ gây tràn bộ nhớ, đặc biệt là đối tượng ExcelApp chiếm bộ nhớ khá lớn. Nhấp chuột vào đây để mở rộng...Cách này không được, nó vẫn xảy ra lỗi trên , cái tiện ích nhỏ này do lúc đầu đang nghiên cứu vb nên viết để học, thực ra nó còn một số bất tiện nếu các bác dùng sẽ thấy (nhưng dùng vẫn bình thường ), vấn đề này có thể dùng lisp khá nhỏ gọn hơn. Nghe anh PhanTuHuong nói chắc là anh trên 30t? em thì 27t. Chắc là bạn anh làm bên xí nghiệp đường bộ, em thì làm bên xí nghiệp cầu đường, Việc chuyển đổi dữ liệu qua lại giữa excel và acad, theo tôi nghĩ nếu các bác có kiến thức về lập trình và biết một chút về VB thì cứ tham khảo 2 bài viết Chuyển dữ liệu từ Excel sang AutoCad để vẽ và bài này là có thể hình dung được cách khai báo các đối tượng, ..., ngay cả bác muốn tự động thay đổi số liệu bên excel thì bên acad tự thay đổi / vẽ theo hay ngược lại thì mình chỉ cần xử lý biến cố dữ liệu thay đổi ..._change bên excel, trong đó cập nhật / vẽ lại đối tượng bên acad hay ngược lại. Cũng khá lâu rồi không có viết gì, nay đọc được một số bài của anh PhanTuHuong thì tự nhiên có "cảm hứng" lại . Lúc trước, đang tự học vb viết được một số cái tiện ích nhỏ, nảy sinh ý nghĩ sao không viết một cái gì đó lớn hơn. Tôi có ý tưởng này : 1 phần mềm vẽ bố trí chung cầu nhịp giản đơn, số liệu đầu vào là một đường tự nhiên vẽ đúng cao độ (trong acad) và tỷ lệ 1/10, tĩnh không thông thuyền, loại dầm, số lượng nhịp, khổ cầu, độ dốc ngang cầu, các thông số xác định đường đỏ (cao độ đỉnh cầu, bán kính đường cong đứng, độ dốc 2 bên cầu, ...). Chương trình sẽ đưa ra một số lựa chọn kết cấu trụ, ..., tự xác định cao độ đáy bệ trụ, mố, tim cầu, cho phép người dùng chọn lại ... Kết quả xuất ra là bản vẽ bố trí chung cầu, mố trụ, khối lượng. Hướng phát triển là có thể vẽ cả bộ hồ sơ cầu. Tôi thấy nó cũng có khả thi, thuật toán thì tôi cũng hình dung sơ bộ có thể giải quyết được, nhưng làm thì tốn nhiều thời gian quá. Tôi cũng đã viết sơ bộ được đoạn xếp dầm vào đường đỏ, rồi dừng lại đến bây giờ. Upvote 0
PhanTuHuong
VBA & VB.NET for Excel & AutoCad
Thành viên danh dự Tham gia 13/6/06 Bài viết 7,171 Được thích 24,609thanhlamct82 đã viết: Cảm ơn bác PhanTuHuong đã gửi cho tôi file vẽ đoạn thảng trong CAD lấy toạ độ từ Exel. Nhưng bác PhanTuHuong ơi sao tôi chạy mà đoạn thẳng cũ không bị xoá đi, máy tôi cài cả CAD14 và CAD2004 khi chạy thì chương trình lại gọi CAD14, CAD2004 chẳng thấy động tĩnh gì. Tôi đang nghiên cứu VBA for CAD, mong các bác giúp đỡ . Nhấp chuột vào đây để mở rộng...Để gọi AutoCad nào ra thì bạn chú ý khai báo trong Tools/References của cửa sổ VBE. Còn trong trường hợp để xóa đoạn thẳng thì chỉ có tác dụng khi bạn đang mở Excel và AutoCad thôi, còn đã đóng vào thì không được vì biến đối tượng lúc đó sẽ bị mất đi. Upvote 0
PhanTuHuong
VBA & VB.NET for Excel & AutoCad
Thành viên danh dự Tham gia 13/6/06 Bài viết 7,171 Được thích 24,609 Tôi thấy để mở ứng dụng Excel từ AutoCad bằng:Set AcadApp = CreateObject("AutoCAD.Application") ExcelApp.Visible = True AppActivate ExcelApp.Caption ExcelApp.Workbooks.Add Nhấp chuột vào đây để mở rộng...thì thấy thường chậm hơn khá nhiều khi mình khởi động trực tiếp từ bên ngoài. Nhờ các cao thủ giải thích giúp nhé. Upvote 0 D
duongsatdn
Thành viên tiêu biểu
Tham gia 15/6/07 Bài viết 455 Được thích 393 Tôi đã tìm được tài liệu này. Lần chỉnh sửa cuối: 16/7/07 Upvote 0LearnExcel
Thành viên thường trực
Tham gia 7/8/06 Bài viết 292 Được thích 519 Theo tôi, cần xác định rõ tính chất ứng dụng, Nếu tính toán dạng bảng nhiều thì chạy CAD từ Excel, còn thiên về vẽ hay xử lý ví dụ như cắt, Union, tính Volume phức tạp thì chạy VBA trong CAD khỏe hơn rỗi xuất dữ liệu ra EXCEL, thậm chí file text cũng được mà. Còn thì CAD ngốn tài nguyên nhiều hơn Excel, có lẽ chậm??? Upvote 0PhanTuHuong
VBA & VB.NET for Excel & AutoCad
Thành viên danh dự Tham gia 13/6/06 Bài viết 7,171 Được thích 24,609 Tôi nghĩ là do việc khởi tại CreatObject hạn chế phân vùng bộ nhớ trong Window, còn khởi động trực tiếp AutoCad trong Window thì ngon. Upvote 0 Ttuan49xd5
Thành viên mới
Tham gia 13/10/07 Bài viết 1 Được thích 0 Em mới viết trang web này được một ngày. Những vấn đề trong đây rất là hay.Nhưng quả thật em chưa biết một chút gì về lập trình VB.Hiện nay em rất muốn vẽ tập hợp các điểm = lệnh po. Toạ độ các điểm được xuất từ excel sang.Các anh có thể hướng dẫn một cách cụ thể nhất được không Upvote 0PhanTuHuong
VBA & VB.NET for Excel & AutoCad
Thành viên danh dự Tham gia 13/6/06 Bài viết 7,171 Được thích 24,609 Muốn hiểu được công việc này, bạn phải tìm hiểu về VB, VBA cái đã. Còn các ví dụ liên quan thì đã có nhiều ví dụ rồi. Upvote 0 Bbbtt
Thành viên mới
Tham gia 23/11/07 Bài viết 1 Được thích 0 Cho Tôi hỏi các bạn, để xác định hàng cuối cùng chứa dữ liệu trong Excell thi dung ham gi trong VB? Upvote 0PhanTuHuong
VBA & VB.NET for Excel & AutoCad
Thành viên danh dự Tham gia 13/6/06 Bài viết 7,171 Được thích 24,609bbtt đã viết: Cho Tôi hỏi các bạn, để xác định hàng cuối cùng chứa dữ liệu trong Excell thi dung ham gi trong VB? Nhấp chuột vào đây để mở rộng...Bạn nghiên cứu Application.WorksheetFunction.Tên hàm trong VBA nhé. Upvote 0
SONGBA
Thành viên mới
Tham gia 24/10/06 Bài viết 48 Được thích 240 Mình sử dụng autocad2007, mình tải file" Xac dinh toa do diem trong autocad " về và chép 2 file này vào thư mục có đường dẫn trong option-files-support file search path nhưng khi đánh lệnh tdd thì autocad báo lỗi không biết lỗi chr() là lỗi gì và cách khắc phục như thế nào? Thanks Upvote 0tigertiger
Coming back ...
Tham gia 25/1/07 Bài viết 1,927 Được thích 1,895 Hàm chr(10) là trả về khoảng trắng Nếu thế thì bạn thử thay & chr(10) & bằng & " " & xem được không???, nếu không thì là lỗi khác Upvote 0 NNguyen Nhat Minh
Thành viên mới
Tham gia 17/12/07 Bài viết 2 Được thích 0 Nghề nghiệp giao vien Bạn kiểm tra xem đối tượng đó có chấp nhận khoảng trắng ko? Nếu được thì post phần code lên? Upvote 0tigertiger
Coming back ...
Tham gia 25/1/07 Bài viết 1,927 Được thích 1,895tigertiger đã viết: Hàm chr(10) là trả về khoảng trắng Nếu thế thì bạn thử thay & chr(10) & bằng & " " & xem được không???, nếu không thì là lỗi khác Nhấp chuột vào đây để mở rộng...Hoặc bạn xóa lun đoạn này PHP:Sao chép. ..................... & chr(10) & ............ Thế nhé Upvote 0 D
duyhung_sam
Thành viên mới
Tham gia 20/3/08 Bài viết 2 Được thích 0bkxd98 đã viết: Bác PhanThuHuong có vẻ quan tâm đến việc chuyển dữ liệu qua lại giữa acad và excel, hưởng ứng với bác là tiện ích xác định tọa độ các điểm trong acad, số liệu có thể xuất thẳng ra acad hay excel Cách dùng : file lisp dùng để load macro này lên, các bác phải chép 2 file này vào thư mục có đường dẫn trong option-files-support file search path Lỗi : nếu các bác chọn là xuất ra excel mà hiện chưa đang mở chương trình excel thì chạy đến lần thứ chẳng (2, 4, 6, ...) thì chương trình sẽ treo, bạn phải nhấn ctrl-break để tạm thoát ra chương trình và bật task manager lên và end task processes là excel, lần chạy kế sẽ bình thường, nhưng lần tiếp nữa (lần chẳng) sẽ bị nữa, hơi lạ hả các bác tôi cũng không hiểu nguyên tại sao, nếu bác PhanThuHuong hay bác nào quan tâm vui lòng xem giúp nguyên nhân tại sao (tôi có ghi chú dòng lệnh gây ra lỗi trên trong source) --> cách khắc phục : các bác bật excel lên rồi chạy tiện ích trên thì không có vấn đề gì. Mong nhận được sự quan tâm, trau đổi và hướng dẫn của các bác. Thân. Nhấp chuột vào đây để mở rộng...Lỗi:> can't find project or library rồi tự động mở ct microsoft Visual basic! ?? Upvote 0
- 1
- 2
Go to page
Tiếp tục Tiếp Last Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.Bài viết mới nhất
N Định mức nguyên vật liệu- nghiemcongdien
- 9/11/24
- Google Spreadsheets
- VUONGTNQN
- Thứ sáu lúc 22:26
- Hàm và công thức Excel
- thanhthang0201
- Hôm qua, lúc 17:56
- Hàm và công thức Excel
- Question
- tn001
- 15/4/13
- Lập Trình với Excel
- hongphuong1997
- Hôm qua, lúc 17:40
- Những vấn đề chung
- kopite
- Hôm qua, lúc 17:30
- Hàm và công thức Excel
- Question
- binhtv69
- Thứ sáu lúc 09:01
- Lập Trình với Excel
- dangvandang
- 28/10/23
- Các Add-ins cho excel
- noisy
- Hôm qua, lúc 09:19
- Giải thích, gỡ rối, xử lý lỗi công thức
- daoduy88
- Thứ năm lúc 12:01
- VBA trong Excel – Cải thiện và tăng tốc
- hoaiantrinh
- Thứ tư lúc 16:32
- Hỏi đáp những vấn đề khác
- khzaof
- Thứ sáu lúc 23:45
- Pivot table
- Question
- Tienvinh191
- 4/4/24
- Lập Trình với Excel
- Question
- lvh1064
- Thứ năm lúc 18:45
- Lập Trình với Excel
- Question
- thaibao13d3bk
- 18/8/20
- Lập Trình với Excel
- bùi võ anh thư
- Thứ sáu lúc 00:15
- Hỏi đáp những vấn đề khác
- LINHJP
- Thứ sáu lúc 13:30
- Định dạng, trình bày, in ấn bảng tính
- Question
- ongke0711
- 6/10/24
- Lập Trình với Excel
- Question
- ngdhan
- Thứ sáu lúc 10:14
- Lập Trình với Excel
- Nguyễn Diêu Hiền
- 14/11/24
- Những vấn đề chung
Thành viên có số lượng bài viết cao nhất tháng
- Hoàng Tuấn 868 151
- ptm0412 64
- VetMini 44
- ongke0711 35
- Tuấn Bụng Bự 31
- befaint 30
- bebo021999 29
- hoangtuaotrang_hp_vn 25
- SA_DQ 25
- BuiQuangThuan 25
- HeSanbi 24
- HUONGHCKT 24
- huuthang_bd 18
- huhumalu 17
- Nguyễn Diêu Hiền 15
- CHAOQUAY 14
- cantl 14
- DeTong 14
- batista911 13
- phuongnam366377 13
Thành viên có điểm tương tác cao nhất tháng
- Hoàng Tuấn 868 123
- VetMini 62
- HeSanbi 60
- HUONGHCKT 51
- ptm0412 46
- ongke0711 43
- BuiQuangThuan 39
- befaint 37
- HieuCD 35
- SA_DQ 32
- huuthang_bd 31
- bebo021999 27
- hoangtuaotrang_hp_vn 25
- Phuocam 19
- huhumalu 15
- CHAOQUAY 12
- phuongnam366377 12
- PhanTuHuong 12
- Nhattanktnn 10
- DeTong 10
- Trang chủ
- Diễn đàn
- Lập Trình với Excel
- Lập Trình với Excel
- Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Từ khóa » Cài Vba Cho Cad 2018
-
Download The Microsoft VBA Module For AutoCAD
-
Hướng Dẫn Cài đăt Module VBA Enabler Cho Autocad - YouTube
-
AUTOCAD VBA 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017 ...
-
[AutoCAD] Các Phiên Bản VBA - Thoát Nước VTD
-
VBA Cho AutoCad - Diễn đàn CADViet
-
Download The Microsoft VBA Module For AutoCAD - Ship Hàng Nhanh
-
Diễn đàn CADViet
-
Download Phần Mở Rộng VBA Cho AutoCAD 2010 2011 2012 2013 ...
-
Auto Cad Vba - SlideShare
-
AutoCAD VBA Module (V7.1) For AutoCAD 2018 Family (64-bit)
-
AutoCAD.Net - Hãy để VBA Yên Nghỉ - KetcauSoft
-
[PDF] Phat-trien-AutoCAD-bang-ActiveX-VBA-.pdf
-
Bài Học Cơ Bản Về Lập Trình VBA Trong Cad
-
Cadextools-Vba Cho Autocad-Excel - Tạo Danh Mục Bản Vẽ Tự động