Cần giúp đỡ về lisp xuất tọa độ và cao độ từ Cad sang Excel hoặc Txt

[Nghĩa NN 2]

Xin chào!

Mình cần 1 lisp xuất dữ liệu từ Cad sang Excel như sau:

- File cad chỉ gồm Text thể hiện cao độ, Text có thể là MText, DT, dấu thập phân có thể là "," hoặc "."

- Mình muốn xuất ra file Excel hoặc Txt gồm 3 cột thông tin là X, Y, Z trong đó Z bằng luôn giá trị của Text đang thể hiện.

Mình kiếm khắp diễn đàn mà ko có. Rất mong được sự giúp đỡ của các bạn. 

Cảm ơn các bạn rất nhiều.

[Doan Van Ha 3208]

Ngay bây giờ, Nghĩa NN cho biết:

Xin chào!

Mình cần 1 lisp xuất dữ liệu từ Cad sang Excel như sau:

- File cad chỉ gồm Text thể hiện cao độ, Text có thể là MText, DT, dấu thập phân có thể là "," hoặc "."

- Mình muốn xuất ra file Excel hoặc Txt gồm 3 cột thông tin là X, Y, Z trong đó Z bằng luôn giá trị của Text đang thể hiện.

Mình kiếm khắp diễn đàn mà ko có. Rất mong được sự giúp đỡ của các bạn. 

Cảm ơn các bạn rất nhiều.

Khắp trên diễn đàn đều có. Cố gắng tìm lại đi, nhiều lắm!

[Nghĩa NN 2]

Thật sự là kiếm không ra bạn à. Chứ mình rất cần.

[dinhvantrang 151]

tìm thử trong này.

http://www.cadviet.com/forum/topic/33604-giúp-em-viết-cái-lisp-chuyển-text-các-cao-độ-trong-autocad-sang-file-dạng-txt/

[Nghĩa NN 2]

45 minutes ago, dinhvantrang said:

tìm thử trong này.

http://www.cadviet.com/forum/topic/33604-giúp-em-viết-cái-lisp-chuyển-text-các-cao-độ-trong-autocad-sang-file-dạng-txt/

Cảm ơn bạn nhiều nhé, để mình nghiên cứu

[dinhvantrang 151]

14 giờ trước, Nghĩa NN cho biết:

Cảm ơn bạn nhiều nhé, để mình nghiên cứu

 

Không được thì cứ pm mình qua Zalo: 0986370918 hoặc Skype: dinhvantrang73

[xaaaaao 2]

của bạn cần đây

exptxt.lsp

[hunghong250906 0]

bác cho xin lại dc ko ạh

 

[cuongtk2 415]

(defun c:exptxt( / F FN LST ND P TT X Y)
 (setq lst	(ACET-SS-TO-LIST  (ssget '((0 . "*TEXT"))))
fn  (getfiled "Ten file: " "" "txt" 1)
f   (open fn "w")
 )
 (foreach e lst
   (setq tt (entget e)
  p  (cdr (assoc 10 tt))
  x  (rtos (car p) 2 3)
  y  (rtos (cadr p) 2 3)
  nd  (VL-STRING-TRANSLATE "," "." (cdr (assoc 1 tt)))
   )
   (write-line (strcat x "\t" y "\t" nd ) f)
 )
 (close f)
 (princ)
)

Chỉnh sửa chút cho nó dùng cùng loại dấu ".". Các toạ độ XY dùng 3 chữ số sau thập phân.

Nó vẫn còn mà.