Mình muốn xuất tọa độ của 1 loạt các điểm (có tên, tọa độ X, Y) sang AutoCAD và ngược lại thì làm thế nào nhỉ ?
Để có thể điều khiển AutoCAD trong Excel, lấy dữ liệu từ Excel sang AutoCAD, cần tạo đối Application chứa ứng dụng AutoCAD và biết cách sử dụng các đối tượng của ACAD như ThisDrawing, Modelspace.... Để thực hiện được việc này, cần phải thực hiện các bước sau: 1 Tham chiếu đến với thư viện mở rộng của chương trình AutoCAD. 2 Viết mã lệnh thực hiện việc khởi động chương
trình AutoCAD (tạo đối tượng Application của AutoCAD). Dưới đây sẽ trình bày cách thức khởi động chương trình AutoCAD từ ứng dụng Excel. Tham chiếu thư viện mở rộng của chương trình AutoCAD 1 Khởi động chương trình Excel, Khởi động VBAIDE trong AutoCAD bằng cách nhấn tổ hợp phím ALT+F11. , chọn trình đơn Tools > References… để hiển thị hộp thoại References dùng để tham chiếu đến thư viện mở rộng. 2 Trong danh sách các thư viện có sẵn, chọn AutoCAD xxxx
Object Library (xxxx là phiên bản của AutoCad được cài trên máy) ð Chọn OK. Như vậy là dự án VB đã có tham chiếu đến thư viện mở rộng của AutoCAD, nghĩa là người lập trình có thể truy cập đến mô hình đối tượng của AutoCAD ngay từ bên trong Visual Basic. 3 Trong Menu, chọn trình đơn Project ð Add Module để tạo mới một module chuẩn. 4 Trong cửa sổ mã lệnh của module chuẩn, nhập đoạn mã lệnh dùng để khởi động chương trình
AutoCAD như sau: Sub ConnectToAutoCAD() 5 Thực thi thủ tục: ConnectToAutoCAD như trên, chương trình AutoCAD sẽ được khởi động. Chúc bạn thành công!
Mình muốn xuất tọa độ của 1 loạt các điểm (có tên, tọa độ X, Y) sang AutoCAD và ngược lại thì làm thế nào nhỉ ? Lấy tọa tên, độ điểm của các ô trong Excel và vẽ lên AutoCad, viết Code từ VBA Excel: Giả sử tôi có 1 file Excel có số liệu như sau A B C D TRong đó cột thứ nhất là tên các điểm, cột thứ 2, 3, 4 lần lượt là tọa độ X,Y,Z của điểm tương ứng. Ta có thể viết như sau để điều khiển Cad vẽ ra các điểm này Sub ExporttoCad() Set Cad = GetObject("C:\A.dwg") '(Coi nhu da co 1 file
A.dwg ngoài ổ C) End Sub
Bạn Chạy file bày xem nhé Vi du dieu khien cad.xls 18 KB · Đọc: 2,898
Cám ơn các bạn. VeSangACAD.zip 89.3 KB · Đọc: 2,295 Lần chỉnh sửa cuối: 12/7/08
Cám ơn các bạn. Sửa trong Mã:
Sau đó thêm hàm này Mã:
Riêng chữ ơ bị lỗi vì mã của nó trùng với mã điều khiển nào đó Lần chỉnh sửa cuối: 23/1/09
Em có bảng toạ độ các điểm trong một file excel. Em muốn vẽ các điểm này trên cad thì làm thế nào. Có anh chị nào biết chỉ giúp em với. Em có đọc một và hướng dẫn nhưng vẫn chưa hiểu.(Trong bài viết trên của bạn PMXD có hướng dẫn viết đoạn mã, nhưng viết vào đâu và sau đó làm gì nữa.)
Lấy tọa tên, độ điểm của các ô trong Excel và vẽ lên AutoCad, viết Code từ VBA Excel: Giả sử tôi có 1 file Excel có số liệu như sau A B C D TRong đó cột thứ nhất là tên các điểm, cột thứ 2, 3, 4 lần lượt là tọa độ X,Y,Z của điểm tương ứng. Ta có thể viết như sau để điều khiển Cad vẽ ra các điểm này Sub ExporttoCad() Set Cad = GetObject("C:\A.dwg") '(Coi nhu da co 1 file A.dwg ngoài ổ C) End Sub Bạn có thể chỉ cụ thể bài này được k? thanks
vấn đề này rất hay, nhưng hiện nay mình chẳng biết tí gì về Visual Basic cả,nếu ai có tài liệu hay hướng dẫn nào thật đơn giản, các bạn làm ơn gửi qua mail
Kinh nghiệm nho nhỏ, chỉ cần copy và paste vào trong cad thôi:
Bạn sài thử cái này xem. File Excel lưu tùy ý miễn nhớ đường dẫn. Tien ich cho trac dia.rar 237.3 KB
· Đọc: 2,188
xuất tọa độ từ exel sang cad Em có một phai dữ liệu trong exel nhờ các anh chị chuyển hộ sang cad hộ em với, đúng theo tọa độ đã có ở trong exel xuat tu exel sang cad.rar 92.8 KB · Đọc: 489 Lần chỉnh sửa cuối: 16/1/13
Cảm ơn bạn "tiện ích cho trắc địa" đúng là cái mình đang cần, nhưng bạn có thể sửa lại cho mình chút ít nữa được không. trong tiện ích load điểm, cột nhập tên điểm chuyển thành cột họ và tên có được không. vì mình nhập số thứ tự vào thì đúng nhưng khi nhập họ và tên người load vào cad lại không đúng nữa. Minh gửi phai mẫu bạn giúp mình nhé, minh đang rất cần nó xin cảm ơn nhiều mau.rar 38.7 KB · Đọc: 231
Có ai không? giúp mình với.............
Mình thật sự không hiểu "van_k49" định làm cái gì. Nếu bạn là dân trắc địa thì dùng phần mềm của Hài hòa (HS, TÔPO) hoặc các phần mềm khác tương tự đi. Con nếu không phải hãy hỏi dân trắc địa là xong ngay.
giúp mình dòng code này với ??? Private Sub CBViDu_Change() End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim bEnableEvents As Boolean If Target.Column = 2 Then Dim i As Integer Target.Interior.ColorIndex = 4 cảm ơn các bạn.
Bạn sài thử cái này xem. File Excel lưu tùy ý miễn nhớ đường dẫn. bạn cho mình hỏi cách dùng tiện ích như thế nào.bạn hướng dẫn cụ thể giúp mình với nhé.cản ơn bạn rất nhiều
Minh download ve nhung chua biet cach su dung ban huong dan chi tiet dc ko ah
Báo bảng có 3 cột là sao bạn. |