Đến nội dung


Hình ảnh
- - - - -

Vẽ Spline Từ Tập Line


  • Please log in to reply
14 replies to this topic

#1 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 992 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 11 November 2016 - 09:45 PM

Em chào các bác, các anh/em trong diễn đàn CadViet!

Lâu lắm rồi em mới dám mạo muội tạo thành 1 Topic để hỏi.

Em đã viết chương trình vẽ đường đồng mức từ tập hợp các bề mặt 3Dface sau khi tạo xong mô hình TIN. Tuy nhiên, phương thức, thuật toán thực hiện của em vẫn còn hạn chế nên chương trình chạy tương đối nặng và đơ máy.

Em có 1 tập hợp các đoạn thẳng (LINE) được tạo từ 3Dface (cùng một 3Dface có cùng độ cao theo bước nhảy độ cao thì nối với nhau).  Em biến các đoạn Line đó thành Spline bằng cách join các Line với nhau thành Polyline sau đó lại biến Polyline đó thành Spline. Mỗi lần như thế máy chạy rất lâu và đơ máy.

Vậy em nhờ các bác và các anh em trợ giúp về phương thức và thuật toán sao cho chương trình được tối ưu hơn được không ạ?

Đã có các bác nào viết chương trình tạo đường đồng mức từ 3Dface chưa ạ? Nếu có cách khác thì hay quá. Em rất muốn được học hỏi.

Chân thành cảm ơn các bác và các anh em!

Link:

http://www.mediafire...H_DO_GEOPRO.dwg

Em nghĩ hàm này làm nó đơ và chậm.

(defun Join_SPLine (ss / ope)
  (setq ope (getvar "PEDITACCEPT"))
  (if ss
    (progn
      (setvar "PEDITACCEPT" 1)
      (vl-cmdf "_.pedit" "_M" ss "" "_J" "" "_S" "" "")
    )
  )
  (setvar "PEDITACCEPT" ope)
)

  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 11 November 2016 - 10:00 PM

Cỡ bao nhiêu điểm NTD ơi?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 992 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 11 November 2016 - 10:17 PM

Cỡ bao nhiêu điểm NTD ơi?

Dạ cháu cũng chưa kiểm nghiệm con số bao nhiêu thì nó báo lỗi.

Tầm 10.000 điểm là đơ bác ạ!

Capture_zpshvwsius9.jpg


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 11 November 2016 - 10:25 PM

Cỡ 10.000 điểm thì vẽ đường đồng mức chỉ tầm dưới 1 phút, không treo máy. NTD đưa bản vẽ đó lên bác test và đề xuất giùm xem có tốt hơn không nhé.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#5 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 992 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 11 November 2016 - 10:35 PM

Dạ vâng ạ!

Cháu gửi bác file khoảng tầm hơn 20.000 điểm bác nhé! Cháu cảm ơn bác đã nhiệt tình giúp đỡ.

Link:

http://www.mediafire...OA_TL500_L3.dwg


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#6 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 12 November 2016 - 07:13 AM

Hì mình chẳng có chuyên môn cái này. Nghịch thử tí cho vui xem đc không. Nó vẽ thế này có đúng ko ?

 

https://drive.google...iew?usp=sharing


  • 1

#7 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 992 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 12 November 2016 - 07:39 AM

Hì mình chẳng có chuyên môn cái này. Nghịch thử tí cho vui xem đc không. Nó vẽ thế này có đúng ko ?

 

https://drive.google...iew?usp=sharing

Thanks bác đã quan tâm. Bác chạy đúng rồi đó. Bước nhảy của bác đang là 2m. 

Bác dùng phần mềm hay lisp ạ? Liệu bác chia sẻ phương thức được không ạ?

Chúc bác ngày cuối tuần vui vẻ!


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#8 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 12 November 2016 - 09:24 AM

Chút về mình share nhé.
  • 1

#9 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 992 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 12 November 2016 - 09:53 AM

Chút về mình share nhé.

Dạ, cảm ơn bác!

Bác có thể share trên này hoặc gửi vào Email: Heaven2407@gmail.com

Em cảm ơn bác nhiều!


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 12 November 2016 - 01:33 PM

Vẽ bằng lisp:

- Lưới tam giác thì nhanh: 15"

- Đường đồng mức thì rất chậm: 30'

http://www.mediafire...NTD_Ve_xong.dwg


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#11 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 992 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 12 November 2016 - 02:11 PM

Ôi! 30 phút ạ. Vậy lâu quá bác ạ. Hic hic.
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#12 Bee

Bee

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 64 (tàm tạm)

Đã gửi 12 November 2016 - 09:46 PM

Dạ, cảm ơn bác!

Bác có thể share trên này hoặc gửi vào Email: Heaven2407@gmail.com

Em cảm ơn bác nhiều!

Heizz, ăn nhậu và hát hò giờ mới về được. Lâng lâng nên gửi cả nguồn cho bạn nghiên cứu. :D

 

Download : http://ezmdd.com/ctl/

 

hoặc

 

https://drive.google...iew?usp=sharing

 

Điều kiện:

1. Có các points cao độ (tại các điểm chèn của text)

2. Có layer CTL_PNT

3. Copy 2 file vào support

4. Chạy lựa chọn 1 tạo các lưới tam giác -> Chạy lựa chọn 2 tạo đường pline 

 

Mình chạy thấy tầm <5'.

 

Chúc ngon miệng.

^_^


  • 0

#13 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 12 November 2016 - 10:04 PM

Lisp chú này khá hay nhưng chú ấy viết ép user nhiều thứ, lại code đóng. Tôi có dùng rồi nhưng không mê lắm. Không biết NTD dùng chưa?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#14 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 992 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 13 November 2016 - 07:21 AM

Heizz, ăn nhậu và hát hò giờ mới về được. Lâng lâng nên gửi cả nguồn cho bạn nghiên cứu. :D

 

Download : http://ezmdd.com/ctl/

 

hoặc

 

https://drive.google...iew?usp=sharing

 

Điều kiện:

1. Có các points cao độ (tại các điểm chèn của text)

2. Có layer CTL_PNT

3. Copy 2 file vào support

4. Chạy lựa chọn 1 tạo các lưới tam giác -> Chạy lựa chọn 2 tạo đường pline 

 

Mình chạy thấy tầm <5'.

 

Chúc ngon miệng.

^_^

Em tưởng bác viết và có code tham khảo.

Em có hơn chục cái để vẽ đường đồng mức rồi.

Dù sao cũng cảm ơn bác nhiều!


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#15 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 992 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 13 November 2016 - 07:26 AM

Lisp chú này khá hay nhưng chú ấy viết ép user nhiều thứ, lại code đóng. Tôi có dùng rồi nhưng không mê lắm. Không biết NTD dùng chưa?

Cháu không dùng bác ạ!

Có quá nhiều phần mềm vẽ được đồng mức. Nhưng đó là phần mềm. :D

Cháu viết bài trong mục Autolisp mà.


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn