Chuyển đến nội dung
Diễn đàn CADViet

minhtuan57hk

Thành viên
  • Số lượng nội dung

    11
  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi minhtuan57hk


  1. 6 giờ trước, conghoa đã nói:

    trên mạng có cái lisp chạy max nhanh, nhưng mất phí bạn ah. Chịu khó khoanh ít một thôi :D

    Mình test cho cái ví dụ của bạn thì cũng khá nhanh. Tuy nhiên sẽ xuất hiện 1 đường bo bao trùm lên các hình liền nhau.

    Vâng, nó tạo đường bao trùm, ngoài ra có 1 số đường chỉ tạo ra polyline không kín nữa.


  2. 7 phút trước, conghoa đã nói:

    Bạn dùng thử cái này, lisp này là lisp hach các đoạn giao nhau trên forum, tuy nhiên một phần tính năng của lisp cũng là tạo đường bo cho các đoạn giao nhau như yêu cầu của bạn.

    Tên lệch: taovungpolylinekin

    Tao vung kin tu cac duong giao nhau.lsp

    Em vừa sử dụng lisp nhưng thì có lúc tạo được, có lúc lại tạo lỗi, tạo ra trùng sau, chạy nhiều 1đối tượng chút sẽ bị đơ luôn anh ạ.

     


  3. Vừa xong, conghoa đã nói:

    Bạn dùng thử cái này, lisp này là lisp hach các đoạn giao nhau trên forum, tuy nhiên một phần tính năng của lisp cũng là tạo đường bo cho các đoạn giao nhau như yêu cầu của bạn.

    Tên lệch: taovungpolylinekin

    Tao vung kin tu cac duong giao nhau.lsp

    Em cảm ơn anh! Em có test qua rất nhiều lisp rồi. Nhưng nó đều chạy rất chậm và không hiệu quả, lúc tạo được, khi lại không tạo được. 


  4. 14 giờ trước, cuongtk2 đã nói:

    Mục tiêu của em để làm gì, bởi đã có lệnh BO trong Cad để tạo Boundary rồi.

    Code của Kean chỉ mang ý nghĩa học thuật, hầu hết phục vụ cho coder về mặt hướng dẫn chứ không phải cho người vẽ.

    Dạ anh, Em sử dụng Revit để vẽ đường ống gió (là các hình chữ nhật), nhưng khi Export sang Cad thì các nét  đường ống lại là các đường line rời rạc. Em muốn sử dụng để tạo Boundary kiểu Polyline theo tất cả các đường line đó. Kiểu như kết quả đạt được như file đính kèm ạ!

    TEST.dwg


  5. 15 giờ trước, DuongTrungHuy đã nói:

    Bạn có thể cho mình xem hình cụ thể bài toán bạn đang cần. Đừng đưa hình minh hoạ như 2 cái poly giao nhau mà bạn đã đưa nhé!

    Mình đang có các nét đường ống hình chữ nhật là các đường line giao nhau về hình học thì đúng nhưng quản lý rất bất tiện, mình muốn tạo đường bao xung quanh để quản lý, chỉnh sửa dễ hơn. Mình gửi file test nhờ anh xem giúp ạ!

    Test bo.dwg


  6. Vào lúc 13/10/2023 tại 10:04, tannguyen291 đã nói:

    Nhìn code của bác chuyên nghiệp vãi chầy. Em tự học lisp nên viết nhìn xoàng khiếp. 

    Sao lại k nằm trong 1 ngữ cảnh ạ?

    Tối qua em vọc vạch union toàn bộ region rồi explode ra các region con (list 1). so sánh toàn bộ region cũ (list 0) với nhau nếu 2 đối tượng area, centroid bằng nhau thì tiếp tục so sánh với các region khác xem có bao lồng không bằng cách union 2 đối tượng và so sánh diện tích tổng trước và sau khi union. Cách làm này tuy hiệu quả nhưng thời gian chạy khá lâu Vì phải so sánh rất nhiều lần. 

    Bài test này không có quá nhiều đối tượng!

    Process Trim in 1.204 seconds!
    Process Region in 0.437 seconds!
    Process Sort in 0.891 seconds!
    Delete overlaps in 0.953 seconds!

    All time: 3.485 seconds!

    giphy.gif

    file test: da1.dwg

    Anh có thể cho em xin lại lisp này được ko ạ!

×