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

[mr_kao_dhxd 0]

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 ạ

[sonnv36 12]

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.

[Tue_NV 3.912]

 

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 ạ

Similar topics from web:

Làm sao lấy dữ liệu trong cad qua excel?

Chia sẻ Bộ Lisp rất hay: ”Kho báu của Minh” [Lưu Trữ]

Visual Lisp? [Lưu Trữ]

[Đã xong] Lisp xuất-nhập toạ độ

Thư viện

Download Phần mềm thống kê cốt thép TIP

Thư viện Autolisp

Mẹo vặt trong CAD

Chuyên trang đào tạo kiến thức và phần mềm kỹ thuật hạ tầng đô thị ...

Lisp chuyển Line thành Polyline

Lisp xuất nhập tọa độ, cao độ từ CAD ra file TXT

Hỏi

Tổng hợp các lisp hay cho AutoCad

Tìm hiểu ngôn ngữ AutoLISP và ứng dụng trong AutoCAD

 

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

[sonnv36 12]

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.

[lyky 126]

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)))

[Tue_NV 3.912]

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  

[mr_kao_dhxd 0]

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 ạ

[mr_kao_dhxd 0]

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 ạ :(

[mr_kao_dhxd 0]

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

[Tue_NV 3.912]

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

[Doan Van Ha 3.191]

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

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

[mr_kao_dhxd 0]

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 ạ

[mr_kao_dhxd 0]

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

thưa anh mình chỉnh sửa bằng cách nào ạ

[Doan Van Ha 3.191]

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.

[mr_kao_dhxd 0]

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

[mr_kao_dhxd 0]

em cám ơn mọi người đã giúp em em làm được rồi ạ :)