Đến nội dung


Hình ảnh
- - - - -

Lisp phân lớp đất đắp + thống kê thép + in tự động mới viết


  • Please log in to reply
18 replies to this topic

#1 sam8xd

sam8xd

    biết vẽ line

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

Đã gửi 21 January 2015 - 11:13 AM

http://www.cadviet.c...ttkd_522015.zip

 

 

5-2-2015. Bổ sung hàm con bị thiếu cho lisp phân lớp đất đắp.

 

31-1-2015. Bổ sung lisp cắt trắc dọc và bình đồ dạng tuyến vào khung in

 

Video hướng dẫn phân lớp đất đắp

https://www.youtube....eature=youtu.bé

 

Video hướng dẫn lisp cắt trắc dọc vào khung in:

https://www.youtube....h?v=ZNs-JP_CHfQ

 

Video hướng dẫn cắt bình đồ vào khung in:

https://www.youtube....eature=youtu.be

 

Mời mọi người dùng thử và đóng góp ý kiến để hoàn thiện thêm. Nhất là lisp phân lớp.

 

 

 


  • 4

#2 sam8xd

sam8xd

    biết vẽ line

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

Đã gửi 21 January 2015 - 03:45 PM

http://www.cadviet.c...29377_httkd.zip


  • 0

#3 duyngoc

duyngoc

    biết vẽ pline

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

Đã gửi 22 January 2015 - 11:15 AM

Chưa biết thế nào, trước tiên hoan hô tấm lòng của bác " "sam8xd". cảm ơn bác rất nhiều.


  • 0

#4 bach1212

bach1212

    biết lệnh trim

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

Đã gửi 25 January 2015 - 10:28 AM

Hướng dẫn sử dụng đi bạn sam8xd? Lisp phân lớp ấy. Mình chưa hiểu cách tạo đường phân lớp như nào.


  • 0

Một môn tập luyện mang lại vô vàn lợi ích sức khỏe cho mọi người, nhiều bệnh tật nan y đều được chữa khỏi, hoàn toàn miễn phí. Hiệu quả chữa khỏi bệnh tật của nó lên đến hơn 90%.
Tài liệu tại đây: http://phapluan.org/

Rất vui được làm quen với mọi người trên facebook:
https://www.facebook...67946371&type=1

 

 


#5 sam8xd

sam8xd

    biết vẽ line

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

Đã gửi 25 January 2015 - 04:01 PM

Có hướng dẫn trong file pldd.txt ấy. Về cơ bản thì như thế này

Chương trình phân lớp đất đắp

Trình tự thực hiện: Tạo đường bao đắp --> tạo đường phân lớp --> tính diện tích --> điền thiết kế --> xuất thiết kế ra .txt

Gồm các phần sau:

1. Khai báo

KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp

2. Tạo đường bao phân lớp 

TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY

TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY

DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao

NCDDB Nâng cao độ thiết kế

DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)

TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)

3. Tạo đường phân lớp 

TDPL Tạo đường phân lớp tự động

TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu

DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp

STTDPL Sửa thứ tự đường phân lớp

4. Điền thiết kế 

DTKDPL Điền thiết kế các đường phân lớp

DTKDB Điền thiết kế các đường bao

5. Tính diện tích 

TDTPL Tính diện tích phân lớp

SDTPL Sửa lại diện tích 1 đường phân lớp

6. Xuất diện tích 

XDTPL Xuất thiết kế phân lớp

 

Chương trình phân lớp đất đắp
Trình tự thực hiện: Tạo đường bao đắp --> tạo đường phân lớp --> tính diện tích --> điền thiết kế --> xuất thiết kế ra .txt
Gồm các phần sau:
1. Khai báo
KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp
2. Tạo đường bao phân lớp
TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY
TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY
DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao
NCDDB Nâng cao độ thiết kế
DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)
TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)
3. Tạo đường phân lớp
TDPL Tạo đường phân lớp tự động
TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu
DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp
STTDPL Sửa thứ tự đường phân lớp
4. Điền thiết kế
DTKDPL Điền thiết kế các đường phân lớp
DTKDB Điền thiết kế các đường bao
5. Tính diện tích
TDTPL Tính diện tích phân lớp
SDTPL Sửa lại diện tích 1 đường phân lớp
6. Xuất diện tích
XDTPL Xuất thiết kế phân lớp
 
Chương trình phân lớp đất đắp
Trình tự thực hiện: Tạo đường bao đắp --> tạo đường phân lớp --> tính diện tích --> điền thiết kế --> xuất thiết kế ra .txt
Gồm các phần sau:
1. Khai báo
KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp
2. Tạo đường bao phân lớp
TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY
TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY
DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao
NCDDB Nâng cao độ thiết kế
DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)
TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)
3. Tạo đường phân lớp
TDPL Tạo đường phân lớp tự động
TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu
DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp
STTDPL Sửa thứ tự đường phân lớp
4. Điền thiết kế
DTKDPL Điền thiết kế các đường phân lớp
DTKDB Điền thiết kế các đường bao
5. Tính diện tích
TDTPL Tính diện tích phân lớp
SDTPL Sửa lại diện tích 1 đường phân lớp
6. Xuất diện tích
XDTPL Xuất thiết kế phân lớp
 
Chương trình phân lớp đất đắp
Trình tự thực hiện: Tạo đường bao đắp --> tạo đường phân lớp --> tính diện tích --> điền thiết kế --> xuất thiết kế ra .txt
Gồm các phần sau:
1. Khai báo
KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp
2. Tạo đường bao phân lớp
TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY
TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY
DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao
NCDDB Nâng cao độ thiết kế
DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)
TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)
3. Tạo đường phân lớp
TDPL Tạo đường phân lớp tự động
TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu
DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp
STTDPL Sửa thứ tự đường phân lớp
4. Điền thiết kế
DTKDPL Điền thiết kế các đường phân lớp
DTKDB Điền thiết kế các đường bao
5. Tính diện tích
TDTPL Tính diện tích phân lớp
SDTPL Sửa lại diện tích 1 đường phân lớp
6. Xuất diện tích
XDTPL Xuất thiết kế phân lớp
 
Chương trình phân lớp đất đắp
Trình tự thực hiện: Tạo đường bao đắp --> tạo đường phân lớp --> tính diện tích --> điền thiết kế --> xuất thiết kế ra .txt
Gồm các phần sau:
1. Khai báo
KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp
2. Tạo đường bao phân lớp
TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY
TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY
DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao
NCDDB Nâng cao độ thiết kế
DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)
TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)
3. Tạo đường phân lớp
TDPL Tạo đường phân lớp tự động
TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu
DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp
STTDPL Sửa thứ tự đường phân lớp
4. Điền thiết kế
DTKDPL Điền thiết kế các đường phân lớp
DTKDB Điền thiết kế các đường bao
5. Tính diện tích
TDTPL Tính diện tích phân lớp
SDTPL Sửa lại diện tích 1 đường phân lớp
6. Xuất diện tích
XDTPL Xuất thiết kế phân lớp
 
Chương trình phân lớp đất đắp
Trình tự thực hiện: Tạo đường bao đắp --> tạo đường phân lớp --> tính diện tích --> điền thiết kế --> xuất thiết kế ra .txt
Gồm các phần sau:
1. Khai báo
KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp
2. Tạo đường bao phân lớp
TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY
TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY
DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao
NCDDB Nâng cao độ thiết kế
DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)
TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)
3. Tạo đường phân lớp
TDPL Tạo đường phân lớp tự động
TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu
DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp
STTDPL Sửa thứ tự đường phân lớp
4. Điền thiết kế
DTKDPL Điền thiết kế các đường phân lớp
DTKDB Điền thiết kế các đường bao
5. Tính diện tích
TDTPL Tính diện tích phân lớp
SDTPL Sửa lại diện tích 1 đường phân lớp
6. Xuất diện tích
XDTPL Xuất thiết kế phân lớp
 
Chương trình phân lớp đất đắp
Trình tự thực hiện: Tạo đường bao đắp --> tạo đường phân lớp --> tính diện tích --> điền thiết kế --> xuất thiết kế ra .txt
Gồm các phần sau:
1. Khai báo
KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp
2. Tạo đường bao phân lớp
TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY
TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY
DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao
NCDDB Nâng cao độ thiết kế
DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)
TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)
3. Tạo đường phân lớp
TDPL Tạo đường phân lớp tự động
TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu
DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp
STTDPL Sửa thứ tự đường phân lớp
4. Điền thiết kế
DTKDPL Điền thiết kế các đường phân lớp
DTKDB Điền thiết kế các đường bao
5. Tính diện tích
TDTPL Tính diện tích phân lớp
SDTPL Sửa lại diện tích 1 đường phân lớp
6. Xuất diện tích
XDTPL Xuất thiết kế phân lớp
 
1. Khai báo
KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp
2. Tạo đường bao phân lớp
TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY
TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY
DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao
NCDDB Nâng cao độ thiết kế
DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)
TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)
3. Tạo đường phân lớp
TDPL Tạo đường phân lớp tự động
TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu
DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp
STTDPL Sửa thứ tự đường phân lớp
4. Điền thiết kế
DTKDPL Điền thiết kế các đường phân lớp
DTKDB Điền thiết kế các đường bao
5. Tính diện tích
TDTPL Tính diện tích phân lớp
SDTPL Sửa lại diện tích 1 đường phân lớp
6. Xuất diện tích
XDTPL Xuất thiết kế phân lớp
1. Khai báo
KBPL Khai báo phân lớp gồm: Chiều dày lớp, dốc trái, dốc phải, hướng phân lớp
2. Tạo đường bao phân lớp
TDB1 Tạo đường bao bằng cách pick như lệnh BOUNDARY
TDB2 Tạo đường bao bằng cách chọn đường biên và pick như lệnh BOUNDARY
DKDB Đăng ký đường bao từ Polyline, sửa thông tin đường bao
NCDDB Nâng cao độ thiết kế
DKDBNV Đăng ký đường bao từ thông tin của NOVA (trong đường bao phải có đối tượng NOVA)
TDBNV Tạo đường bao tự động từ trắc ngang của NOVA (file NOVA chưa xóa đối tượng ENTCOC và trắc ngang)
3. Tạo đường phân lớp
TDPL Tạo đường phân lớp tự động
TDPL2 Tạo đường phân lớp tự động theo đường phân lớp mẫu
DKPL Đăng ký đường Pline thành đường phân lớp, sửa lại đường phân lớp
STTDPL Sửa thứ tự đường phân lớp
4. Điền thiết kế
DTKDPL Điền thiết kế các đường phân lớp
DTKDB Điền thiết kế các đường bao
5. Tính diện tích
TDTPL Tính diện tích phân lớp
SDTPL Sửa lại diện tích 1 đường phân lớp
6. Xuất diện tích
XDTPL Xuất thiết kế phân lớp

  • 1

#6 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 25 January 2015 - 09:37 PM

Bạn nên tạo clip hướng dẫn thì hay hơn chứ nhìn vào đó khó hiểu quá


  • 0

#7 sam8xd

sam8xd

    biết vẽ line

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

Đã gửi 25 January 2015 - 10:01 PM

Ai đã từng làm phân lớp đọc hướng dẫn sẽ làm được ngay :D

Khi nào có thời gian mình sẽ làm clip hướng dẫn.

Mình bổ sung thêm điền diện tích từng lớp lên trắc ngang và đường bao đắp bắt buộc phải là pline kín.

 

http://www.cadviet.c...377_httkd_2.zip


  • 0

#8 zizpo_hetxang

zizpo_hetxang

    biết vẽ arc

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

Đã gửi 04 February 2015 - 04:55 PM

http://www.cadviet.c...tkd_3112015.zip

 

Mời mọi người dùng thử và đóng góp ý kiến để hoàn thiện thêm. Nhất là lisp phân lớp.

 

31-1-2015. Bổ sung lisp cắt trắc dọc và bình đồ dạng tuyến vào khung in

 

Video hướng dẫn phân lớp đất đắp

https://www.youtube....eature=youtu.bé

 

Video hướng dẫn lisp cắt trắc dọc vào khung in:

https://www.youtube....h?v=ZNs-JP_CHfQ

 

Video hướng dẫn cắt bình đồ vào khung in:

https://www.youtube....eature=youtu.be

Bạn cho mình hỏi. Quá trình tính diện tích thì báo lõi như này nhờ bạn chỉ cách khắc phục

Error:no function definition: NTH-REPLACE; error: An error has occurred inside
the *error* functionbad argument type: fixnump: "BYLAYER"


  • 0

#9 huunhantvxdts

huunhantvxdts

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 366 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 04 February 2015 - 09:05 PM

Rất hay cám ơn bạn nhiều


  • 0

#10 sam8xd

sam8xd

    biết vẽ line

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

Đã gửi 04 February 2015 - 09:33 PM

Thiếu hàm con rồi. Mai mình sửa lại cho nhé.
  • 0

#11 sam8xd

sam8xd

    biết vẽ line

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

Đã gửi 05 February 2015 - 09:29 AM

Đã bổ sung hàm con vào lisp phân lớp đất đắp rồi nhé. Các bạn down lại ở #1


  • 0

#12 namgiangduy89

namgiangduy89

    biết vẽ pline

  • Members
  • PipPip
  • 61 Bài viết
Điểm đánh giá: -19 (hơi kém)

Đã gửi 15 October 2015 - 04:03 PM

Bạn Sam8xd có lisp sắp xếp trắc ngang không cho mình xin với. cho mình hỏi lisp này chạy trên cad verson cao hơn được không bạn.


  • 0

#13 tam2tvgs

tam2tvgs

    Chưa sử dụng CAD

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

Đã gửi 18 November 2015 - 12:01 AM

Mình không add được file thư viện lên menu cad?? xin giúp đỡ


  • 0

#14 Superlong

Superlong

    biết vẽ arc

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

Đã gửi 13 March 2016 - 12:41 PM

Bạn thêm lệnh rải lớp trong vùng kín mà ko cần phải tạo đường bao trước được không vì mình gặp trường hợp độ dốc thay đổi giảm dần từ đáy lên đến đỉnh là dốc 0% nên các lớp trên phải làm thủ công , nếu có thêm lệnh rải nhanh như vậy sau đó chỉ cần tạo đường bao + định nghĩa dpl là xog còn hiện nay mình phải tạo đường bao cho vùng dưới xog rải cho vùng dưới rồi xoá đường bao đó tạo đường bao mới nếu làm nhìu m/c rất mất tg hihi xin lỗi sài chùa mà ý kiến quá trời hứa sẽ hậu tạ zô sdt bạn
  • 0

#15 joker1121

joker1121

    Chưa sử dụng CAD

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

Đã gửi 14 May 2016 - 03:04 AM

Link ở #1 chết rồi bác ơi. Bác có thể up lại cho e dc k ạ
  • 0

#16 daolinhvn

daolinhvn

    biết vẽ line

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

Đã gửi 14 May 2016 - 09:52 PM

Rất mong bác Sam8xd up lại link download của lisp Phân lớp đất đắp. Em vừa cần vừa muốn được nghiên cứu lisp này. Em xin cảm ơn!


  • 0

#17 viendinhngoc

viendinhngoc

    biết vẽ ellipse

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

Đã gửi 01 June 2016 - 03:00 PM

lisp của bạn làm thừa 1 lớp trên cùng. thường là sai lớp 1.

Lệnh 5 trước lệnh 4 ah bạn

Sao khi làm lệnh điền thiets kế toàn bằng 0??

Mỗi mục 1 2 3 4 5 chỉ dùng 1 lệnh trong đó là đủ đúng không bạn

Mong nhận hồi âm

 

4. Điền thiết kế

DTKDPL Điền thiết kế các đường phân lớp

DTKDB Điền thiết kế các đường bao

5. Tính diện tích

TDTPL Tính diện tích phân lớp

SDTPL Sửa lại diện tích 1 đường phân lớp (để sửa các đường phân lớp lisp không tạo được đường bao để tính diện tích)

DDTPL Điền diện tích phân lớp

 

 

Lệnh 5 trước lệnh 4 ah bạn. 

Mình điền toàn ra số 0. không biết tại sao

 

 

Lệnh 5 trước lệnh 4 ah bạn. 

Mình điền toàn ra số 0. không biết tại sao

 

  • 0

#18 trandangquang92

trandangquang92

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: -17 (hơi kém)

Đã gửi 02 June 2016 - 08:01 AM

bạn ơi, bạn chạy tuyến bằng phần mềm nào vậy?


  • 0

#19 vtcd09b

vtcd09b

    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 June 2016 - 11:35 AM

lsp rất hay, nhưng cho em hỏi làm thế nào để text xuất ra trong cad ở dạng 3 chữ số sau dấu phẩy dc không? em gà mấy khoản này lắm


  • 0