[Nhờ viết lisp] Xuất cao độ từ CAD sang Notpad hoặc Excel

[anti lazy 28]

1 - Tôi chỉ hướng dẫn chứ không sửa toàn bộ, code tôi test đã chạy,

Bạn bảo code bạn đã sửa (setq goc 0) nhưng chạy không được là do nguyên nhân

(while (setq goc 0)

....

)

vì 0 /= nil nên vòng while lặp vô tận

Bỏ (while thì phải bỏ dấu đóng ngoặc tương ứng code mới chạy được

2 - Đề nghị xưng hô lịch sự

[ducqt 0]

http://www.cadviet.com/upfiles/6/21968_bandodiahinh.dwg    anh em tranh thủ một ít thời gian load số liệu từ file cad này ra file TXT giúp mình với. mục đích của mình là xuất số liệu từ cad này ra để chạy bình đồ tuyến, trắc dọc, trắc ngang. Cảm ơn cả nhà nhiệu!

 

[levucaycoc 1]

Chào các bác, hiện tại mình đang cần 1 lisp xuất các thông tin sau lên CAD
+ Số thứ tự điểm
+ Point (Tọa độ X, Tọa độ Y)

+ Cao độ Z

+ Ghi chú Code

Các thông tin này có sẵn trong tệp SL2.txt mình đính kèm bên dưới.
Các bác nào giúp mình với được không ạ?

[PKH 0]

Chọn 2 diểm băng qua hàng text muốn lấy. nếu muốn theo phương trục X hoặc Y thì bật F8. Số liệu xuất ra sẽ sắp xếp theo chiều bạn pick 2 điểm đó.

Muốn chọn tất cả lại càng dễ nhưng khi xuất ra số liệu sẽ không có trật tự gì, thì cũng như một mớ bỏ đi thôi.

Mình đã làm thử trên file của bạn rồi , kết quả như sau :

3.25 2.36 2.33 3.23 2.4 2.44 3.76

8.5 8.5 8.5 8.5 4.98 7.21 4.92 7.88 0.61

Còn đây là lsp mình làm sát theo yc của bạn :

(defun c:vantuan18 (/ ss f fl goc p1 p2 i ) ;chon text theo goc roi ghi ra file

(if (findfile (setq f (getstring "\n<Ten FILE> xuat so lieu , Go <ENTER> neu khong luu : ")))

(setq fl (open f "a")) (setq fl (open f "w")))

(while (setq goc (getangle "\nNhap goc cua text muon chon :"))(setq i 0)

(if (setq ss (ssget (list (cons 0 "TEXT") (cons 50 goc))))

(repeat (sslength ss) (prin1 (read (cdr (assoc 1 (entget (ssname ss i))))) fl) (princ " " fl) (setq i (1+ i)))

(prompt "\nKhong chon dc text nao !"));if

(write-line "" fl));while

(close fl)(princ))

 

 Mình có Lips này nhưng các số không ở 1 cột Excel. Mọi người xem bây giờ mình muốn xuất dữ liệu thành 1 cột trong Excel thì làm thế nào ạ?

http://www.mediafire.com/download/kgi6acugjcnt98w/Xuat+du+lieu+sang+Excel.lsp

[thanhduan2407 272]

Bạn download chương trình xuất nhập gần như tất cả các đối tượng của Autocad tại đây!

http://www.mediafire.com/file/rj74sp4kivmrntd/HEAVEN2407.VLX

 

Tên lệnh:

 

Video: 

https://www.youtube.com/watch?v=DpHx5yiV9ds

[ndtnv 481]

Tìm

(princ " " fl)

Sửa thành

(princ "\n" fl)