Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
vantuan18nd

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

Các bài được khuyến nghị

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)

....

)

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ự

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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!

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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 ạ?

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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:

235fwss_zpsregeo85d.png

 

Video: 

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

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×