Rated 5/5 based on 240179 internet user reviews

Đến nội dung


Hình ảnh
* - - - - 1 Bình chọn

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


  • Please log in to reply
17 replies to this topic

#1 vubaotq

vubaotq

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 18 February 2013 - 04:53 PM

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....el-và-ngược-lại


  • -3

#2 hakhoailang

hakhoailang

    biết lệnh rotate

  • Members
  • PipPipPip
  • 131 Bài viết
Điểm đánh giá: 2 (bình thường)

Đã gửi 18 February 2013 - 06:15 PM

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


  • 1

#3 vubaotq

vubaotq

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 19 February 2013 - 10:46 AM

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


  • 1

#4 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5506 Bài viết
Điểm đánh giá: 2523 (tuyệt vời)

Đã gửi 19 February 2013 - 10:55 AM

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


  • -1

Thành viên nhóm CadMagic.

Mời bạn ghé thăm facebook nhóm  :

CAD MAGIC


#5 vubaotq

vubaotq

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 19 February 2013 - 04:13 PM

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!


  • 0

#6 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5506 Bài viết
Điểm đánh giá: 2523 (tuyệt vời)

Đã gửi 19 February 2013 - 10:30 PM

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


  • 1

Thành viên nhóm CadMagic.

Mời bạn ghé thăm facebook nhóm  :

CAD MAGIC


#7 vubaotq

vubaotq

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 20 February 2013 - 04:41 PM

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


  • 0

#8 haibinh_pham

haibinh_pham

    biết vẽ arc

  • Members
  • PipPip
  • 49 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 21 February 2013 - 09:05 PM

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


  • 1

#9 quansla

quansla

    biết lệnh xclip

  • Members
  • PipPipPipPipPipPipPip
  • 602 Bài viết
Điểm đánh giá: 211 (khá)

Đã gửi 22 February 2013 - 12:18 AM

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....el-và-ngược-lại

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



Bài viết đã được chỉnh sửa nội dung bởi quansla: 22 February 2013 - 12:25 AM

  • 2

#10 quansla

quansla

    biết lệnh xclip

  • Members
  • PipPipPipPipPipPipPip
  • 602 Bài viết
Điểm đánh giá: 211 (khá)

Đã gửi 22 February 2013 - 12:48 PM

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


  • 1

#11 vubaotq

vubaotq

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 22 February 2013 - 01:24 PM

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.


  • 0

#12 vubaotq

vubaotq

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 22 February 2013 - 01:27 PM

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....ecorderfree.exe

OR: http://sinhvienit.ne...-chuyen-nghiep/


  • 1

#13 haibinh_pham

haibinh_pham

    biết vẽ arc

  • Members
  • PipPip
  • 49 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 23 February 2013 - 09:10 AM


  • 0

#14 vubaotq

vubaotq

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 February 2013 - 10:35 AM

 

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.


  • 0

#15 cfconice

cfconice

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 23 February 2013 - 10:44 AM

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


  • 0

#16 vubaotq

vubaotq

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 23 February 2013 - 10:53 AM

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



Ngắm gái 24h

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

Thân!


  • 0

#17 phamductai1989

phamductai1989

    biết pan

  • Members
  • Pip
  • 7 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 03 April 2015 - 12:26 PM

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!


  • 0

#18 aonisuri

aonisuri

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 25 April 2015 - 09:29 PM

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


  • 0