Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
10 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 06 November 2014 - 10:08 AM

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 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 06 November 2014 - 11:05 AM

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 :)


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 thanhduan2470

thanhduan2470

    Chưa sử dụng CAD

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

Đã gửi 06 November 2014 - 12:20 PM

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:


  • 0

#4 ThuHuyen84

ThuHuyen84

    biết zoom

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

Đã gửi 07 November 2014 - 01:29 PM

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!


  • 0

#5 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 07 November 2014 - 03:05 PM

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.


  • 0

#6 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 08 November 2014 - 08:38 AM

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...N_cat_ngang.VLX

- File text mẫu: http://www.mediafire...f4/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.c.../4/64998_cn.rar


  • 0

#7 ntduy1988

ntduy1988

    biết vẽ arc

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

Đã gửi 10 November 2014 - 09:11 AM

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


  • 0

#8 ThuHuyen84

ThuHuyen84

    biết zoom

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

Đã gửi 11 November 2014 - 08:43 AM

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

Chúc bạn vui và diễn dàn luôn phát triển.


  • 0

#9 xuanthuong20_5

xuanthuong20_5

    Chưa sử dụng CAD

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

Đã gửi 02 December 2015 - 08:40 AM

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.c...53_catngang.txt


  • 0

#10 Trang Tri

Trang Tri

    Chưa sử dụng CAD

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

Đã gửi 08 July 2016 - 10:47 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

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


  • 0

#11 Trang Tri

Trang Tri

    Chưa sử dụng CAD

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

Đã gửi 08 July 2016 - 11:00 PM

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


  • 0