anti lazy 28 Báo cáo bài đăng Đã đăng Tháng 9 29, 2015 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ự 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
ducqt 0 Báo cáo bài đăng Đã đăng Tháng 7 1, 2016 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
levucaycoc 1 Báo cáo bài đăng Đã đăng Tháng 9 21, 2016 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 ạ? 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
PKH 0 Báo cáo bài đăng Đã đăng Tháng 11 16, 2016 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
thanhduan2407 276 Báo cáo bài đăng Đã đăng Tháng 11 16, 2016 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 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
ndtnv 481 Báo cáo bài đăng Đã đăng Tháng 11 16, 2016 Tìm (princ " " fl) Sửa thành (princ "\n" fl) 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