Nhờ các cao nhân tạo lisp tự động nối các điểm Point Style

[huytnmt 0]

Mình có các điểm Point Style theo thứ tự tăng dần. Nhờ các pro hỗ trợ giúp mình tạo ra lisp tự động nối các điểm đó thành với nhau thành đường Polyline. Mình xin cảm ơn!

https://drive.google.com/file/d/10lETA6lI0uf-yzoSDhsj1NRygyEu2t4v/view Link tải file

[cuongtk2 475]

Đây: 

(defun c:TextToPline (/ ss ss1 i n pt)
  (vl-load-com)  
  (setq ss (ssget '((0 . "TEXT"))))
  (if ss
    (progn
      (setq ss (acet-ss-to-list ss)
            ss (mapcar 'entget ss))      
      
      (setq ss1 (vl-sort ss 
                  '(lambda (e1 e2) 
                     (< (cdr (assoc 1 e1)) (cdr (assoc 1 e2)))
                   )
                ))     
      
      (setq i 0 
            n (length ss1))
      
      (command "._PLINE")
      (while (< i n)
        (setq pt (cdr (assoc 10 (nth i ss1))))
        (command "_non" pt) 
        (setq i (1+ i))
      )
      (command "")
      (princ (strcat "\nDa ve xong Pline qua " (itoa n) " diem."))
    )
    (princ "\nKhong chon duoc Text nao.")
  )
  (princ)
)

 

[huytnmt 0]

23 giờ trước, cuongtk2 đã nói:

Đây: 

(defun c:TextToPline (/ ss ss1 i n pt)
  (vl-load-com)  
  (setq ss (ssget '((0 . "TEXT"))))
  (if ss
    (progn
      (setq ss (acet-ss-to-list ss)
            ss (mapcar 'entget ss))      
      
      (setq ss1 (vl-sort ss 
                  '(lambda (e1 e2) 
                     (< (cdr (assoc 1 e1)) (cdr (assoc 1 e2)))
                   )
                ))     
      
      (setq i 0 
            n (length ss1))
      
      (command "._PLINE")
      (while (< i n)
        (setq pt (cdr (assoc 10 (nth i ss1))))
        (command "_non" pt) 
        (setq i (1+ i))
      )
      (command "")
      (princ (strcat "\nDa ve xong Pline qua " (itoa n) " diem."))
    )
    (princ "\nKhong chon duoc Text nao.")
  )
  (princ)
)

 

Mình cảm ơn bạn nhiều nhé

[huytnmt 0]

 Nhờ bạn viết dùm mình thêm 1 lisp như hình vẽ tý. Số thứ tự đỉnh điểm theo chiều kim đồng hồ và có một vòng tròng ở ở mỗi đỉnh điễm. Điểm số 1 đầu tiên theo hướng Bắc. Mình cảm ơn bạn nhiều nhé

 

Link hình ảnh Link file mẫu