Xin lisp xóa tất cả các vertex giữa 2 điểm đầu và điểm cuối của nhiều Polyline

[hoacomay70 4]

Chào cả nhà,

Như tiêu đề em muốn xin các bác có thể viết cho em 1 lisp có thể xóa tất cả các điểm vertex ở giữa của nhiều polyline được chọn, chỉ giữ điểm đầu và điểm cuối của các polyline đó. Em xin cảm ơn.

[Danh Cong 422]

Hỏi dại 1 xíu :v Ý bạn muốn biến 1 Polyline thành 1 đường thẳng nối điểm đầu và điểm cuối ? :))))

[hoacomay70 4]

Đúng vậy bác ạ, chính là biến pl thành đường nối điểm đầu và điểm cuối, nhung em muốn làm đồng loạt cho nhiều pline

[Danh Cong 422]

Code cho bạn đây: Dùng thử xem ổn không nhé !

(defun c:test ()
(vl-load-com)
(setq ss (ssget '((0 . "LWPOLYLINE")))
      i 0)
(repeat (SSLENGTH ss)
  (setq oldos (getvar "osmode"))
  (setvar "osmode" 0)
   (progn
     (setq sname (ssname ss i)
       i (+ i 1))
     (setq pt1 (vlax-curve-getStartPoint (vlax-ename->vla-object sname)))
     (setq pt2 (vlax-curve-getEndPoint (vlax-ename->vla-object sname)))
     (command "line" pt1 pt2 "")
     (command "erase" sname "")
     ); endprogn
  );end repeat
  (setvar "osmode" oldos)
  (princ)
  )
  

[Doan Van Ha 3.192]

Danh Cong viết vậy là mất hết thuộc tính cũ của Pline.

[Danh Cong 422]

Dạ, hic.. Bác nói em mới nhận ra. Đầu óc lú lẫn rồi ạ. Hic. Để tối em sửa lại ạ. :(