Chuyển đến nội dung
Diễn đàn CADViet
ntduy1988

Lisp vẽ cắt ngang kênh mương

Bởi ntduy1988 , trong AutoLisp

Các bài được khuyến nghị

ntduy1988    11

ntduy1988
Đã đăng

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

 

Link download:

- File Lisp (VLX):  http://www.mediafire.com/download/1t0xr4z6kzg04ip/CN_CN2_CD_cat_doc,_ngang.VLX

 

- Text mẫu để cắt ngang hiện trạng: http://download1255.mediafire.com/uar2reider4g/obip26ar1eesg18/File+text+Cat+ngang+mau.txt  

- Text mẫu vẽ cắt dọc thiết kế: http://download643.mediafire.com/rvcvm9hn2m0g/ow3l5bxxx83qd6o/File+text+Cat+doc+thiet+ke+mau.txt

- Text mẫu vẽ cắt dọc hiện trạng: http://download650.mediafire.com/ebv2zkl17kdg/c8ixdirx7ta9zo8/File+text+Cat+doc+hien+trang+mau.txt

- Hướng dẫn: http://download939.mediafire.com/hrth7a3m37sg/m1s541p3t67347s/Huong+dan+su+dung.doc  

             

- Kết quả trắc dọc:   http://www.mediafire.com/download/pbnehv2s8f81oc2/Ket_qua_trac_doc.dwg

- Kết quả trắc ngang: http://www.mediafire.com/download/c964z26wnnk7o1d/Ket_qua_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

  • Like 1
  • Vote tăng 2

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

ketxu    2.984

ketxu
Đã đăng

Cám ơn bạn đã chia sẻ. Việc dùng quá nhiều command trong code khiến chạy tương đối lâu. Hy vọng bạn tiếp tục phát triển :)

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thanhduan2470    1

thanhduan2470
Đã đăng

Cám ơn bạn đã chia sẻ. Việc dùng quá nhiều command trong code khiến chạy tương đối lâu. Hy vọng bạn tiếp tục phát triển :)

Không ngờ Ket có phần mềm dịch được file  .vlx :unsure:

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

ThuHuyen84    0

ThuHuyen84
Đã đăng

Cảm ơn bạn ntduy1988 đã chia sẻ. Quả thực file vẽ MCN này rất hữu ích với mình. Tuy nhiên, mình gặp 1 chút vấn đề khi vẽ với tỷ lệ 1/1000. Đó là kích thuoc của text lúc này khá lớn so với các đuòng gióng. Bạn có thể chỉnh sửa file để khi vẽ với TL 1/1000 chiều cao text là 0,2 và khoảng cách giữa các dòng là 0,7 không?

Cảm ơn bạn rất nhiều!

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

trinhngoctri    0

trinhngoctri
Đã đăng

ntduy1988:

- cn của bạn lấy cao độ thấp nhất làm cọc tim. ví dụ mình cần vẽ 1 đoạn kênh bị bồi lấp (kênh mới) thì cọc tim không ở vị trí tim kênh.

- mình cần bố trí cọc tim ở bờ tả (hay hữu) thì làm thế nào,

- trên file mẫu cũng không xác định được cọc tim.

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

trinhngoctri    0

trinhngoctri
Đã đăng

Lisp vẽ cắt ngang kênh mương từ file text với cấu trúc:

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

- Dòng 2: Tên cọc thứ 1 TAB Mức so sánh cao độ

- Dòng 3: Khoảng cách của cọc 1 (m)

- Dòng 4: Cao độ của cọc 1 (m)

- Dòng 5: Tên cọc thứ 2 TAB Mức so sánh cao độ

-............................

 

Ghi chú: Lisp này coi dấu chấm và dấu phẩy như nhau.

 

Link download:

- File Lisp (VLX): http://www.mediafire.com/download/kpmahabk9him5dp/CN_cat_ngang.VLX

- File text mẫu: http://www.mediafire.com/download/eg9mha9sufwrdf4/file+mau.txt

 

Lệnh: CN

- Bước 1: Nhập tỷ lệ ngang 1/:   

- Bước 2: Nhập tỷ lệ đứng 1/:

- Bước 3: Chọn số chữ số làm tròn sau dấu phẩy của khoảng cách (mặc định là 1)

- Bước 3: Chọn số chữ số làm tròn sau dấu phẩy của cao độ (mặc định là 2)

- Bước 4: Mở file text dữ liệu theo cấu trúc trên

- Chờ vài phút đến khi có bảng thông báo của lisp: Đã vẽ xong n mặt cắt

Ntduy1988 thân.

cảm ơn bạn đã chia sẻ. lisp của bạn rất hay nhưng mình chưa sử dụng được vì.

- phong chữ đưa về vismplex.shx thì nó hay hơn.

- cọc tim của cn nằm ở vị trí cao độ thấp nhất. mình cần cn thể hiện như thế nàyhttp://www.cadviet.com/upfiles/4/64998_cn.rar

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

ntduy1988    11

ntduy1988
Đã đăng

Gửi bạn  trinhngoctri:

- Về font chữ: Đúng là đặt font Times New Roman chưa đẹp lắm nhưng mình đặt font Unicode cho phổ thông, vì có những máy chưa có font như bạn nói;

- Về cọc tim: mình rất muốn đặt như bạn nhưng hiện nay mình chưa nghĩ ra cách xác định vị trí của bờ kênh nên trước mắt mình đặt ở vị trí thấp nhất :D. Điểm này thì chắc là các bạn phải sửa lại file cad thôi, chứ mình chịu. Mình sẽ gửi thêm cho các bạn lisp vẽ cắt ngang kiểu 2, lisp này cho chọn điểm bờ tả, đáy kênh, bờ hữu

 

Bạn thuhuyen: đúng là cái này mình chưa nghĩ đến, nhưng nếu sửa lisp theo ý bạn thì mất rất nhiều thời gian vì phải sửa lại hết code nên tạm thời mình chưa sửa được. Đúng là lisp này chỉ phù hợp cho  bản vẽ 1/200 trở lên thôi chứ bản vẽ tỷ lệ nhỏ quá thì chưa được. Thời gian tới mình sẽ cập nhật lại

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

xuanthuong20_5    0

xuanthuong20_5
Đã đăng

mọi người có thể chạy thử file này của mình với được không, mình chạy file ví dụ được mà khi nhập số liệu của mình vào thì nó báo lỗi kiểu số không chạy được ak....ai làm được thì hướng dẫn cho mình với nha...thanks

http://www.cadviet.com/upfiles/5/60853_catngang.txt

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Trang Tri    0

Trang Tri
Đã đăng

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

 

Link download:

- File Lisp (VLX):  http://www.mediafire.com/download/1t0xr4z6kzg04ip/CN_CN2_CD_cat_doc,_ngang.VLX

 

- Text mẫu để cắt ngang hiện trạng: http://download1255.mediafire.com/uar2reider4g/obip26ar1eesg18/File+text+Cat+ngang+mau.txt  

- Text mẫu vẽ cắt dọc thiết kế: http://download643.mediafire.com/rvcvm9hn2m0g/ow3l5bxxx83qd6o/File+text+Cat+doc+thiet+ke+mau.txt

- Text mẫu vẽ cắt dọc hiện trạng: http://download650.mediafire.com/ebv2zkl17kdg/c8ixdirx7ta9zo8/File+text+Cat+doc+hien+trang+mau.txt

- Hướng dẫn: http://download939.mediafire.com/hrth7a3m37sg/m1s541p3t67347s/Huong+dan+su+dung.doc  

             

- Kết quả trắc dọc:   http://www.mediafire.com/download/pbnehv2s8f81oc2/Ket_qua_trac_doc.dwg

- Kết quả trắc ngang: http://www.mediafire.com/download/c964z26wnnk7o1d/Ket_qua_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

cho mình hỏi còn về mặt cắt ngang bên thiết kế thì sao ạk

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

namuct6886    0

namuct6886
Đã đăng

- Text mẫu để cắt ngang hiện trạng: http://download1255.mediafire.com/uar2reider4g/obip26ar1eesg18/File+text+Cat+ngang+mau.txt  

bạn duy up lại link này giúp mình nha. link die rồi, mình đang rất cần để làm kl sửa chữa đường

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

huunhantvxdts    195

huunhantvxdts
Đã đăng
35 phút trước, namuct6886 đã nói:

- Text mẫu để cắt ngang hiện trạng: http://download1255.mediafire.com/uar2reider4g/obip26ar1eesg18/File+text+Cat+ngang+mau.txt

bạn duy up lại link này giúp mình nha. link die rồi, mình đang rất cần để làm kl sửa chữa đường

 

  • Like 1

Chia sẻ bài đăng này

Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Về Đầu Trang AutoLisp
×