Đến nội dung


Hình ảnh
- - - - -

xin lisp san nền


  • Please log in to reply
33 replies to this topic

#1 chuongduong

chuongduong

    Chưa sử dụng CAD

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

Đã gửi 20 May 2007 - 10:04 AM

Vừa rồi download một lisp san nền khá hay nhưng chỉ tính cho ô lưới 20m x 20m, tôi là thành viên mới , mong các anh viết cho tôi một lisp san nền tính toán cho ô lưới có diện tích bất kỳ
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 20 May 2007 - 10:33 AM

Bạn có thể upload file lisp tính với ô lưới 20x20m lên diễn đàn được không?

Từ đó mọi người sẽ hiệu chỉnh giúp bạn. Vừa đúng ý, vừa đỡ mất công!
  • 0

#3 chuongduong

chuongduong

    Chưa sử dụng CAD

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

Đã gửi 23 May 2007 - 10:17 AM

Vừa rồi download một lisp san nền khá hay nhưng chỉ tính cho ô lưới 20m x 20m, tôi là thành viên mới , mong các anh viết cho tôi một lisp san nền tính toán cho ô lưới có diện tích bất kỳ

file lisp san nền đó tôi lấy trong diễn đàn do anh boxwman viết , anh xem có thể chỉnh sủa lại được không, cảm ơn anh nhiều
  • 0

#4 bowxman

bowxman

    biết vẽ pline

  • Members
  • PipPip
  • 69 Bài viết
Điểm đánh giá: 20 (tàm tạm)

Đã gửi 05 January 2008 - 06:43 AM

file lisp san nền đó tôi lấy trong diễn đàn do anh boxwman viết , anh xem có thể chỉnh sủa lại được không, cảm ơn anh nhiều

Lâu quá mới vào lại diễn đàn vì bận việc nhà.
Không bết bạn có cần nữa ko? Chương trình này chạy cho ô lưới bất kỳ mà
  • 0

#5 dnhqs

dnhqs

    biết vẽ ellipse

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

Đã gửi 22 January 2008 - 07:24 AM

Lâu quá mới vào lại diễn đàn vì bận việc nhà.
Không bết bạn có cần nữa ko? Chương trình này chạy cho ô lưới bất kỳ mà

hồi mới mò lisp mình có viết lisp san nền mình nghĩ là chịu lắm để đó mình gửi cho
để ông hoanh nghiên cứu chuyện lớn
  • 0

#6 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 22 January 2008 - 08:25 AM

hồi mới mò lisp mình có viết lisp san nền mình nghĩ là chịu lắm để đó mình gửi cho
để ông hoanh nghiên cứu chuyện lớn

Theo em kết quả của lisp san nền hay gặp cái điều như sau:
do cách tính là trung bình các góc dương (cho phần đào), trung bình các góc âm (cho phần đắp) cho nên:
+Với những chỗ vừa đào vừa đắp thì kết quả sẽ không chính xác (hoặc tương đối cxác)
+Với những ô lưới, đặc biệt, ví dụ hình bát úp chẳng hạn, 4 điểm ở nút lưới rõ ràng là âm, nhưng ở giữa ô lưới thì rõ ràng là đào
Bọn em trên này, do gặp nhiều địa hình (san gạt đồi núi) cho nên thấy nhiều trường hợp tương tự trên
Kính mong các anh xem xet, đưa ra code hợplý!
Trân thành cảm ơn!
  • 1
Hãy ước cho trọn 1 ước mơ!

#7 bowxman

bowxman

    biết vẽ pline

  • Members
  • PipPip
  • 69 Bài viết
Điểm đánh giá: 20 (tàm tạm)

Đã gửi 16 February 2008 - 02:36 PM

http://www.cadviet.c...iles/SANNEN.rar
  • 3

#8 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 17 February 2008 - 05:26 PM

http://www.cadviet.com/upfiles/SANNEN.rar

Cám ơn bowxman về lisp san nền, nhưng xin đề xuất thêm là sau khi tính khối lượng từng ô lưới, lại phải cộng bằng tay thì gay quá, Bác có thể phát triển lisp trên thêm nội dung sau:
Sau khi tính diện tích từng ô xong, dùng lệnh để cộng khối lượng theo nhóm đào và đắp(pick chọn text khối khối lượng mỗi hàng), sau cùng là tính tổng khối lượng đào, đắp.
  • 0

#9 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 20 February 2008 - 03:50 PM

Cám ơn bowxman về lisp san nền, nhưng xin đề xuất thêm là sau khi tính khối lượng từng ô lưới, lại phải cộng bằng tay thì gay quá, Bác có thể phát triển lisp trên thêm nội dung sau:
Sau khi tính diện tích từng ô xong, dùng lệnh để cộng khối lượng theo nhóm đào và đắp(pick chọn text khối khối lượng mỗi hàng), sau cùng là tính tổng khối lượng đào, đắp.

cad 2007 có chức năng này mà
Lệnh eattext, tìm hiểu đi nhé
  • 2
Hãy ước cho trọn 1 ước mơ!

#10 mitmit

mitmit

    Chưa sử dụng CAD

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

Đã gửi 12 March 2008 - 10:05 AM

A Hùng ơi. A có làm về san nền ko?. A có thể cho lip về san nền và hướng dẫn cụ thể cho em được không? . Em là ks ctn, chưa bao giờ học về san nền bây giờ mới mày mò tìm hiểu. A giúp em nhé. Mail của em là :mitmit1311@yahoo.com. A thử xem phầm mềm em down về thế nào, và chỉ giúp em với. E mày mò mãi mà nó cứ bị lỗi khi chọn vùng cần tính.
http://www.cadviet.c...iles/Sannen.txt
Cảm ơn a nhiều. <_<
  • 0

#11 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 12 March 2008 - 10:40 AM

A Hùng ơi. A có làm về san nền ko?. A có thể cho lip về san nền và hướng dẫn cụ thể cho em được không? . Em là ks ctn, chưa bao giờ học về san nền bây giờ mới mày mò tìm hiểu. A giúp em nhé. Mail của em là :mitmit1311@yahoo.com. A thử xem phầm mềm em down về thế nào, và chỉ giúp em với. E mày mò mãi mà nó cứ bị lỗi khi chọn vùng cần tính.
<a href="http://www.cadviet.com/upfiles/Sannen.txt" target="_blank">http://www.cadviet.com/upfiles/Sannen.txt</a>
Cảm ơn a nhiều. <_<


*** link đã bị xóa ***
Bưóc 1: Copy cái file KL.dwg vào suport trong dưòng dẫn:
C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2007\R17.0\enu\Support
step 2: load cai MHPro.vlx
step 3: đánh lệnh SNMH trơc khi tạo 1 bài toán san nền
step4: vẽ 1 ô lwới bất kỳ: tôi hay vẽ dạng 5x5m.
Step5: tại các mắt lưới, là giao điểm 2 dwơngnf thẳng, dùng lênh LSN để tạo cao độ twj nhiên, cao độ thiếtt kế, và lần luợt tạo ở 4 góc của luới, hay chỗ mặt lưới khac
Step6: dùng lênh KL để kích vào các cao độ tự nhiên, thiết kế ở 4 góc và chỉ điểm vào giữa, là ra khối lượng của ô lưới đó,
làm lại với các ô khác
Step7: dùng lênh eattext và next, next. và tổng
đơn giản quá!
Trong phần mền tiện ích MHPro10.10 tôi đã đề cập vấn đè này, mà chẳng bạn nào quan tâm!
Bây giờ có phầm nêm DH gì ddó làm cho san nền nhwng mà tới 500USD, đắt qúa
Các bạn hãy dùng cái này!


Có 1 file excel bạn hãy nghin cưu đi, nó tự vẽ cho bạn đấy! nhưng mà chi tiết thì cả 1 vấn đề nan giải, bạn hãy nghin cưu đi!
Với luới san nền khác bạn dùng lênh refedit gì đó để điều chỉnh độ to nhỏ của vòng tròn khối luợng, và chiều cao chữ>
có gì khó hiểu. qua điện thoại 0977.69.1102 vào lúc VIettel không khuyến mại cuộc gọi!
Công việc cuối của bạn là ấn vào nút THANHS đi chứ còn gì nữa!
  • 11
Hãy ước cho trọn 1 ước mơ!

#12 ngocvan

ngocvan

    biết vẽ polygon

  • Members
  • PipPip
  • 71 Bài viết
Điểm đánh giá: 13 (tàm tạm)

Đã gửi 31 March 2008 - 11:53 PM

http://www.cadviet.com/upfiles/SANNEN.rar

Chương trình khá hay, sử dụng hơi phức tạp, có các lệnh sau
ns : nội suy các cao độ hiện trạng
dm : có cao độ đường đồng mức, nội suy cao độ thiết kế về ô lưới
kl : tính khối lượng đào đắp, có ranh giới đào đắp riêng biệt
sum : cộng các số
tl : tính kl taluy, có ranh giới bờ đắp
Còn các lệnh hiệu chỉnh gì nữa mong anh cho biết thêm!
  • 0

#13 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 01 April 2008 - 10:52 AM

Chương trình khá hay, sử dụng hơi phức tạp, có các lệnh sau
ns : nội suy các cao độ hiện trạng
dm : có cao độ đường đồng mức, nội suy cao độ thiết kế về ô lưới
kl : tính khối lượng đào đắp, có ranh giới đào đắp riêng biệt
sum : cộng các số
tl : tính kl taluy, có ranh giới bờ đắp
Còn các lệnh hiệu chỉnh gì nữa mong anh cho biết thêm!

Bác nào đã dùng "thạo" lisp này, chỉ cách thực hiện cho mình với, trình tự xuyên suốt các bước từ số liệu đầu vào cho đến khi có tổng khối lượng. Mình down về nhưng loay hoay mãi với cái bản vẽ mẫu và lệnh kl và chấm hết, không biết các lệnh khác sử dụng "làm răng"
  • 0

#14 ngocvan

ngocvan

    biết vẽ polygon

  • Members
  • PipPip
  • 71 Bài viết
Điểm đánh giá: 13 (tàm tạm)

Đã gửi 02 April 2008 - 11:30 PM

Bác nào đã dùng "thạo" lisp này, chỉ cách thực hiện cho mình với, trình tự xuyên suốt các bước từ số liệu đầu vào cho đến khi có tổng khối lượng. Mình down về nhưng loay hoay mãi với cái bản vẽ mẫu và lệnh kl và chấm hết, không biết các lệnh khác sử dụng "làm răng"

Tác giả viết để sử dụng riêng nên khó xài, mình đã thử sử dụng, Thấy hơi giống chương trình ở cơ quan mình, nhưng hay hơn tí
Trước tiên, vẽ ô lưới san nền, kích thước tùy ý, ví dụ 5m x 5m hoặc 10m x 10m ... 20m x 20m
Copy các block cao độ mốc vào các điểm của ô lưới, nên cho các giá trị =0 trước khi copy để tiện việc quản lý, hình như tác giả có lệnh gì đó để chèn vào ô lưới nhưng mình chưa tìm ra.
Vẽ các đường đồng mức thiết kế, (chỉ cần đường đầu và cuối) có text ghi giá trị cao độ
Đánh lệnh "dm", chọn các block cao độ, chọn dường dm đầu, chọn cao độ của nó, chọn dường dm cuối, chọn cao độ của nó, -> các cao độ thiết kế đã xong.
Bây giờ đến nội suy các cao độ hiện trạng, đánh lệnh "ns" chọn các text (dtext) cao độ hiện trạng xung quanh điểm bạn cần nội suy, thường là 3 điểm, sau đó chọn block cao độ tại điểm cần nội suy -> xong cao độ ht.
Tính khối lượng , một ô lưới có thể có 3,4 hoặc 5... điểm, ở đây mình ví dụ ô lưới bình thường có 4 điểm, đánh lệnh "kl", chọn lần lượt các điểm theo chiều, sau đó chọn điểm để ghi giá trị khối lượng (hơi thủ công) nhưng chính xác với các ô lưới <= 4 điểm, hay ở chổ 1 ô lưới có trường hợp có tới 2 ranh giới đào đắp.
Lệnh "sum" công các text trong 1 layer.
  • 3

#15 khoabk

khoabk

    biết pan

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

Đã gửi 05 April 2008 - 12:49 PM

Tác giả viết để sử dụng riêng nên khó xài, mình đã thử sử dụng, Thấy hơi giống chương trình ở cơ quan mình, nhưng hay hơn tí
Trước tiên, vẽ ô lưới san nền, kích thước tùy ý, ví dụ 5m x 5m hoặc 10m x 10m ... 20m x 20m
Copy các block cao độ mốc vào các điểm của ô lưới, nên cho các giá trị =0 trước khi copy để tiện việc quản lý, hình như tác giả có lệnh gì đó để chèn vào ô lưới nhưng mình chưa tìm ra.
Vẽ các đường đồng mức thiết kế, (chỉ cần đường đầu và cuối) có text ghi giá trị cao độ
Đánh lệnh "dm", chọn các block cao độ, chọn dường dm đầu, chọn cao độ của nó, chọn dường dm cuối, chọn cao độ của nó, -> các cao độ thiết kế đã xong.
Bây giờ đến nội suy các cao độ hiện trạng, đánh lệnh "ns" chọn các text (dtext) cao độ hiện trạng xung quanh điểm bạn cần nội suy, thường là 3 điểm, sau đó chọn block cao độ tại điểm cần nội suy -> xong cao độ ht.
Tính khối lượng , một ô lưới có thể có 3,4 hoặc 5... điểm, ở đây mình ví dụ ô lưới bình thường có 4 điểm, đánh lệnh "kl", chọn lần lượt các điểm theo chiều, sau đó chọn điểm để ghi giá trị khối lượng (hơi thủ công) nhưng chính xác với các ô lưới <= 4 điểm, hay ở chổ 1 ô lưới có trường hợp có tới 2 ranh giới đào đắp.
Lệnh "sum" công các text trong 1 layer.

Thanks!
  • 0

#16 thangkho

thangkho

    biết vẽ line

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

Đã gửi 08 August 2008 - 08:29 PM

Vẽ các đường đồng mức thiết kế, (chỉ cần đường đầu và cuối) có text ghi giá trị cao độ
Đánh lệnh "dm", chọn các block cao độ, chọn dường dm đầu, chọn cao độ của nó, chọn dường dm cuối, chọn cao độ của nó, -> các cao độ thiết kế đã xong.

em làm tới bước "chọn cao độ của nó" thì bị lỗi báo là:
(Chon duong dong muc thiet ke 1:
Chon text cua no: ; error: bad argument type: consp nil )
Mong các anh chỉ giúp.
  • 0

#17 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 09 August 2008 - 06:20 AM

em làm tới bước "chọn cao độ của nó" thì bị lỗi báo là:
(Chon duong dong muc thiet ke 1:
Chon text cua no: ; error: bad argument type: consp nil )
Mong các anh chỉ giúp.

Bạn chú ý, các cao độ phải là text mới được, không phải Mtext. Chúc bạn thành công
  • 0

#18 smilingman82

smilingman82

    biết vẽ arc

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

Đã gửi 09 August 2008 - 11:43 PM

*** link đã bị xóa ***
Bưóc 1: Copy cái file KL.dwg vào suport trong dưòng dẫn:
C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2007\R17.0\enu\Support
step 2: load cai MHPro.vlx
step 3: đánh lệnh SNMH trơc khi tạo 1 bài toán san nền
step4: vẽ 1 ô lwới bất kỳ: tôi hay vẽ dạng 5x5m.
Step5: tại các mắt lưới, là giao điểm 2 dwơngnf thẳng, dùng lênh LSN để tạo cao độ twj nhiên, cao độ thiếtt kế, và lần luợt tạo ở 4 góc của luới, hay chỗ mặt lưới khac
Step6: dùng lênh KL để kích vào các cao độ tự nhiên, thiết kế ở 4 góc và chỉ điểm vào giữa, là ra khối lượng của ô lưới đó,
làm lại với các ô khác
Step7: dùng lênh eattext và next, next. và tổng
đơn giản quá!
Trong phần mền tiện ích MHPro10.10 tôi đã đề cập vấn đè này, mà chẳng bạn nào quan tâm!
Bây giờ có phầm nêm DH gì ddó làm cho san nền nhwng mà tới 500USD, đắt qúa
Các bạn hãy dùng cái này!


Có 1 file excel bạn hãy nghin cưu đi, nó tự vẽ cho bạn đấy! nhưng mà chi tiết thì cả 1 vấn đề nan giải, bạn hãy nghin cưu đi!
Với luới san nền khác bạn dùng lênh refedit gì đó để điều chỉnh độ to nhỏ của vòng tròn khối luợng, và chiều cao chữ>
có gì khó hiểu. qua điện thoại 0977.69.1102 vào lúc VIettel không khuyến mại cuộc gọi!
Công việc cuối của bạn là ấn vào nút THANHS đi chứ còn gì nữa!

bác Hùng có thể cho tớ link phần mềm của bác đ ko . tớ tìm trên diễn đàn mà ko thấy .........hôm nay thủ gọi cho bác theo SĐT trên nhưng k đ ..bác có thể nói rõ hơn veef nguyên tắc tính kl san nền đ k ....theo lisp của bác hoành viết thì là lấy cao độ trung bình tại trọng tâm ô lưới nhân với diện tích một ô >>>>> còn theo lisp của bác BOWXMAN thì như thế nào (nguyên tắc và thuật toán ) nếu bác BOWSMAN wa đây thì trả lời lun hộ nhé ...tớ mới bắt đầu nghiên cúu món này nên mún hiểu thêm 1 tí .....thank
  • 0

#19 mr_khanhpham

mr_khanhpham

    Chưa sử dụng CAD

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

Đã gửi 10 August 2008 - 01:47 AM

bác có thể vào trang kysudothi.com phần diễn đàn để download lisp của bác Sáu về san nền theo lưới ô vuông rất hay!
  • 0

#20 smilingman82

smilingman82

    biết vẽ arc

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

Đã gửi 10 August 2008 - 02:06 AM

cám ơn bác
  • 0