AutoLisp copy "TEXT" từ Cad sang Excel và ngược lại

[vubaotq 3]

Mình có một lisp để có thể thao tác sử lý chuyển đổi nhanh chóng và đơn giản (chỉ bằng 1 cú click chuột) tất cả các dữ liệu dạng "text" từ AutoCad sang Excel và ngược lại, rất tiện dụng cho các bác QA/QS tính toán với vô vàn con số.

Giờ đây các bạn hoàn toàn có thể copy cả một kho dữ liệu từ Cad sang Excel mà không cần phải chuyển đổi qua lại để nhập vào Office nữa, nói chung là bạn sử dụng sẽ thấy rất tuyệt vời.

***

***

 

Update: Link download & use:

http://cauduongbkdn.com/f@rums/showthread.php?39316-Xu%E1%BA%A5t-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-Cad-Sap-qua-Excel-v%C3%A0-ng%C6%B0%E1%BB%A3c-l%E1%BA%A1i

[hakhoailang 2]

tốt nhất là bác post lên cho anh em học hỏi .

[vubaotq 3]

Mời bạn làm theo hd, chúc bạn Vui- Khoẻ

[ketxu 2.984]

Cái này là VBA , mà cũng có từ lâu rồi bạn nhé. Việc bạn lập topic không theo quy định của diễn đàn là nguy lắm ^^

[vubaotq 3]

Cái này là VBA , mà cũng có từ lâu rồi bạn nhé. Việc bạn lập topic không theo quy định của diễn đàn là nguy lắm ^^

Xin đính chính bạn lại rằng VBA up trên forums là mình lập top  cách đây t.g khá lâu rồi. Do yêu cầu của một số mem và report search mình thấy khá nhiều nên mình up lại tiện cho mọi người theo dõi. Những bạn đã load về rồi thì có thể bỏ qua. Trc khi bạn chỉ trích ai xin hãy coi dõ nguồn bạn nhé!. Thân!

[ketxu 2.984]

Xin đính chính bạn lại rằng VBA up trên forums là mình lập top  cách đây t.g khá lâu rồi. Do yêu cầu của một số mem và report search mình thấy khá nhiều nên mình up lại tiện cho mọi người theo dõi. Những bạn đã load về rồi thì có thể bỏ qua. Trc khi bạn chỉ trích ai xin hãy coi dõ nguồn bạn nhé!. Thân!

Rõ chứ bạn. 

 

Năm mới mình ngại chỉ rõ cái nguy như mình đã nói ở #2, mà bác Hoành mới update lại chức năng -, nên mình chỉ - chứ không del bài, nay bạn lại mừng tuổi mình cái - thì mình nói thêm 1 chút cho nó sáng ^^

 

- Bài viết vi phạm nội quy của box và diễn đàn ở các điểm sau :

+ Mở nhiều topic trùng nội dung

+ Tiêu đề sai quy định box

+ Post bài nội dung trùng lặp mà không search 

( Nếu bạn chưa đọc thì có thể đọc ngay dưới chữ ký mình đã dẫn link - Trên lý thuyết là mình sẽ xóa)

 

 

- Không biết bạn post cái này trên 4r nào và bao giờ, mình đặt 2 giả thiết : 

 1+  Ví dụ, nếu là trên chính Cadviet, mình search nhanh thì thấy bài này :(không biết còn ở đâu không)

 

http://www.cadviet.com/forum/topic/407-autocad-voi-excel/?p=150918

Vậy đấy là ai nhỉ ^^

Tất nhiên người post file này mang nick khác bạn. Lại có 2 giả thiết :

      -/ Đó vẫn là bạn, vậy bạn tạo 2 nick khác nhau à, làm chi vậy ?? Nếu thế thì bạn cũng không thể la rằng "sao mod k biết là bạn lập topic trước đây khá lâu" . Mà về cơ bản đây cũng chỉ là 1 reply, không phải 1 topic

      -/ Đó không phải là bạn. Nếu thế thì bạn không thể trách mod khiển trách bạn post trùng bài

 

Trong trường hợp bạn còn topic đó thì có thể do trình search của ketxu kém quá . Mà rất tiếc những topic do chính nick bạn lập thì không có

 

 

2+   Nếu bạn post bài đó từ lâu trên forum khác thì chẳng liên quan gì đến Cadviet cả, vấn đề vẫn là "đã có trên CV và nick đó không phải nick bạn" 

 

 

Và dù giả thiết nào đi nữa, bạn cũng khó trả lời là sao không viết vào chính topic bạn lập đó, nếu topic đó không còn thì sao không tạo một topic đúng quy định ? 

 

P/s :  Mình có thấy cái bài mình nói nó "Chỉ trích" ở chỗ nào đâu nhỉ ^^ Mình chỉ thông báo cho bạn biết là cái file nó đã có, và thắc mắc tại sao bạn post mà lại hem biết nó là cái chi chi ^^

 

Dù sao thì cũng dành tặng bạn một Thank vì tinh thần chia sẻ, rất mong bạn cũng như ketxu rút kinh nghiệm và cùng chia sẻ những điều bổ ích trên diễn đàn ^^ Năm mới phơi phới

[vubaotq 3]

Rõ chứ bạn. 

 

Năm mới mình ngại chỉ rõ cái nguy như mình đã nói ở #2, mà bác Hoành mới update lại chức năng -, nên mình chỉ - chứ không del bài, nay bạn lại mừng tuổi mình cái - thì mình nói thêm 1 chút cho nó sáng ^^

 

- Bài viết vi phạm nội quy của box và diễn đàn ở các điểm sau :

+ Mở nhiều topic trùng nội dung

+ Tiêu đề sai quy định box

+ Post bài nội dung trùng lặp mà không search 

( Nếu bạn chưa đọc thì có thể đọc ngay dưới chữ ký mình đã dẫn link - Trên lý thuyết là mình sẽ xóa)

 

 

- Không biết bạn post cái này trên 4r nào và bao giờ, mình đặt 2 giả thiết : 

 1+  Ví dụ, nếu là trên chính Cadviet, mình search nhanh thì thấy bài này :(không biết còn ở đâu không)

 

http://www.cadviet.com/forum/topic/407-autocad-voi-excel/?p=150918

Vậy đấy là ai nhỉ ^^

Tất nhiên người post file này mang nick khác bạn. Lại có 2 giả thiết :

      -/ Đó vẫn là bạn, vậy bạn tạo 2 nick khác nhau à, làm chi vậy ?? Nếu thế thì bạn cũng không thể la rằng "sao mod k biết là bạn lập topic trước đây khá lâu" . Mà về cơ bản đây cũng chỉ là 1 reply, không phải 1 topic

      -/ Đó không phải là bạn. Nếu thế thì bạn không thể trách mod khiển trách bạn post trùng bài

 

Trong trường hợp bạn còn topic đó thì có thể do trình search của ketxu kém quá . Mà rất tiếc những topic do chính nick bạn lập thì không có

 

 

2+   Nếu bạn post bài đó từ lâu trên forum khác thì chẳng liên quan gì đến Cadviet cả, vấn đề vẫn là "đã có trên CV và nick đó không phải nick bạn" 

 

 

Và dù giả thiết nào đi nữa, bạn cũng khó trả lời là sao không viết vào chính topic bạn lập đó, nếu topic đó không còn thì sao không tạo một topic đúng quy định ? 

 

P/s :  Mình có thấy cái bài mình nói nó "Chỉ trích" ở chỗ nào đâu nhỉ ^^ Mình chỉ thông báo cho bạn biết là cái file nó đã có, và thắc mắc tại sao bạn post mà lại hem biết nó là cái chi chi ^^

 

Dù sao thì cũng dành tặng bạn một Thank vì tinh thần chia sẻ, rất mong bạn cũng như ketxu rút kinh nghiệm và cùng chia sẻ những điều bổ ích trên diễn đàn ^^ Năm mới phơi phới

Thanks bác góp ý, cái nút give thanks ở đâu ấy nhỉ, đầu xuân đúng sai luận sau, tất cả cũng chỉ để mọi người đc trải nghiệm sự hữu ích mà thôi.

[haibinh_pham 5]

Mình thấy hay và mới có ứng dụng Thứ 3 trong didg.rar tức là vẽ tọa độ qa excel

         Còn copy từ excel sang cad và ngược lại Như của bạn làm thì ở trong cad cũng có hỗ trợ mà

         Mình không biết quay video thao tác trên màn hình và ghi lại nhưng bạn nào cần thì mình có yahoo hattieu.liuoxa .L/H qua đó kết nối teamviewer thì mình giúp

hoặc giậy mình cách quay màn hình mình quay và post lên cho

[quansla 259]

Mình có một lisp để có thể thao tác sử lý chuyển đổi nhanh chóng và đơn giản (chỉ bằng 1 cú click chuột) tất cả các dữ liệu dạng "text" từ AutoCad sang Excel và ngược lại, rất tiện dụng cho các bác QA/QS tính toán với vô vàn con số.

Giờ đây các bạn hoàn toàn có thể copy cả một kho dữ liệu từ Cad sang Excel mà không cần phải chuyển đổi qua lại để nhập vào Office nữa, nói chung là bạn sử dụng sẽ thấy rất tuyệt vời.

***

***

 

Update: Link download & use:

http://cauduongbkdn.com/f@rums/showthread.php?39316-Xu%E1%BA%A5t-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-Cad-Sap-qua-Excel-v%C3%A0-ng%C6%B0%E1%BB%A3c-l%E1%BA%A1i

Hix, mình thì không có và nhìn sơ sơ thì có vẻ là mình không quen dùng, mình viết tạm cái lísp này vậy

Mới chỉ có khả năng copy text , Mtext từ Cad ra Txt thôi, phải thêm một công đoạn nữa nếu mún sang Excel

Còn từ Excel về Txt rồi qua Cad thì từ từ mình tính(hix, khả năng có hạn, mà cố quá khéo quá cố mất)

đây là líp. tên lệnh là copy_cad_txt . Cách sử dụng là gõ tên lệnh, chọn File Txt có sẵn(lưu ý sẽ bị ghi đè lên giữ liệu cũ) hoặc lưu vào File txt mới. Sau đó quét chẽ text bình thường

Anh Admin ơi sao giờ khó viết thế, anh chỉ em cách tắt Check chính tả và bật mấy cái vụ làm chữ đậm, in nghiêng, bôi đen tô mầu với

{ đoạn này em sửa được rồi, nhưng giờ ko nhanh như trước- chỉ còn đoạn tắt chính tả thôi- mong Ad giúp}

Đây là líp

(defun c:copy_cad_txt (/ Tieude TenFile f lst i xau N x y)  (vl-load-com)    (setq	TenFile (getfiled "Chon file .txt:" "" "txt" 5))    (setq lst (vl-sort (acet-ss-to-list (ssget '(( 0 . "*text"))))	 '(lambda (x y / px py )	    (if (not (equal		       (cadr (setq px (cdr(assoc 10 (entget x)))))		       (cadr (setq py (cdr(assoc 10 (entget y)))))		       1E-3))	      (> (cadr px) (cadr py))	      (< (car px) (car py))	      	      )	    )	 ))  (setq Tieude (strcat (getvar "dwgprefix") (getvar "dwgname") "\n" "\n"))  (setq xau (strcat Tieude (cdr (assoc 1 (entget (setq m1 (car lst))) )))	i 0	N (length lst))  (while (< i (1- N))    (if (equal	  (caddr(assoc 10 (entget (nth i lst)) ))	  (caddr(assoc 10 (entget (nth (1+ i) lst)) ))	  1E-3)      (setq xau (strcat xau "\t" (cdr (assoc 1 (entget (nth (1+ i) lst))))))      (setq xau (strcat xau "\n" (cdr (assoc 1 (entget (nth (1+ i) lst)))) ))      )    (setq i (1+ i))    )  (progn        (setq f (open TenFile "w"))    (write-line xau f)    (close f)    )  (prompt (strcat "Da xuat cac Text duoc chon ra: "  TenFile ))  (princ)  )

Chỉnh sửa Tháng 2 21, 2013 theo quansla

[quansla 259]

Chẳng thấy ai quan tâm gì cả, mình vừa xem lại có lẽ không lên ghi đè mà chỉ lên thêm vào cuối thôi, ai muốn sửa lại theo ý này thì đoạn này trong Codẻ

(setq f (open TenFile "w"))

 

Sửa thành 

(setq f (open TenFile "a"))

 

(Sửa "w" thành "a")

[vubaotq 3]

 

Hix, mình thì không có và nhìn sơ sơ thì có vẻ là mình không quen dùng, mình viết tạm cái lísp này vậy

Mới chỉ có khả năng copy text , Mtext từ Cad ra Txt thôi, phải thêm một công đoạn nữa nếu mún sang Excel

Còn từ Excel về Txt rồi qua Cad thì từ từ mình tính(hix, khả năng có hạn, mà cố quá khéo quá cố mất)

đây là líp. tên lệnh là copy_cad_txt . Cách sử dụng là gõ tên lệnh, chọn File Txt có sẵn(lưu ý sẽ bị ghi đè lên giữ liệu cũ) hoặc lưu vào File txt mới. Sau đó quét chẽ text bình thường

Anh Admin ơi sao giờ khó viết thế, anh chỉ em cách tắt Check chính tả và bật mấy cái vụ làm chữ đậm, in nghiêng, bôi đen tô mầu với

{ đoạn này em sửa được rồi, nhưng giờ ko nhanh như trước- chỉ còn đoạn tắt chính tả thôi- mong Ad giúp}

Đây là líp

(defun c:copy_cad_txt (/ Tieude TenFile f lst i xau N x y)  (vl-load-com)    (setq	TenFile (getfiled "Chon file .txt:" "" "txt" 5))    (setq lst (vl-sort (acet-ss-to-list (ssget '(( 0 . "*text"))))	 '(lambda (x y / px py )	    (if (not (equal		       (cadr (setq px (cdr(assoc 10 (entget x)))))		       (cadr (setq py (cdr(assoc 10 (entget y)))))		       1E-3))	      (> (cadr px) (cadr py))	      (< (car px) (car py))	      	      )	    )	 ))  (setq Tieude (strcat (getvar "dwgprefix") (getvar "dwgname") "\n" "\n"))  (setq xau (strcat Tieude (cdr (assoc 1 (entget (setq m1 (car lst))) )))	i 0	N (length lst))  (while (< i (1- N))    (if (equal	  (caddr(assoc 10 (entget (nth i lst)) ))	  (caddr(assoc 10 (entget (nth (1+ i) lst)) ))	  1E-3)      (setq xau (strcat xau "\t" (cdr (assoc 1 (entget (nth (1+ i) lst))))))      (setq xau (strcat xau "\n" (cdr (assoc 1 (entget (nth (1+ i) lst)))) ))      )    (setq i (1+ i))    )  (progn        (setq f (open TenFile "w"))    (write-line xau f)    (close f)    )  (prompt (strcat "Da xuat cac Text duoc chon ra: "  TenFile ))  (princ)  )

"Cách tắt Check chính tả và bật mấy cái vụ làm chữ đậm, in nghiêng, bôi đen tô mầu"

Cái này ngày trc mh cũng bị mắc, nhưng sau một t.g mày mò mh đã có cách khắc phục rất tiện dụng, nhanh, chính xác. Mình ở HN khi nào rảnh qua mh hd, nói chung là nhanh thui.

[vubaotq 3]

Mình thấy hay và mới có ứng dụng Thứ 3 trong didg.rar tức là vẽ tọa độ qa excel

         Còn copy từ excel sang cad và ngược lại Như của bạn làm thì ở trong cad cũng có hỗ trợ mà

         Mình không biết quay video thao tác trên màn hình và ghi lại nhưng bạn nào cần thì mình có yahoo hattieu.liuoxa .L/H qua đó kết nối teamviewer thì mình giúp

hoặc giậy mình cách quay màn hình mình quay và post lên cho

Rất vui nếu bạn chia sẻ cách làm trên 4rum.

Bạn có thể tải chương trình quay video màn hình tại đây: http://www.download.com.vn/Download/DownloadUrl?softwareid=19334&url=http%3A%2F%2Fwww.videotool.net%2Fdownload%2Fscreenrecorderfree.exe

OR: http://sinhvienit.net/@forum/threads/209691-camtasia-studio-7-1-full-crack-phan-mem-quay-phim-man-hinh-chuyen-nghiep/

[haibinh_pham 5]

[vubaotq 3]

 

Ok, Cám ơn bạn đã chia sẻ một cách làm khác khá hay là dựa

trên việc copy qua môi trường  Mtext

(Mtext giúp chúng ta chuyển qua lại một cách thuận tiện từ Cad <->

Excel). Cám ơn bạn, bạn cũng là thành

viên của VBA.

[cfconice 0]

Cám ơn vì đã chia sẻ

[vubaotq 3]

Cám ơn vì đã chia sẻ

 

 

 

Ngắm gái 24h

4rum không kèm Link quảng cáo bạn nhé! 

Thân!

[phamductai1989 0]

Xin đính chính bạn lại rằng VBA up trên forums là mình lập top  cách đây t.g khá lâu rồi. Do yêu cầu của một số mem và report search mình thấy khá nhiều nên mình up lại tiện cho mọi người theo dõi. Những bạn đã load về rồi thì có thể bỏ qua. Trc khi bạn chỉ trích ai xin hãy coi dõ nguồn bạn nhé!. Thân!

[aonisuri 0]

bạn ơi cho mình hỏi tại sao mình copy từ cad 2010 sang exel 2013 lại ko thực hiện dc bạn ak. mong bạn hướng dẫn giúp mình vs mình đang cần gấp :( thanks bạn nhiều

[benktx 0]

http://www.youtube.com/watch?v=MFZ43cywLeQ&feature=youtu.be

Cám ơn bạn vì đã chia sẽ 

[vankhang071183 0]

 

Chào các bạn chia sẻ với các bạn Addins Lấy tọa độ điểm cực nhanh trong AUTOCAD

Xuất bảng tọa độ sang excel luôn , cực kỳ tiện lợi

của các kỹ sư HÀN QUỐC chia sẻ

https://www.youtube.com/watch?v=qvmSkvEFxok

Trả lời  

 Có luôn tính năng copy dữ liệu từ cad dang excel

[vankhang071183 0]

[davie2557 1]

Thanks. đúng cái mình cần.

[binhnguyen.haui 1]

Sao mình copy từ Ecel -->Cad thì được mà từ Cad--?Excel thì không hiện ra để kích Ok nhỉ.
Mong các bạn giúp đỡ