PDA

View Full Version : Lisp đo vẽ bản đồ


HieLa
07-04-2010, 06:41 PM
Phần mềm phun điểm. Dùng cho máy toàn đạc .

http://www.4shared.com/file/hVoR6RNV/Vbd_4.html



Đây là phần mềm dùng để giải điểm khi đo vẽ bản đồ .
Lệnh của chương trình là : vbd
Sau khi giải nén bạn copy files Vebinhdo.DCL dán vào đường dẫn thư viện AutoCad thường là :C:\Program files\AutoCad 2010\support.
Các files còn lại bạn để Thư mục bất kỳ . Khi chạy bạn tải files Vbd_td.pas từ Tools\Load Application của AutoCad .

Dữ liệu được ghi trên files Excel . Bạn chú ý để Ô hiên hành ở ô A1 .Nếu không chương trình sẽ báo lỗi .
Lần đầu chạy CT chương trình sẽ tự động tìm phiên bản Excel cài trên máy .Trong quá trình sử dụng nếu bạn thay đổi phiên bản Excel bạn gõ lệnh: Ex và chọn lại cho phù hợp .

Nhập dữ liệu

Dữ liệu được nhập và chạy trực tiếp trên Excel gồm : Số thứ tự , toạ độ X , Toạ độ Y và Z tiếp đến là ô dùng để ghi chú và tiếp theo là các ô dùng để ghi nối điểm . Mỗi hàng Excel là một điểm .(Xem them trong files mẫu .)

Cài đặt AutoCAD

Trong Autocad chọn:
Tools \\ AutoLISP \\ VisualLISP Editor để đến màn hình Visua LISP for AutoCAD trong màn hình này chọn :
Tools \\ Environment Options \\ General Options… để đến hộp thoại General Options
.Trong thẻ General , mục : SETQ to protected symbols
chọn :Transparent .

http://i947.photobucket.com/albums/ad315/LaHien/Caida7AutoCad.jpg
Lưu ý : Mỗi khi cài đặt lại AutoCad Phải chọn lại mục này
- Nếu không làm như trên Acad chỉ cho bạn chạy 1 lân duy nhất

Sử dụng nối điểm :

Files mẫu về nhâp dữ liệu :

http://www.4shared.com/document/mXcX31oz/HUONGDAN2.html

Có 2 cách để bạn thực hiện nối điểm
Cách 1
Muốn nối điểm bạn phải khai báo trên files Excel . Tại 1 điểm trên files dữ liệu bạn có thể khai báo nối với tất cả các điểm phía trước nó chỉ cần ghi số thứ tự điểm vào ô ngay phía sau ô ghi chú (Bắt đầu từ cột F) và cứ thế bạn ghi theo hàng mỗi ô là một điểm . Thứ tự điểm chính là thứ tự hàng của bảng tính Excel . Trong files mẫu tôi ghi nối với 3 điểm có STT là : 20 ,40, 60 .
Lưu ý : Bạn không thể nối với các điểm phía sau nó .

Cách 2
Sau khi nhập dữ liệu song bạn khai báo trình tự nối điểm ở những hàng kế tiếp (bỏ cách 1 hàng) , cũng là các điểm có STT trong bảng Excel trên cùng một hang các điểm sẽ nối với nhau thành đường Pline . Số diểm và số đường là bất kỳ .

Đây là files kết quả sau khi chạy chương trình :

http://www.4shared.com/photo/UlrzD5Os/Drawing1.html

Có nhiều vấn đề tôi không thể viết hết trong một bài nếu có gì khó khăn bạn cứ viết bài tôi sẽ hướng dẫn thêm. Rất mong nhận được ý kiến góp ý xây dựng cuả các bạn .Thanks !
Chúc bạn thàn công !

HieLa
07-05-2010, 01:45 PM
Phần mềm phun điểm. Hướng dẫn sử dụng

Hộp thoại chính

http://i947.photobucket.com/albums/ad315/LaHien/Vbttd_chinh.jpg
Bạn chọn tỷ lệ vẽ và kích OK là chạy .]
Trong đó : VK : Vẽ khung BĐ
TT : Hiện Số TT
KC : Chiều cao Text
D1, D2 : chưa viết mã nguồn

http://i947.photobucket.com/albums/ad315/LaHien/nhaplieuexcel.jpg
Tiếp đến một hôp thoại yêu cầu bạn mở files dữ liệu , bạn kích chọn đường dẫn thư mục đến files Excel ghi dũ liệu (chính là files mãu trong bài trên)

http://i947.photobucket.com/albums/ad315/LaHien/Tamdung.jpg

Một hộp thoại AutoCad bảo bạn tạm dừng CT để kiểm tra files nhập liệu , bạn đừng kích OK mà chuyển qua kiểm tra files Excel xem có đúng là files cần làm hay không , Mặc định Excel để ô hiện hành là ô A1 bạn KT lại và làm điều đó .(Xem hình dưới). Làm song kích OK hộp thoại trên để tiếp tục

http://i947.photobucket.com/albums/ad315/LaHien/Ohienhanh.jpg

Nếu bạn không để ô hiện hành là A1 thì CT sẽ không chạy một hộp thoại thong báo lỗi sảy ra . Lúc này bạn phải dừng CT và kích ô A1 và khởi động lại CT . CT sẽ không yêu cầu bạn mở Excell nữa .Bây giờ bạn chỉ việc ngồi chờ cho đến khi CT chạy song

Phần mềm này không đòi fons chữ riêng ,nó sẽ sử dụng fons chữ hiện hành trên máy bạn

giacmohoa
07-05-2010, 04:08 PM
Cái này thấy rất hay nhưng chưa có dịp dùng vì mình chưa khi nào vẽ bình đồ cả. Cái này ưu tiên cho chuyên ngành giao thông, thủy lợi, dân dụng( san nền)

HieLa
07-06-2010, 06:43 AM
Cái này thấy rất hay nhưng chưa có dịp dùng vì mình chưa khi nào vẽ bình đồ cả. Cái này ưu tiên cho chuyên ngành giao thông, thủy lợi, dân dụng( san nền)
Đo vẽ bản đồ là công việc rất nhiều ngành cần dùng đến. Trong nghành xây dụng thì kiến trúc quy hoạch đô thị ,cũng phải cần đến bản đồ . Đặc biệt là ngành điạ chính cần đo vẽ bản đồ để quản lý đất đai . Khi bạn thiết kế một căn nhà bạn phải biết khu đất nằm ở đâu kích thước chiều dài chiều rộng là bao nhiêu ? Tứ cận như thế nào . Điều kiện về điạ hình điạ mạo và đặc biệt là hướng cuả căn nhà . Nếu bạn cần bản vẽ thiết kế bố trí tổng thể để định vị công trình và quản lý cốt móng cốt nền vv ... Phần mềm này có thể giúp bạn làm điều đó . Công việc này là chuyên môn cuả các bạn làm nghề trắc điạ . Nếu bạn là người chủ trì một dự án lớn bạn sẽ quan tâm đến nó nhiều hơn. Thanks !

ThanhTrong309
12-09-2011, 09:23 PM
Anh LavanHien oi, sao e dowload lisp ve khong duoc,co gi e load len lai cho e voi nha
thank a nhieu

HieLa
12-10-2011, 09:56 AM
Anh LavanHien oi, sao e dowload lisp ve khong duoc,co gi e load len lai cho e voi nha
thank a nhieu
Mạng nó bị trục trặc mình ko tải lên tải xuống được. Bạn cho địa chỉ mail mình gửi pm qua cho. khi nào Up lên được mình sẽ sủa link trên diễn đàn.