Đến nội dung


Hình ảnh
- - - - -

Lisp vẽ Pline vét bùn ????


  • Please log in to reply
34 replies to this topic

#21 nataca

nataca

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 712 Bài viết
Điểm đánh giá: 553 (tốt)

Đã gửi 17 June 2009 - 03:47 PM

Hix ! Như vậy thì cần j lisp hả bác Tuệ ??? Em cần là cần sau khi minh Pick chọn Pline thì mình sẽ chọn điểm bắt đầu vẽ và điểm kết thúc vẽ chứ đâu phải Vẽ 1 cái Pline khác theo Cái Pline ban đầu.???? Bác xem lại hình này nhé :
http://www.cadviet.c...es/de_bai_2.jpg

:lol2: Bác Duy và bác Tuệ không thuộc chuyên ngành nên sẽ khó hiểu. Giải thích cho các bác phải giải thích kỹ. Mình cùng dân chuyên ngành với bạn nên chỉ nói qua là mình hiểu ngay. Chỉ có điều dạo này công việc chạy đi chạy lại nhiều muốn viết giúp bạn mà chưa có thời gian viết.
  • 0

#22 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 17 June 2009 - 03:49 PM

Hix ! Như vậy thì cần j lisp hả bác Tuệ ??? Em cần là cần sau khi minh Pick chọn Pline thì mình sẽ chọn điểm bắt đầu vẽ và điểm kết thúc vẽ chứ đâu phải Vẽ 1 cái Pline khác theo Cái Pline ban đầu.???? Bác xem lại hình này nhé :
http://www.cadviet.c...es/de_bai_2.jpg

Sao bạn không nói sớm hả?
Bạn xem cái yêu cầu của bạn lúc đầu với yêu cầu này khác nhau nhiều lắm không?
Bạn xem hình vẽ bạn post đầu tiên với hình vẽ post ở bài này nó khác nhau như thế nào?
Bạn làm mất thời gian quá?
Đây là hình vẽ mà bạn đã yêu cầu ở bài viết đầu tiên
http://www.cadviet.c...iles/de_bai.jpg

Cái Lisp của Tue_NV hoàn toàn đáp ứng đủ yêu cầu của bạn đưa ra đầu tiên. Sao bạn không suy nghĩ thật kĩ khi đưa ra bài viết vậy??
Có lẽ bạn nên suy nghĩ thêm và hãy đọc kỹ, thật kỹ bài viết này
Viết yêu cầu (Request) và trả lời (Response) như thế nào?
  • 0

#23 nataca

nataca

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 712 Bài viết
Điểm đánh giá: 553 (tốt)

Đã gửi 17 June 2009 - 05:10 PM

Em đang rất cần 1 Lisp vẽ đường Pline vét bùn. Em phải chỉnh sửa bản vẽ nên rất cần lisp đó.
Đề bài: Có 3 điểm 1,2,3 yêu cầu: Khi mình đánh lệnh thì Lisp yêu cầu nhập khoảng cách vẽ Pline = b, sau đó Lisp yêu cầu Tick vào điểm đầu và điểm cuối. Nó sẽ vẽ ra 1 Pline(đường màu đỏ trong hình vẽ) chạy song song với đoạn 1-3 và cách đoạn 1-3 1 đoạn = b theo phương trục Y.
http://www.cadviet.c...iles/de_bai.jpg

Bạn thử dùng cái này xem sao. Lệnh VB
Lisp vét bùn
  • 0

#24 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 18 June 2009 - 05:14 AM

Bạn thử dùng cái này xem sao. Lệnh VB
Lisp vét bùn

Chào Nataca. Lisp của bạn viết chạy ngon lành. Nhưng chắc chưa đúng ý của hhhhgggg.
Nhìn vào hình vẽ mà hhhhgggg đã post ta thấy điểm đầu và điểm cuối được chọn nằm trên đường PLine và có thể trùng với đỉnh của PLine.
Lisp của Nataca viết chỉ đúng trong trường hợp chỉ chọn điểm đầu và điểm cuói là đỉnh của Pline mà thôi.
Phải áp dụng đúng trong trường hợp tổng quát là điểm đầu và điểm cuối là 1 điểm bất kì trên PLine đó

Chào hhhhgggg : Tue_NV đã hoàn thành đoạn Lisp nạo vét bùn này :
1. Chọn Pline
2. Chọn độ sâu vét bùn
3. Chọn điểm đầu là 1 điểm bất kì trên Pline
4. Chọn điểm cuối là 1 điểm bất kì trên Pline
5. Thực hiện công việc như ý bạn

Tue_NV chỉ đưa ra Lisp của mình chỉ khi nào bạn trả lời câu hỏi của anh Duy782006.
Mong bạn là người có trách nhiệm một chút

Tôi thật sự khó hiểu bạn. Cái lisp của bạn tue mặc dù không hỏi chọn 2 điểm nhưng lisp đã tự tìm điểm đầu và điểm cuối sau đó vẽ theo đúng y yêu cầu của bạn.
-Bạn chưa trả lời câu hỏi của tôi. Mong bạn có trách nhiệm 1 chút. Không phải ai cũng hiểu điều bạn nói đúng như cách bạn mong người ta hiểu đơn giản vì bạn quá hời hợt trong diển đạt khi đưa ra yêu cầu.


Hix ! Như vậy thì cần j lisp hả bác Tuệ ??? Em cần là cần sau khi minh Pick chọn Pline thì mình sẽ chọn điểm bắt đầu vẽ và điểm kết thúc vẽ chứ đâu phải Vẽ 1 cái Pline khác theo Cái Pline ban đầu.???? Bác xem lại hình này nhé :
http://www.cadviet.c...es/de_bai_2.jpg

Sao bạn không nói sớm hả?
Bạn xem cái yêu cầu của bạn lúc đầu với yêu cầu này khác nhau nhiều lắm không?
Bạn xem hình vẽ bạn post đầu tiên với hình vẽ post ở bài này nó khác nhau như thế nào?
Bạn làm mất thời gian quá?
Đây là hình vẽ mà bạn đã yêu cầu ở bài viết đầu tiên
http://www.cadviet.c...iles/de_bai.jpg

Cái Lisp của Tue_NV hoàn toàn đáp ứng đủ yêu cầu của bạn đưa ra đầu tiên. Sao bạn không suy nghĩ thật kĩ khi đưa ra bài viết vậy??
Có lẽ bạn nên suy nghĩ thêm và hãy đọc kỹ, thật kỹ bài viết này
Viết yêu cầu (Request) và trả lời (Response) như thế nào?


  • 0

#25 nataca

nataca

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 712 Bài viết
Điểm đánh giá: 553 (tốt)

Đã gửi 18 June 2009 - 07:40 AM

Chào Nataca. Lisp của bạn viết chạy ngon lành. Nhưng chắc chưa đúng ý của hhhhgggg.
Nhìn vào hình vẽ mà hhhhgggg đã post ta thấy điểm đầu và điểm cuối được chọn nằm trên đường PLine và có thể trùng với đỉnh của PLine.
Lisp của Nataca viết chỉ đúng trong trường hợp chỉ chọn điểm đầu và điểm cuói là đỉnh của Pline mà thôi.
Phải áp dụng đúng trong trường hợp tổng quát là điểm đầu và điểm cuối là 1 điểm bất kì trên PLine đó

Vâng, cái này lúc viết em quên mất. Đúng là yêu cầu điểm sẽ nằm trên đường Pline.
  • 0

#26 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 18 June 2009 - 07:54 AM

Vâng, cái này lúc viết em quên mất. Đúng là yêu cầu điểm sẽ nằm trên đường Pline.

Em thành thật xin lỗi bác ! Đúng là lúc đầu tiên đưa đầu bài em Vô Tình để điểm đầu và điểm cuối của Pline vẽ thêm trùng với điểm đầu và điểm cuối của Pline ban đầu. Yêu cầu ở đây là sẽ vẽ tại điểm bắt đầu và kết thúc là 2 điểm bất kỳ trên Pline đó. Tại bác Tuệ chưa dùng nova bao giờ nên bác hiểu hơi nhầm chút. Jờ thì mọi chuyện đã sáng tỏ, lúc nào bác rảnh bác sửa lại júp em nhé !!!! Cảm ơn các bác rất nhiều !!!
  • 0
Hoàng Giang

#27 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 18 June 2009 - 08:04 AM

Ok ! Đúng là lúc đầu tiên đưa đầu bài em vô tình để điểm đầu và điểm cuối của Pline vẽ thêm trùng với điểm đầu và điểm cuối của Pline ban đầu. Tại bác Tuệ chưa dùng nova bao giờ nên bác hiểu hơi nhầm chút. Jờ thì mọi chuyện đã sáng tỏ, lúc nào bác rảnh bác sửa lại júp em nhé !!!! Cảm ơn các bác rất nhiều !!!

Chào hhhhgggg.
Bạn vẫn chưa trả lời câu hỏi của anh Duy782006. Hay là bạn đang muốn lẩn tránh nó???

Các bác Pro à ? Ko bit các bác viết Lisp xong các bác có chạy thử ko ? Em rất cảm ơn các bác vì đã nhiệt tình quan tâm giúp đỡ.Nhưng mà Lisp các bác viết ra thì ko cái nào chạy được cả, của bác Duy, Tuệ và Giá bạch đều ko chạy đúng. Nếu các bác đã từng dùng nova thi bit nó vét bùn thế nào, nhưng em biết là viết được như thế thì sẽ tốn công nên đưa ra yêu cầu rất nhỏ.
Đề bài : Có 1 Pline có từ trước, Lisp sẽ vẽ ra 1 Pline dạng copy xuống bên dưới 1 đoạn b và chú ý là nó vẽ thêm cả 2 mẩu đoạn thẳng ở 2 đầu của Pline vẽ thêm để nối liền 2 Pline thành 1 hình kín phục vụ cho việc tính khối lượng ???
Các bác chỉnh lại CODE và test giúp em nhé ! Cảm ơn các bác !!!

cái nào hông đúng dậy?

Tôi thật sự khó hiểu bạn. Cái lisp của bạn tue mặc dù không hỏi chọn 2 điểm nhưng lisp đã tự tìm điểm đầu và điểm cuối sau đó vẽ theo đúng y yêu cầu của bạn.
-Bạn chưa trả lời câu hỏi của tôi. Mong bạn có trách nhiệm 1 chút. Không phải ai cũng hiểu điều bạn nói đúng như cách bạn mong người ta hiểu đơn giản vì bạn quá hời hợt trong diển đạt khi đưa ra yêu cầu


  • 0

#28 nataca

nataca

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 712 Bài viết
Điểm đánh giá: 553 (tốt)

Đã gửi 18 June 2009 - 08:06 AM

Ok ! Đúng là lúc đầu tiên đưa đầu bài em vô tình để điểm đầu và điểm cuối của Pline vẽ thêm trùng với điểm đầu và điểm cuối của Pline ban đầu. Tại bác Tuệ chưa dùng nova bao giờ nên bác hiểu hơi nhầm chút. Jờ thì mọi chuyện đã sáng tỏ, lúc nào bác rảnh bác sửa lại júp em nhé !!!! Cảm ơn các bác rất nhiều !!!

Bạn rút kinh nghiệm lần sau yêu cầu rõ hơn nhé. Xin phép bác Tuệ và bác Duy em đã up sửa lại cho bạn Hoàng Giang. HG down lại file mình đã edit.
  • 1

#29 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 18 June 2009 - 08:10 AM

Tôi thật sự khó hiểu bạn. Cái lisp của bạn tue mặc dù không hỏi chọn 2 điểm nhưng lisp đã tự tìm điểm đầu và điểm cuối sau đó vẽ theo đúng y yêu cầu của bạn.
-Bạn chưa trả lời câu hỏi của tôi. Mong bạn có trách nhiệm 1 chút. Không phải ai cũng hiểu điều bạn nói đúng như cách bạn mong người ta hiểu đơn giản vì bạn quá hời hợt trong diển đạt khi đưa ra yêu cầu.

Vâng em Post đề bài có đôi phần chưa tổng quát, cái đề bài ban đâu của em thì chỉ những người đã từng sử dụng chương trình nova và làm đường thì mới có thể hiểu đúng theo ý em được, Em đã vô tình để điểm đầu và điểm cuối trùng với Pline ban đầu. Em thành thật xin lỗi và sẽ rút kinh nghiệm để lần sau nhìn nhận vấn đề một cách tổng quát hơn. Em nhìn nhận vấn đề vãn chưa được tổng quát dẫn đến hiểu nhầm !!!
  • 1
Hoàng Giang

#30 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 18 June 2009 - 08:30 AM

Em xin lỗi các bác trong diễn đàn đây :
http://www.binhdinhf...file.php?id=970
http://www.quayeu.co...ges/ga quay.jpg
  • 0
Hoàng Giang

#31 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 18 June 2009 - 08:35 AM

Tue_NV đã hoàn thành đoạn Lisp nạo vét bùn này :
1. Chọn Pline
2. Chọn độ sâu vét bùn
3. Chọn điểm đầu là 1 điểm bất kì trên Pline
4. Chọn điểm cuối là 1 điểm bất kì trên Pline
5. Thực hiện công việc như ý bạn

Bác Tuệ UP lên cho em cái Lisp bác đã viết rùi đi ???
  • 0
Hoàng Giang

#32 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 18 June 2009 - 10:02 AM

Em xin lỗi các bác trong diễn đàn đây :


Bạn không thẳng thắn trả lời câu hỏi của mình gì cả mình nhắc lại câu hỏi:

Trích dẫn(hhhhgggg @ Jun 17 2009, 10:42)
Các bác Pro à ? Ko bit các bác viết Lisp xong các bác có chạy thử ko ? Em rất cảm ơn các bác vì đã nhiệt tình quan tâm giúp đỡ.Nhưng mà Lisp các bác viết ra thì ko cái nào chạy được cả, của bác Duy, Tuệ và Giá bạch đều ko chạy đúng.


Mình viết lisp nào cho bạn chạy không được, cái nào chạy không đúng?
  • 3

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#33 hhhhgggg

hhhhgggg

    biết dimedit

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

Đã gửi 18 June 2009 - 01:22 PM

Bạn không thẳng thắn trả lời câu hỏi của mình gì cả mình nhắc lại câu hỏi:

Trích dẫn(hhhhgggg @ Jun 17 2009, 10:42)
Các bác Pro à ? Ko bit các bác viết Lisp xong các bác có chạy thử ko ? Em rất cảm ơn các bác vì đã nhiệt tình quan tâm giúp đỡ.Nhưng mà Lisp các bác viết ra thì ko cái nào chạy được cả, của bác Duy, Tuệ và Giá bạch đều ko chạy đúng.


Mình viết lisp nào cho bạn chạy không được, cái nào chạy không đúng?

Em nhầm bác với bác ZUY782006 bác à ? Em xin lỗi nhé !!! Cái bác Zuy kia chỉ góp ý thui chứ ko viết cho em. Em có đôi chút nhầm lẫn. Bác thông cảm nhé !!! Em sửa lại bài đó.
  • 1
Hoàng Giang

#34 traitimsat034

traitimsat034

    biết vẽ pline

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

Đã gửi 18 June 2009 - 01:47 PM

Em nhầm bác với bác ZUY782006 bác à ? Em xin lỗi nhé !!! Cái bác Zuy kia chỉ góp ý thui chứ ko viết cho em. Em có đôi chút nhầm lẫn. Bác thông cảm nhé !!! Em sửa lại bài đó.

nói thật, mình ko thích ông này.
  • 0

#35 conghoan1003

conghoan1003

    biết vẽ point

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

Đã gửi 28 June 2009 - 12:12 PM

Có thể lisp chạy nhanh hơn nhưng mà cái bạn viết nó lại không đúng ý cái tụi mình cần. Mình đưa ra ý tưởng thế này nha:
Chạy lisp hỏi: bề rộng vét: b=?
Độ dốc vét: 1:1(nhập1), 1:1.5(nhập 1.5), thẳng đứng (nhập 0)....
sau đó chọn polyline tự nhiên. (Chọn tấc cả các đường tự nhiên của tấc cả các mặt cắt)
Rồi chọn vị trí vét: chọn điểm thứ nhất (điểm A trong hình vẽ), chọn điểm thứ 2 (Điểm B trong hình vẽ). Sau khi chọn hai điểm cùng thuộc một polyline thì lisp sẽ vẽ được một đường tự nhiên. Rồi tiếp tục chọn hai điểm thuộc polyline khác (mặt cắt khác) thì sẽ được đường vét thứ hai rồi tiếp tục chọn hai điếp tiếp theo......
Mình nghĩ thế sẽ rất nhanh.
lưu ý: khi mình vét thì mình cần offset xuống chứ không coppy như hhhhqqqq nha.
đường vét được tạo thành thuộc layer hiện hữu (không trùng với layer tự nhiên)
Cảm ơn Tue_NV đã giúp đỡ! file cad nè: http://www.cadviet.c...pfiles/hoan.dwg

Có lẽ hhhhgggg phải rút kinh nghiệm khi post bài trong diễn đàn, vì đây là một diễn đàn rất bổ ích mà lại hoàn toàn free, mình thấy anh em trên diễn đàn rất nhiệt tình đã giúp đỡ mọi người (trong đó có mình) rất nhiều. từ khi biết đến diễn đàn này mình học hỏi được rất nhiều điều. Qua đây mình xin gỏi lời cảm ơn chân thành đến các anh em diễn đàn, và cũng xin góp ý cho hhhhgggg trước khi nhận xét một điều gì thì nên cân nhắc trước để khỏi phải gây sự khó chịu đến những ngưòi giúp đỡ mình nhé.
Cái lisp đối với anh em cầu đường như mình rất cẩn xin Tue_NV giúp đỡ nhé!
  • 0
Học học nữa học mãi.
Đúp học lại!