Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
vubaotq

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

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

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

  • Vote giảm 3

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
ketxu    2.652

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

  • Vote giảm 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
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!

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
ketxu    2.652

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 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 ?? smile.png 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á sad.png . 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 smile.png

  • 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
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 ?? smile.png 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á sad.png . 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 smile.png

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.

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

  • 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
quansla    232

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 theo quansla
  • Vote tăng 2

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
quansla    232

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

  • 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
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.

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

  • 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
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.

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

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!

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

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

 

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ẻ
Trả lời  

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

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


×