QUẢNG CÁO ĐẦU TRANG

Collapse

Thông báo

Collapse
No announcement yet.

Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

Collapse
X
Collapse
 
  • Trang of 1
  • Lọc
  • Giờ
  • Show
Clear All
new posts
Previous template Next
  • #1

    Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

    Các lisp man giúp tôi với. Tôi đang làm thống kê tọa độ điểm nhưng chỉ có lisp làm tọa độ đó text trên bản cad, còn muốn xuất sang exel để tạo dữ liệu thì toàn phải dùng tay copy and paste, nhục quá. Bạn nào có lisp khắc phục được việc này thì share cho tui và các bạn khác có cùng nhu cầu với.
    Thank
    Tags: None
  • #2
    Ðề: Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

    Nguyên văn bởi quocyen
    Các lisp man giúp tôi với. Tôi đang làm thống kê tọa độ điểm nhưng chỉ có lisp làm tọa độ đó text trên bản cad, còn muốn xuất sang exel để tạo dữ liệu thì toàn phải dùng tay copy and paste, nhục quá. Bạn nào có lisp khắc phục được việc này thì share cho tui và các bạn khác có cùng nhu cầu với.
    Thank
    Có đấy, tôi mail của bạn để tôi gửi cho

    Ghi chú

    • #3
      Ðề: Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

      [QUOTE=MAN]Có đấy, tôi mail của bạn để tôi gửi cho[/QUCảm ơn bạn quan tâm, ko biết giờ này bạn còn ONLINE không??
      Email quocyen@yahoo.com
      Sáng mai mà có thì tốt qúa.

      Ghi chú

      • #4
        Ðề: Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

        [QUOTE=quocyen]
        Nguyên văn bởi MAN
        Có đấy, tôi mail của bạn để tôi gửi cho[/QUCảm ơn bạn quan tâm, ko biết giờ này bạn còn ONLINE không??
        Email quocyen@yahoo.com
        Sáng mai mà có thì tốt qúa.
        tôi chỉ có lisp lấy tọa độ của điểm chèn text rồi xuất ra *.txt thôi. ko biết có được ko?

        Ghi chú

        • #5
          Ðề: Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

          [QUOTE=MAN]
          Nguyên văn bởi quocyen
          tôi chỉ có lisp lấy tọa độ của điểm chèn text rồi xuất ra *.txt thôi. ko biết có được ko?
          Thank a lot. Bạn share lên đây hoặc mail cho tui đi, từ text dùng notepad là lấy được sang exel mà. nếu các số liệu của bạn thẳng theo 2 cột trong notepad.
          Bạn gửi lên đi

          Ghi chú

          • #6
            Ðề: Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

            [QUOTE=quocyen]
            Nguyên văn bởi MAN
            Thank a lot. Bạn share lên đây hoặc mail cho tui đi, từ text dùng notepad là lấy được sang exel mà. nếu các số liệu của bạn thẳng theo 2 cột trong notepad.
            Bạn gửi lên đi
            Tôi gửi đây này. nếu bạn biết Lisp thì sửa lại cho phù hợp với yêu cầu công việc. còn ko thì tôi có thể giúp!
            Last edited by MAN; 19-10-2006, 11:31 PM.

            Ghi chú

            • #7
              Ðề: Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

              [QUOTE=MAN]
              Nguyên văn bởi quocyen
              Tôi gửi đây này. nếu bạn biết Lisp thì sửa lại cho phù hợp với yêu cầu công việc. còn ko thì tôi có thể giúp!
              Hi, cảm ơn nhé.
              Biết bạn trên này, nhưng không có cách gì trò chuyện. Tôi sẽ tìm hiểu nội dung lisp
              Hic, cách dùng lisp của bạn như thế nào, tui đã đánh ttf, thì lisp đòi select object. (Không biết là có như lệnh ID không??). Sau đó, lisp đòi nhập tên file lưu trữ. Sau đó, ấn save thì lisp chạy ra file text 0 Kbyte và error: bad argument type: stringp nil. Bạn hướng dẫn nốt đi. Tối nay khổ tôi rồi
              Last edited by quocyen; 19-10-2006, 11:56 PM.

              Ghi chú

              • #8
                Ðề: Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

                ;trước hết bạn cần phải tạo thư mục solieu tại ổ C ( xem đường dẫn trong chương trình
                ;bạn ghi nội dung đoạn mã sau thành 1 file có đuôi lsp (VD poi.lsp)
                ;appload file này bạn sẽ có lệnh TFF
                ;bạn có thể thay đổi thư mục hoặc tên file "o_dia:\\thu_muc\\ten_file.txt"
                ;bạn có thể đổi tên lệnh tại defun c:
                ;dán nội dung file diem.txt vào excel sẽ được 3 cột, số hàng tùy theo số điểm mình lấy
                ;sau mỗi lệnh TFF sẽ có file diem.txt mới do đã xóa file cũ
                (defun c:tff ( / tmp dlst p1 file opw)
                (setq tmp t)
                (setq dlst (list))
                (while tmp
                (progn
                (setq p1 (getpoint "\nChon mot diem:"))
                (if p1
                (progn
                (setq dlst (append (list (strcat (rtos (car p1) 2 3)
                "\t"
                (rtos (cadr p1) 2 3)
                "\t"
                (rtos (caddr p1) 2 3)
                ))
                dlst )
                )
                (setq tmp t)
                )
                (setq tmp nil)
                )
                )
                )
                (setq dlst (reverse dlst))
                (setq file "c:\\solieu\\diem.txt"
                opw (open file "w")
                )
                (foreach n dlst (write-line n opw))
                (close opw)
                )

                Ghi chú

                • #9
                  Ðề: Help! Rất cần lisp chuyển số liệu lệnh ID sang exel

                  Nguyên văn bởi danthanh
                  ;trước hết bạn cần phải tạo thư mục solieu tại ổ C ( xem đường dẫn trong chương trình
                  ;bạn ghi nội dung đoạn mã sau thành 1 file có đuôi lsp (VD poi.lsp)
                  ;appload file này bạn sẽ có lệnh TFF
                  ;bạn có thể thay đổi thư mục hoặc tên file "o_dia:\\thu_muc\\ten_file.txt"
                  ;bạn có thể đổi tên lệnh tại defun c:
                  ;dán nội dung file diem.txt vào excel sẽ được 3 cột, số hàng tùy theo số điểm mình lấy
                  ;sau mỗi lệnh TFF sẽ có file diem.txt mới do đã xóa file cũ
                  (defun c:tff ( / tmp dlst p1 file opw)
                  (setq tmp t)
                  (setq dlst (list))
                  (while tmp
                  (progn
                  (setq p1 (getpoint "\nChon mot diem:"))
                  (if p1
                  (progn
                  (setq dlst (append (list (strcat (rtos (car p1) 2 3)
                  "\t"
                  (rtos (cadr p1) 2 3)
                  "\t"
                  (rtos (caddr p1) 2 3)
                  ))
                  dlst )
                  )
                  (setq tmp t)
                  )
                  (setq tmp nil)
                  )
                  )
                  )
                  (setq dlst (reverse dlst))
                  (setq file "c:\\solieu\\diem.txt"
                  opw (open file "w")
                  )
                  (foreach n dlst (write-line n opw))
                  (close opw)
                  )
                  Cảm ơn bạn nhiều nhé. Tôi đã tăng năng suât công việc lên rất nhiều

                  Ghi chú

                  Previous template Next

                  Quảng cáo cuối trang

                  Collapse
                  Working...
                  X