Đến nội dung


Hình ảnh
- - - - -

Lisp vẽ cắt dọc, cắt ngang từ file text


  • Please log in to reply
6 replies to this topic

#1 ntduy1988

ntduy1988

    biết vẽ arc

  • Members
  • PipPip
  • 46 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 27 November 2014 - 05:17 PM

Lisp vẽ cắt ngang, dọc kênh mương từ file text

 

Link download:

- File Lisp (VLX):  http://www.mediafire..._doc,_ngang.VLX

 

- Text mẫu để cắt ngang hiện trạng: http://download1255....t ngang mau.txt  

- Text mẫu vẽ cắt dọc thiết kế: http://download643.m...hiet ke mau.txt

- Text mẫu vẽ cắt dọc hiện trạng: http://download650.m...n trang mau.txt

- Hướng dẫn: http://download939.m...n su dung.doc  

             

- Kết quả trắc dọc:   http://www.mediafire...ua_trac_doc.dwg

- Kết quả trắc ngang: http://www.mediafire..._trac_ngang.dwg             

 

 

 

* Hướng dẫn sử dụng lisp:

- Gõ lệnh AP để apload lisp : CN CN2 CD cat doc, ngang.VLX

 

1. Vẽ cắt ngang từ file text:

 

* Cấu trúc file text cắt ngang

- Dòng 1 : Số lượng mặt cắt

- Dòng 2 : Tên mặt cắt TAB Mức so sánh (m)

- Dòng 3 : Khoảng cách của mặt cắt (m)

- Dòng 4 : Cao độ của mặt cắt (m)

- Dòng 5 : Tên mặt cắt tiếp theo TAB Mức so sánh (m)

- Dòng : ……….

 

Lưu ý: Lisp coi dấu chấm và dấu phẩy trong file text là như nhau;

          - Đơn vị ở đây tính bằng m

 

* Kiểu 1 : Lệnh : CN

- Nhập tỷ lệ ngang 1/ :

- Nhập tỷ lệ đứng 1/ :

- Nhập chiều cao chữ, nếu để mặc định thì Enter

-: Sử dụng dấu chấm hay dấu phẩy, nếu dấu chấm thì nhập vào là  . 

- Chọn file text dữ liệu cắt ngang theo cấu trúc trên

Chờ vào phút, lisp sẽ hiện lên bảng thông báo khi làm xong

 

* Kiểu 2 : Lệnh : CN2 (Cho phép chọn điểm đặt vị trí cọc tiêu, chọn bờ tả, đáy kênh, bờ hữu để xuất file text làm dữ liệu vẽ trắc dọc)

-:Nhập tỷ lệ ngang 1/ :

- Nhập tỷ lệ đứng 1/ :

- Nhập chiều cao chữ, nếu để mặc định thì Enter

- Sử dụng dấu chấm hay dấu phẩy, nếu dấu chấm thì nhập vào là  . 

- Chọn file text dữ liệu cắt ngang theo cấu trúc trên

- Chọn nơi lưu file kết quả trắc dọc

- Chọn điểm bờ tả kênh, chọn điểm đáy kênh (trong mặt cắt đã có một điểm thấp nhất, gợi ý để chọn làm điểm đáy kênh), chọn điểm bờ hữu kênh, Chọn điểm đặt cọc tiêu

Chờ vào phút, lisp sẽ hiện lên bảng thông báo khi làm xong

2. Vẽ cắt dọc từ file text:

Cấu trúc file text vẽ trắc dọc :

  • Dòng 1 : Mức so sánh Min TAB Mức so sánh Max (m)
  • Dòng 2: Tên cọc TAB Khoảng cách đến cọc tiếp theo TAB Cao độ bờ tả cũ TAB Cao độ bờ hữu cũ TAB Cao độ đáy cũ TAB Cao độ bờ tả TK TAB Cao độ bờ hữu TK TAB Cao độ đáy TK TAB Mực nước TK
  • Dòng 3: Cọc tiếp theo ….

 

Lưu ý: Lisp coi dấu chấm và dấu phẩy trong file text là như nhau;

          - Đơn vị ở đây tính bằng m

          - Nếu cao độ nào không có thì để trống, lisp sẽ tự động bỏ qua đường đó (ví dụ không có cao độ đường đáy kênh cũ trong file text thì lisp sẽ không vẽ đường đáy kênh cũ)

* : Lệnh : CD

- Nhập tỷ lệ ngang 1/ :

- Nhập tỷ lệ đứng 1/ :

- Nhập chiều cao chữ, nếu để mặc định thì Enter

-Sử dụng dấu chấm hay dấu phẩy, nếu dấu chấm thì nhập vào là  . 

- Chọn file text dữ liệu cắt dọc theo cấu trúc trên

 

Chờ vào phút, lisp sẽ hiện lên bảng thông báo khi làm xong


  • 2

#2 nhantony

nhantony

    biết vẽ line

  • Members
  • PipPip
  • 24 Bài viết
Điểm đánh giá: 6 (bình thường)

Đã gửi 01 December 2014 - 09:00 AM

Thank for share :)


  • 0

#3 newghost0000

newghost0000

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 30 January 2015 - 03:47 PM

thanks for share. cơ mà bác có thể ghi chú cụ thể hơn ở file text mẫu ko ạ


  • 0

#4 tvqthaibinh

tvqthaibinh

    biết vẽ line

  • Members
  • PipPip
  • 21 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 17 April 2015 - 11:11 AM

Anh ơi sao em làm được file text trên notepad sau đó lưu vào cad thì thấy không chạy được. Có bác nào chỉ giúp em được không ạ. Em xin cảm ơn ạ


  • 0

#5 dinhtrong1

dinhtrong1

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 16 August 2015 - 07:28 AM

Bạn ơi file text hay lỗi quá, làm thế nào bây giờ?


  • 0

#6 traiquelua

traiquelua

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 August 2015 - 01:22 PM

Cảm ơn bác .Nhưng link bị die rùi ạ. Bác check lại giúp em được không ạ


  • 0

#7 nhatducluyen

nhatducluyen

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 August 2015 - 05:55 PM

Các Bác giúp em xem có cách nào viết Lisp với mục đích như sau:

- Thứ nhất: Em có cao độ của các điểm, thứ tự các điểm chạy từ trái sang phải, từ các điểm đó dựng đường thẳng rồi nối lại với nhau được mặt cắt. Giờ có cách nào mà chạy được lisp với dữ liệu là cao độ các điểm và vị trí các điểm để ra được mặt cắt ngang.

- Thứ 2: Với các điểm nằm lộn xộn (điểm nằm cao, điểm nằm thấp) giờ có cách nào đưa các điểm đó về nằm trên một đường thẳng không ?

Các Bác giúp em vì hiện tại em làm khối lượng lớn mà toàn phải làm thủ công, cứ kéo các điểm nằm lộn xộn về nằm trên một đường thẳng, rồi từ đó vẽ chiều cao các cao độ đó, sau đó nối các điểm đầu mút của các đường thẳng vừa vẽ được mặt cắt ngang. Em cảm ơn rất nhiều


  • 0