[Nhờ chỉnh sửa lisp]Lisp thống kê toạ độ pline ra file txt

[nhimret 1]

Trước tôi có download 1 lisp của bác nào đó trên forum (xin lỗi bác không nhớ tên), dùng rất ok

A. Tác dụng của lisp: chọn N pline hoặc N đường khép kín ==> lisp tự động thống kê ra toạ độ vào file txt để copy vào excel

B. Nhờ các bác thêm hộ 1 chức năng là nếu như chọn cùng lúc "N"  pline thì giữa toạ độ của "N" pline đấy nó sẽ có 1 dòng cách trắng để phân biệt toạ độ của các đường

Cám ơn các bác nhiều!

(lisp đã đính kèm ở dưới)

xuat toa do sang txt v2 (lenh tff).lsp

[cuongtk2 345]

1 giờ} trướ}c, nhimret đã nói:

Trước tôi có download 1 lisp của bác nào đó trên forum (xin lỗi bác không nhớ tên), dùng rất ok

A. Tác dụng của lisp: chọn N pline hoặc N đường khép kín ==> lisp tự động thống kê ra toạ độ vào file txt để copy vào excel

B. Nhờ các bác thêm hộ 1 chức năng là nếu như chọn cùng lúc "N"  pline thì giữa toạ độ của "N" pline đấy nó sẽ có 1 dòng cách trắng để phân biệt toạ độ của các đường

Cám ơn các bác nhiều!

(lisp đã đính kèm ở dưới)

xuat toa do sang txt v2 (lenh tff).lsp

Viết riêng cho lwpolyline, sửa ngại lắm:

(defun c:test ( / F FN SS)

(vl-load-com)
(defun ss->list (ss)
 (mapcar 'cadr (vl-remove-if '(lambda (e)
                   (/= 'ename (type (cadr e)))
                   ) (ssnamex ss))
         )  
  )
(defun pl_vertexs (ent)
(mapcar 'cdr (vl-remove-if '(lambda (e) (/= 10 (car e))) (entget ent))
         )  
  )
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq ss (ss->list ss))

(setq    fn (getfiled "Text File" "" "txt" 1))
(setq f (open fn "w"))
(foreach n ss
  (progn
  (WRITE-LINE "lwpolyline" f)
  (foreach m (pl_vertexs n)
    
  (WRITE-LINE (strcat (rtos (cadr m)) "\t" (rtos (car m))) f)
    );for2
  );progn
  );for1
(close f)

)

[nhimret 1]

@cuongtk2 cám ơn bác, đúng như mong muốn rồi a