Chuyển đến nội dung
Diễn đàn CADViet
mr_kao_dhxd

lisp xuất bảng trong cad 2007 ra file exell

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

tình hình là em có bảng khối lượng trong cad 2007 mà không biết xuất ra exell kiểu gì mong các cao nhân giúp em một lisp với ạ..đây là bản vẽ của em ạ http://www.mediafire.com/?mf2xmtn471ak2mt

em cần gấp lắm ạ

em cám ơn nhiều lắm ạ

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ình hình là em có bảng khối lượng trong cad 2007 mà không biết xuất ra exell kiểu gì mong các cao nhân giúp em một lisp với ạ..đây là bản vẽ của em ạ http://www.mediafire.com/?mf2xmtn471ak2mt

em cần gấp lắm ạ

em cám ơn nhiều lắm ạ

 

Bạn đã sử dụng Table làm đối tượng bảng trong CAD

Vậy bạn sử dụng lệnh Tableexport -> để xuất bảng đó sang file Excel

  • 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

Mình thấy tính năng table rất hay. Bạn Tue_NV có thể cho mình biết là size , font chữ bên exel sang cad liên quan như thế nào k? 
Mỗi lần mình chuyển từ exel -> Cad pải chỉnh lại font chữ,size chữ mất công qá.
Thân.

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 Explode Table để được Text (hoặc MText) trước đã, sau đó sử dụng LISP sau, Mở file lyky.txt được xuất ra tại "C:\\lyky.txt" bằng Excel.

(defun C:C2T ( / e f lst ss y z)
  (setq ss  (acet-ss-to-list (ssget '((0 . "TEXT,MTEXT,RTEXT"))))
        lst (mapcar '(lambda (e) (cons(Dxf 10 (entget e)) (Dxf 1 (entget e)))) ss)
        z   (* (Dxf 40 (entget (car ss))) 0.5)
        lst (vl-sort lst (function (lambda (e1 e2) (Compare2D (car e1) (car e2) z))))
        f   (open "C:\\lyky.txt" "w"))
(foreach e lst
(princ (if (equal y (cadr (car e)) z) "\t" "\n") f)
(princ (cdr e) f) (setq y (cadr (car e)))) (close f)
(prompt "Ket qua xuat ra tai C:/lyky.txt"))
(defun Compare2D (p q f / ) (if (equal (cadr p) (cadr q) f) (< (car p) (car q)) (> (cadr p) (cadr q))))
(defun Dxf(n e) (cdr (assoc n e)))
  • 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

Bạn Explode Table để được Text (hoặc MText) trước đã, sau đó sử dụng LISP sau, Mở file lyky.txt được xuất ra tại "C:\\lyky.txt" bằng Excel.

.......

 

Đã có tính năng Export table sang excel (bằng lệnh Tableexport) rồi bạn lyky ơi, không cần phải "nổ" table nữa  

  • 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

Bạn đã sử dụng Table làm đối tượng bảng trong CAD

Vậy bạn sử dụng lệnh Tableexport -> để xuất bảng đó sang file Excel

em đã dùng lệnh và nó ra thế này anh ạ.. có cách nào khắc phục được không ạanh.jpg

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 Explode Table để được Text (hoặc MText) trước đã, sau đó sử dụng LISP sau, Mở file lyky.txt được xuất ra tại "C:\\lyky.txt" bằng Excel.

(defun C:C2T ( / e f lst ss y z)
  (setq ss  (acet-ss-to-list (ssget '((0 . "TEXT,MTEXT,RTEXT"))))
        lst (mapcar '(lambda (e) (cons(Dxf 10 (entget e)) (Dxf 1 (entget e)))) ss)
        z   (* (Dxf 40 (entget (car ss))) 0.5)
        lst (vl-sort lst (function (lambda (e1 e2) (Compare2D (car e1) (car e2) z))))
        f   (open "C:\\lyky.txt" "w"))
(foreach e lst
(princ (if (equal y (cadr (car e)) z) "\t" "\n") f)
(princ (cdr e) f) (setq y (cadr (car e)))) (close f)
(prompt "Ket qua xuat ra tai C:/lyky.txt"))
(defun Compare2D (p q f / ) (if (equal (cadr p) (cadr q) f) (< (car p) (car q)) (> (cadr p) (cadr q))))
(defun Dxf(n e) (cdr (assoc n e)))

em dùng lệnh c2t thì nó ra bang nhưng lại thiếu cột a ạ :(2013-07-18_100053.jpg

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

Dùng cái này nè, rất tiện cho e2c, c2e http://www.cadviet.com/upfiles/3/117873_a.rar

Thân.

em đã thử dùng cái của anh các bước em làm là thế này ạ em chọn cad qua exell --> chọn căn hiệu chỉnh bảng--> vào file cad chọn bảng -->chọn text và xuất ra xell nhưng không thấy hiện bất kỳ một bảng text hay xell nào ở ngoài anh ạ. cách làm của em đã đúng chưa ạ, em cảm ơn

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

em đã dùng lệnh và nó ra thế này anh ạ.. có cách nào khắc phục được không ạanh.jpg

Lỗi này là do định dạng dấu chấm (.) và dấu phẩy (,).

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

File xuất ra là file *.csv. 

Bạn mở file excel lên -> Chọn đuôi *.csv và mở lên.

File Excel (.csv) của bạn đây:

http://www.cadviet.com/upfiles/3/4652_table1.rar

anh có thể hướng dẫn em chi tiết cách làm được không ạ vì em dùng lệnh tableexport sau đó kích vào cạnh bảng rồi lưu ra file thì bảng của em vẫn như thế kia không được như của anh làm ạ

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

Có phải bạn đang định dạng dấu chấm (.) và phẩy (,) theo TCVN không? Nếu vậy thì định dạng ngược lại thôi.

vâng em làm được rồi ạ. em cám ơn anh

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


×