Nhờ sừa lisp. chia nhỏ pline

[thienxd 0]

Mình vừa kiếm được lisp chia nhỏ 1 pline (có cả đoạn cong) thành các đoạn nhỏ nhưng sử dụng vẫn chưa đúng ý. nhờ các cao nhân sửa giúp mình tí:

1. có thể lựa chọn nhiều pline để chia nhỏ 1 lúc

2. nếu có thể thì nối các pline nhỏ lại vs nhau luôn. 

Cảm ơn mọi người nhiều nhiều

 

Chia- Pline.lsp

[thienxd 0]

Có bác nào giúp được ko nhỉ

[Doan Van Ha 3202]

Google 1 cái thì ra rất nhiều, sao không chịu GG?

Ví dụ:

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/break-pline-into-equal-segments/td-p/2076607

[thienxd 0]

Cái này chia đường cong nó bị lỗi bác ah. nó ko chọn được nhiều đường một lúc. 

[thienxd 0]

nhờ cậy mọi người.

[Botot 31]

Cái lisp của bác Hạ xài tốt với 1 pline, hoặc bạn kiếm ng tạo vòng lặp để chọn nhiều pline 1 lúc, hoặc bạn đành phải làm từng cái 1. Muốn có lisp free mà đòi hỏi nhiều ko đc đâu.

[Bee 154]

Vào lúc 24/5/2019 tại 09:01, thienxd đã nói:

Cái này chia đường cong nó bị lỗi bác ah. nó ko chọn được nhiều đường một lúc. 

Thế mỗi 1 pline nó nhiều segment cong thì làm sao tự động biết được chia ở segment nào nếu ko phải chủ thớt pick chọn ???? ^_^

[thienxd 0]

Ý mình là lúc chọn để chia. thì có thể chọn 1 lúc nhiều đường để chia nhỏ ấy bạn.

[quocmanh04tt 635]

2 giờ trước, thienxd đã nói:

Ý mình là lúc chọn để chia. thì có thể chọn 1 lúc nhiều đường để chia nhỏ ấy bạn.

Cho mình hỏi: Với Pline nhiều phân đoạn, nếu phân đoạn trước chia cho "chiều dài đoạn chia" <DIS> không hết (có nghĩa là dư 1 đoạn < DIS), thì phân đoạn tiếp theo cộng dồn đoạn dư hay là từ điểm xuất phát của phân đoạn tiếp theo chia tiếp tục với DIS???

Mô tả bằng hình ảnh:

 

[thienxd 0]

Bạn sửa giúp mình là nếu chia không hết thì cộng dồn sang đoạn sau được ko?

đoạn ko chia hết sẽ dồn về cuối cùng.

[quocmanh04tt 635]

Không biết lệnh JOIN của cad xuất hiện từ phiên bản nào???

(defun c:chia  (/ c_chia_PL ent kc ss)
  (defun c_chia_PL  (ent kc / p oldos oldp findp ss)
    (defun findp (ent) (vlax-curve-getPointAtDist ent kc))
    (setq oldos (getvar "osmode"))
    (setvar "osmode" 0)
    (setq ss (ssadd)
          ss (ssadd ent ss))
    (while (and (setq p (findp ent)) (not (equal p oldp 0.01)))
      (command ".break" ent p p)
      (setq ent  (entlast)
            ss   (ssadd ent ss)
            oldp p))
    (command ".join" ent ss "")
    (setvar "osmode" oldos))
  (if (and (setq ss (ssget '((0 . "LWPOLYLINE"))))
           (setq kc (getdist "\nVAo khoang cach: ")))
    (while (and (setq ent (ssname ss 0)) (ssdel ent ss)) (c_chia_PL ent kc)))
  (princ))

 

[thienxd 0]

Cảm ơn bác rất nhiều nhé. thế này là cũng tuyệt vời lắm rồi. Công việc của mình rất cần lisp này.

đây là lisp join gửi cho bác tham khảonn.lsp

JJ- noi khoang ho.lsp