Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
thanhduan2407

Vẽ Spline Từ Tập Line

Các bài được khuyến nghị

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.com/file/c7w56tfq5d79th0/BINH_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)
)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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é.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.com/file/d/0B-3fZ45DSr_XNW1xakxKTVFXcHc/view?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ẻ!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.com/file/d/0B-3fZ45DSr_XQzZDcEpVVDI1Tlk/view?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.

^_^

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.com/file/d/0B-3fZ45DSr_XQzZDcEpVVDI1Tlk/view?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!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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à.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×