Trang 2 của 4 Đầu tiênĐầu tiên 1234 CuốiCuối
Kết quả 11 đến 20 của 37

Chủ đề: Làm sao lấy dữ liệu trong cad qua excel?

  1. #11
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Vì đối tượng text trong Cad phân bố không theo quy luật nên không thể copy vào bảng tính excel giống như xuất hiện trên Cad. Nếu text nằm trong Table (từ cad 2006 trở đi) có thể làm được.

  2. #12
    Thực sự thì vấn đề này không dễ vì bản vẽ acad thường không chuẩn, các text không chắc chắn là cùng toạ dộ x (hoặc cùng y)
    Mình cũng phải thường lấy text trong bảng mặt cắt địa chất ra excel, nhưng chưa có thời gian để tìm ra cách viết bằng VBA
    Hiện tại mình dùng lisp sau.
    (xem file attach)
    Dùng lệnh ExportText sau đó chọn bảng, mở file "e:data.txt" rồi copy vào excel

  3. #13
    anhhungan Guest
    Lisp này của bác Nguyễn Hoành bên Cad việt, chạy theo hàng ngang, hết hàng tự chuyển xuống. khi save thành đuôi *.csv. nhưng cũng phải cẩn thận sau mỗi dấu phẩy trong câu nó cũng tự chuyển cột vì trong mặc định của Text import wizard trong cell hiểu vậy thì phải, nhưng nếu là số thì OK.


    Mã:
    (defun c:c2e ( / hangdau)
    (defun sosanh (e1 e2 / p1 p2)
    (setq p1 (car e1)
    p2 (car e2)
    )
    (if (equal (cadr p1) (cadr p2) fuzz)
    (< (car p1) (car p2))
    (> (cadr p1) (cadr p2))
    )
    )
    (setq
    ss (ssget '((0 . "TEXT")))
    lst (ss2ent ss)
    lst (mapcar '(lambda (e) (cons (cdr (assoc 10 (entget e))) (cdr (assoc 1 (entget e))))) lst)
    caotext (cdr (assoc 40 (entget (ssname ss 0))))
    fuzz (* caotext 1.0)
    lst (vl-sort lst 'sosanh)
    index 1
    oldy nil
    fn (getfiled "Chon file de save" "" "csv" 1)
    fid (open fn "w")
    )
    (foreach e lst
    (if (equal oldy (cadr (car e)) fuzz)
    (progn
    (princ "," fid)
    (setq index (1+ index))
    )
    (progn
    (if hangdau
    (progn
    (setq index 1)
    (princ "
    " fid)
    )
    (setq hangdau t)
    )
    )
    )
    (princ (cdr e) fid)
    (setq oldy (cadr (car e)))
    )
    (close fid)
    )
    (defun ss2ent (ss / sodt index lstent)
    (setq
    sodt (if ss
    (sslength ss)
    0
    )
    index 0
    )
    (repeat sodt
    (setq ent (ssname ss index)
    index (1+ index)
    lstent (cons ent lstent)
    )
    )
    (reverse lstent)
    )

  4. #14
    thanhbinh0824h Guest
    Tôi chưa xác định được quy luật phân phối text trong Cad bằng VBA, nếu xây dựng bảng Table (từ Câd200 trở lên) thì vấn đề này giải quyết được tốt.

  5. #15
    hailong Guest
    Việc này tôi vẫn giải quyết được miễn là dữ liệu trong ACad là text va sắp xếp tương đối theo bảng thi khả năng chuyển sang Cell gần như tuyệt đối.
    - Thứ nhất: chuyển dữ liệu trong Acad với mỗi cột tương ứng với một layer
    - Thứ hai: chuyển dữ liệu từ Acad sang Cell với mỗi layer vào một cột (lúc này thứ tự dữ liệu chưa đúng như dữ liệu gốc). Để giải quyết được vấn đề này bạn chỉ cần lấy tọa độ của text trong ACad và sắp xếp lại nó trong Cell.
    Bạn thử xem, tôi thường dùng để chuyển dữ liệu thống kê thép từ ACad sang Cell.
    Chúc bạn thành công!

  6. #16
    mantrangchu Guest
    Bạn dùng lệnh Dataextraction trong Cad2008 la co the lay duoc so lieu tu Cad sang Excel. Ban chon toan bo Text ban muon lay, sau mot hoi Next ban chi can chon Text và Geometry. Tiep tuc next va chi chon Value va Position X, hoặc Position Y. Lai tiếp tục Next và Next. Số liệu đó được xuất ra file Excel nằm trong My Document, ban mở file do ra và sắp xếp theo giá trị tăng hoặc giảm dần của X, Y là xong.
    Bạn làm thử đi, quen rồi thấy rất tiện và chính xác.

  7. #17
    tranhiep_116 Guest
    Trích dẫn Gửi bởi ngoduong
    Bạn dùng lệnh Dataextraction trong Cad2008 la co the lay duoc so lieu tu Cad sang Excel. Ban chon toan bo Text ban muon lay, sau mot hoi Next ban chi can chon Text và Geometry. Tiep tuc next va chi chon Value va Position X, hoặc Position Y. Lai tiếp tục Next và Next. Số liệu đó được xuất ra file Excel nằm trong My Document, ban mở file do ra và sắp xếp theo giá trị tăng hoặc giảm dần của X, Y là xong.
    Bạn làm thử đi, quen rồi thấy rất tiện và chính xác.
    Nhưng để lồng vào một chương trình khác thì hơi khó.
    Ví dụ chương trình tính san nền trong cad nhưng lại kết xuất dữ liệu sang excel để làm báo cáo thì dùng cái này không tiện phải không bạn?

  8. #18
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Bó tay thật đấy, chưa nghe cái kiểu chuyển dữ liệu từ cad sang excel bao giờ, mà chỉ có kiểu hình ảnh thôi, nếu cao thủ nào giúp và post cho anh em tham khảo thì công việc giảm đi rất nhiều, nhất là những bảng thống kê dữ liệu từ cad mà ta ko phải nhập lại cho đỡ mệt và tránh được khỏi nhầm lẫn

  9. #19
    capquangvnpt24h Guest
    Trích dẫn Gửi bởi ngoduong
    Bạn dùng lệnh Dataextraction trong Cad2008 la co the lay duoc so lieu tu Cad sang Excel. Ban chon toan bo Text ban muon lay, sau mot hoi Next ban chi can chon Text và Geometry. Tiep tuc next va chi chon Value va Position X, hoặc Position Y. Lai tiếp tục Next và Next. Số liệu đó được xuất ra file Excel nằm trong My Document, ban mở file do ra và sắp xếp theo giá trị tăng hoặc giảm dần của X, Y là xong.
    Bạn làm thử đi, quen rồi thấy rất tiện và chính xác.
    Đúng là có thể lấy được như vậy nhưng việc xuất số liệu sang excel kết quả chỉ cho vào một cột là value, trong khi nếu trong cad một bảng có nhiều hàng và cột thì hic...hic, xuất các giá trị vào excel lại lung tung. Ví dụ, trong cad tôi có bảng là
    a b c
    1 2 3
    3.2 4.5 1.4
    thì khi xuất sang excel lại chỉ có một cột
    a
    1
    3.2
    4.5
    b
    2
    c
    3
    1.4
    như vậy sẽ khó quản lý số liệu, vậy bác có thể chỉ rõ làm thế nào để xuất sang excel cũng có được kết quả :
    a b c
    1 2 3
    3.2 4.5 1.4
    như trong bảng của cad?

  10. #20
    trandaubds Guest
    Trích dẫn Gửi bởi khoitdc
    Bó tay thật đấy, chưa nghe cái kiểu chuyển dữ liệu từ cad sang excel bao giờ, mà chỉ có kiểu hình ảnh thôi, nếu cao thủ nào giúp và post cho anh em tham khảo thì công việc giảm đi rất nhiều, nhất là những bảng thống kê dữ liệu từ cad mà ta ko phải nhập lại cho đỡ mệt và tránh được khỏi nhầm lẫn
    Mình cũng đang tìm hiểu vấn đề này. Có sách về nó đấy bạn vào google tìm
    AutoCAD integrated with MS excel sẽ có ngay!

Trang 2 của 4 Đầu tiênĐầu tiên 1234 CuốiCuối

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •