Duỗi thằng các đường PL gấp khúc thành đường thằng

[Lê Văn Dũng 1]

Chào các bác. Đây là lần đầu em hỏi trong nhóm, có gì chưa nắm rõ nội quy mong các bác thông cảm

Hiện tại em có một một đoạn đường PL gấp khúc (nhiều đoạn nhỏ). Em muốn duổi thẳng đường đó thành 1 đường thẳng, giữ được vị trí các điểm nút gấp khúc. Mục đích của em là từ các trắc ngang thiết kế của đường, để vẽ được mặt bằng duỗi thẳng nhanh hơn. Em làm gia cố bề mặt mái taluy ah. Em xin cám ơn các bác đã chỉ bảo

Em muốn lên thành bản mặt bằng duỗi thằng như này ah

[cuongtk2 415]

Câu hỏi của bạn trúc trắc làm người không cùng chuyên môn khó nắm bắt được vấn đề. Với tôi cảm nhận được như bạn muốn chiếu đường gấp khúc đó xuống trục X thành các đoạn thẳng nối tiếp. Hoặc có thể là quay các đoạn nghiêng song song trục X để tổng chiều dài pline không đổi.

[quangcda 8]

Mục đích cuối là để sử dụng phần mềm, chạy đường mặt bằng để làm kiên cố hóa taluy phải không?

Trước mình cũng "duỗi" trên trắc ngang nhưng đuỗi phần X thôi để chạy lên mặt bằng phần mềm nối tốt hơn.

[quangcda 8]

0. VE PLINE CO X BANG KHOANG CACH.lsp

Cái này có thể hỗ trợ phần nào cho bạn. 

[cuongtk2 415]

Tính chiều dài công dồn pline.

(defun c:test ( / ANG obj D ENT EP I LS LS1 MSPACE MYOBJ N PTLIST SP TMP)
(setq ent (car (entsel)))
(setq ls (ACET-GEOM-PLINE-POINT-LIST ent t))
(setq sp (car ls)
      ep (cadr ls)
      obj (vlax-ename->vla-object ent)
      ang (if (< (angle sp ep) (* pi 0.5)) 0 pi)
      n (length ls) i 1
      ls1 (list sp)
      )
(while ( < i n)
  (setq ls1 (append ls1 (list (polar sp ang (vlax-curve-getDistAtParam obj i))))
        )
(setq i (1+ i))
  )                    
 (setq mspace (vla-get-modelspace (vla-get-activedocument 
              (vlax-get-acad-object))))
  (setq  ptlist (apply 'append ls1)) 
  (setq  tmp (vlax-make-safearray  vlax-vbDouble (cons 0 (- (length ptlist) 1))))
  (vlax-safearray-fill tmp ptlist)
      (setq myobj (vla-addPolyline mspace tmp))
  )