Đến nội dung


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

AutoCAD với Excel


  • Please log in to reply
199 replies to this topic

#181 dr.quan

dr.quan

    biết zoom

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

Đã gửi 15 April 2010 - 11:33 PM

anh Nguyenhoanh ơi anh cho em hỏi là đánh lệnh vao đâu thế anh. em mới học cad anh à hihi. anh cho em yahoo hay number phone của anh đi! :undecided:
  • 0

#182 tinquocnguyen

tinquocnguyen

    Chưa sử dụng CAD

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

Đã gửi 20 May 2010 - 11:44 AM

mình đang sư dụng autocad 2007 và office 2003. mình có điều này hỏi các bạn:
mình vẽ trong autocad một cây dài 30 x 50 x 5 thì trong excel cập nhặt vào các ô tương sứng là dài 30 rộng 50 dày 5
mong các bạn gần xa giúp cho mình. mình đang rất cần sự giúp đỡ các bạn
  • 0

#183 DuongTrungHuy

DuongTrungHuy

    biết lệnh copy

  • Members
  • PipPipPip
  • 116 Bài viết
Điểm đánh giá: 41 (tàm tạm)

Đã gửi 22 May 2010 - 08:28 AM

Dạ e đi đo mặt bằng, nhập điểm lập bình đồ. Nếu đo bằng máy kinh vĩ thì chỉ có khoảng cách và góc quay so với mốc chuẩn thôi bác ạ. Còn nếu đo bằng máy toàn đạc có tọa độ X,Y,Z thì họ cũng đổ vào excel khi giao cho e. Ngồi nhập từng điểm 1 thì lâu quá. Mong bác chỉ cho.

Mình có 1 chương trình để xử lý số liệu đo bằng kinh vĩ trên Excel nếu Bạn là chuyên đụng vấn đề này thì liên lạc với mình!
  • 0

#184 okienvangs

okienvangs

    biết zoom

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

Đã gửi 07 July 2010 - 11:05 AM

Mọi người có ai xài excellink 2011 không cho mình xin crack với!!
  • 0

*-*Tuổi trẻ yêu như điên, về già điên mới yêu... *->


#185 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 13 July 2010 - 12:19 AM

Nhân chủ đề trao đổi dữ liệu Cad và Excel. Trước đây em có làm đề tài tự động hoá thiết kế Cầu dầm BTCT DƯL và dùng ngôn ngữ VBA trao đổi cơ sở Excel và Cad thấy khá gần gũi và thành công. Không biết các anh thấy ntn ? Khi nào rảnh em sẽ post code lên ( hiện tại e đang bận với dự án mà nhờ bác Hoanh viết Lisp)
  • 0

#186 bocapran

bocapran

    biết pan

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

Đã gửi 06 August 2010 - 10:16 PM

Cám ơn bạn về chầu giao lưu. Có duyên ắt sẽ gặp!
My email: ngomai@khatoco.com

Cảm ơn bác SSG nhiều, chương trình chạy tuyệt vời, đúng theo ý tưởng của e. Hy vọng sớm có duyên.
E sẽ mail địa chỉ mail và phone của e cho bác.


Các bác cho em hỏi chút. Bên địa hình cung cấp cho em đường địa hình dạng polyline nối liền nhiều điểm. Họ có cột cao độ và cự ly. Có cách nào đưa giá trị cao độ và cự ly về dạng file txt rùi cho vào excel ko ạ.
  • 0

#187 avguy

avguy

    biết pan

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

Đã gửi 12 August 2010 - 09:09 PM

From AutoCad 2008 up

Dùng Table kết hợp với Datalink là có thể đạt được nguyện vọng rồi. Mình có viết một bài ngắn (tiếng Anh) muốn gởi tặng mọi người ở đây nhưng không upload được. Bạn nào thích thì email cho mình (avguycf@yahoo)
  • 0

#188 kegiaumat

kegiaumat

    biết vẽ circle

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

Đã gửi 04 September 2010 - 07:23 PM

Về vấn đề VBA lisp thì theo sở thích của mỗi người thôi. nhưng theo mình thì nếu đã thành thạo về autocad thì theo con đường lisp có vẻ nhanh hơn
  • 0

#189 truongthanh

truongthanh

    biết lệnh text

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

Đã gửi 27 September 2010 - 10:21 AM

Bạn dùng thử xem có được không.
http://www.mediafire.../ThongSoOng.rar

Link này die rồi!các anh chị có thể up lại cho em tham khảo được ko ạ?
Thanks nhiều!
  • 0

#190 sonfa02

sonfa02

    biết vẽ line

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

Đã gửi 27 September 2010 - 12:45 PM

vba cho cad ah. thử qua http://www.arttool.v....arttool#pid628 xem sao, có thể giúp gì đó cho ai muốn học hỏi thêm nhiều cách mới
  • 0

#191 COTCET

COTCET

    Chưa sử dụng CAD

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

Đã gửi 08 October 2010 - 12:20 PM

chào các bác cho em hỏi 1 chút về list exppnt-imppnt khi em imppnt thì ở cad cho ra cả toạ độ và cao độ nhưng khi em exppnt thì file txt ở excell chỉ xuất hiện toạ độ thôi mà cao độ thì toàn ra 0.00 hà xin các bác chỉ giáo, em làm bên khảo sát nê rất cần cho ra cả cao đô và toạ độ, tiện đây em xin upload file cad của em lên: http://www.cadviet.c...les/3/289_1.dwg
em cũng xin up file exppnt lên các bác xem giùm http://www.cadviet.c...thay_cao_do.txt
  • 0

#192 Du Ha

Du Ha

    biết pan

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

Đã gửi 28 October 2010 - 06:15 PM

AutoCAD 2008 đã hỗ trợ liên kết dữ liệu với excel rồi đấy :lol:

Chào các bác
Mong các bác chỉ giúp vấn đề em gặp phải dưới đây
Em muốn chuyển dữ liệu CAD sang file excel có sẵn
Về file CAD:
- Dữ liệu chuyển là Dtext và Mtext
- Text viết được bỏ dấu theo cách / của font chữ
Em đã dùng thử lisp c2e seach trên diễn đàn nhưng chưa được vì
- Dữ liệu xuất sang file excel mới, text không đọc được.
File upload sau mong các bác chỉ giúp:
http://www.cadviet.c...ad_to_excel.dwg
Em cũng chưa biết về tính năng liên kết dữ liệu với excel CAD 2008, bác "bemove" có thể nói thêm giúp em với
Thanks các bác
  • 0

#193 quochoantb

quochoantb

    biết zoom

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

Đã gửi 09 May 2011 - 08:53 PM

em dùng cad 2007 có xài được không ạ
  • 0

#194 quochoantb

quochoantb

    biết zoom

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

Đã gửi 09 May 2011 - 08:56 PM

bản cad của bạn du ha khi down xuuóng bị lỗi font, chỉ cho em cách sửa di
  • 0

#195 adoonis

adoonis

    Chưa sử dụng CAD

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

Đã gửi 04 June 2011 - 04:51 PM

có tiện ích này hi vọng giúp được các bạn trong việc xuất dữ liệu qua lại giữa Autocad và Excel http://www.mediafire...pv34if/didg.rar để tìm hiểu thêm về cách sử dụng tiện ích này các bạn có thể tham khảo tại đây http://camranhvinh.b...autocad-va.html
  • 2

#196 designdt09

designdt09

    Chưa sử dụng CAD

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

Đã gửi 20 September 2012 - 02:45 PM

hãy tải chương trình chitietwin của tác giả Trung Anh (trường ĐH mỏ) về dùng (miễn phí), đáp ứng đầy đủ yêu cầu của bạn.Chúc thành công

T
Bạn Có chi tiết win của Trần trung anh không chi mình xin với.Thank. mình trước có nhưng để đâu mất ko biết. thank bạn
  • 0

#197 duyanhhcm

duyanhhcm

    biết vẽ arc

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

Đã gửi 25 July 2013 - 04:45 PM

Xin đóng góp một đoạn code Chương trình con dùng cho việc lấy số liệu từ một file Excel vào ExcelData@ list. Đây là một hàm con rất quan trọng trong  ứng dụng "Vẽ bảng Excel trong CAd" của DuyLisp. Mong anh em mổ xẻ thêm

 

Ví dụ:

 (GetExcel "C: \ \ Temp \ \ Temp.xls" "Sheet1" "E19") = Mở C: \ Temp \ Temp.xls trên Sheet1 và đọc số liệu ô E19

        (phần này áp dụng đối với trường hợp chỉ rõ tên của sheet)
(GetExcel "C: \ \ Temp \ \ Temp.xls" nil "xyz123") = Mở C: \ Temp \ Temp.xls trên bảng tính hành và đọc số liệu ô xyz123

        (áp dụng cho sheet bất kỳ, chỉ cần lúc Save lần cuối cùng, nó là sheet hiện hành)

Xem tại: http://phongqlda.tk/...c.php?f=21&t=89

Hoặc tại http://duylisp.tk/vi...ung-DuyLisp-11/

 

 

(defun GetExcel (ExcelFile$ SheetName$ MaxRange$ / Column# ColumnRow@ Data@ ExcelRange^
  ExcelValue ExcelValue ExcelVariant^ MaxColumn# MaxRow# Range$ Row# Worksheet)
  (if (= (type ExcelFile$) 'STR)
    (if (not (findfile ExcelFile$))
      (progn
        (alert (strcat "Tệp Excel " ExcelFile$ " không được tìm thấy"))
        (exit)
      );progn
    );if
    (progn
      (alert "Đường dẫn tệp Excel không đúng.")
      (exit)
    );progn
  );if
  (gc)
  (if (setq *ExcelApp% (vlax-get-object "Excel.Application"))
    (progn
      (alert "Đóng bảng tính Excel để tiếp tục !")
      (vlax-release-object *ExcelApp%)(gc)
    );progn
  );if
  (setq ExcelFile$ (findfile ExcelFile$))
  (setq *ExcelApp% (vlax-get-or-create-object "Excel.Application"))
  (vlax-invoke-method (vlax-get-property *ExcelApp% 'WorkBooks) 'Open ExcelFile$)
  (if SheetName$
    (vlax-for Worksheet (vlax-get-property *ExcelApp% "Sheets")
      (if (= (vlax-get-property Worksheet "Name") SheetName$)
        (vlax-invoke-method Worksheet "Activate")
      );if
    );vlax-for
  );if
  (setq ColumnRow@ (ColumnRow MaxRange$))
  (setq MaxColumn# (nth 0 ColumnRow@))
  (setq MaxRow# (nth 1 ColumnRow@))
  (setq *ExcelData@ nil)
  (setq Row# 1)
  (repeat MaxRow#
    (setq Data@ nil)
    (setq Column# 1)
    (repeat MaxColumn#
      (setq Range$ (strcat (Number2Alpha Column#)(itoa Row#)))
      (setq ExcelRange^ (vlax-get-property *ExcelApp% "Range" Range$))
      (setq ExcelVariant^ (vlax-get-property ExcelRange^ 'Value))
      (setq ExcelValue (vlax-variant-value ExcelVariant^))
      (setq ExcelValue
        (cond
          ((= (type ExcelValue) 'INT) (itoa ExcelValue))
          ((= (type ExcelValue) 'REAL) (rtosr ExcelValue))
          ((= (type ExcelValue) 'STR) (vl-string-trim " " ExcelValue))
          ((/= (type ExcelValue) 'STR) "")
        );cond
      );setq
      (setq Data@ (append Data@ (list ExcelValue)))
      (setq Column# (1+ Column#))
    );repeat
    (setq *ExcelData@ (append *ExcelData@ (list Data@)))
    (setq Row# (1+ Row#))
  );repeat
  (vlax-invoke-method (vlax-get-property *ExcelApp% "ActiveWorkbook") 'Close :vlax-False)
  (vlax-invoke-method *ExcelApp% 'Quit)
  (vlax-release-object *ExcelApp%)(gc)
  (setq *ExcelApp% nil)
  *ExcelData@
);defun GetExcel


  • 0
DU KHONG TIM THAY PHUOC, IT RA THAY HOA MA TRANH DI...

#198 lenhatanh

lenhatanh

    biết vẽ polygon

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

Đã gửi 09 September 2014 - 09:45 AM

Tôi có một file Excel và một lisp để mở file Excel rồi ghi số liệu mới vào.

Tôi muốn lisp thực hiện theo hai cách sau:

1- Mở file Excel, xóa toàn bộ nội dung cũ trong các Sheet để ghi số liệu mới.

2- Mở file Excel, xóa toàn bộ các Sheet cũ, tạo các Sheet mới và ghi số liệu mới.

Tôi quá kém về các hàm Vla... nên không thực hiện được, nhờ mọi người giúp đỡ nhé,

xin cảm ơn.

fIle Excel:  http://www.cadviet.c...93_du_tkk_1.rar

file lsp:

; Test lisp 09/09/2014
;-----------------------------------------------------------------------------------------
(defun C:excel()
  (vl-load-com)
  (setq lst_Sheet '("Kenh_chinh" "Kenh_CI" "Kenh_CII" "Kenh_CIII" "Kenh_ND"))
  (if (not fn)
    (progn
	  (setq fn (getfiled "Select Excel File" "" "xls" 0))
	  (if fn
        (progn
		  (WriteToExcel fn lst_Sheet T)
		)
		(progn
		  (WriteToExcel nil lst_Sheet T)
        )
	  )	
	)
  )
)
;------------------------------------------------------------------------------
(defun WriteToExcel (ExcelFile$ lst_Sheet Visible / Sheet$ Sheets@ Worksheet n)
  (if (= (type ExcelFile$) 'STR)
    (if (findfile ExcelFile$)
      (setq *ExcelFile$ ExcelFile$)
      (progn
        (alert (strcat "Excel file " ExcelFile$ " not found."))
        (exit)
      )
    )
    (setq *ExcelFile$ "")
  )
  (gc)
  (if (setq *ExcelApp% (vlax-get-object "Excel.Application"))
    (progn
      (alert "Close all Excel spreadsheets to continue!")
      (vlax-release-object *ExcelApp%)(gc)
    )
  )
  (setq *ExcelApp% (vlax-get-or-create-object "Excel.Application"))
  (if ExcelFile$
    (if (findfile ExcelFile$)
      (vlax-invoke-method (vlax-get-property *ExcelApp% 'WorkBooks) 'Open ExcelFile$)
      (vlax-invoke-method (vlax-get-property *ExcelApp% 'WorkBooks) 'Add)
    )
    (vlax-invoke-method (vlax-get-property *ExcelApp% 'WorkBooks) 'Add)
  )
  (if Visible
    (vla-put-visible *ExcelApp% :vlax-true)
  )
  (setq n 0)
  (repeat (length lst_Sheet)
    (setq SheetName$ (nth n lst_Sheet))
    (if (= (type SheetName$) 'STR)
      (progn
        (vlax-for Sheet$ (vlax-get-property *ExcelApp% "Sheets")
          (setq Sheets@ (append Sheets@ (list (vlax-get-property Sheet$ "Name"))))
        )
;		(if (member SheetName$ Sheets@)
;          (vlax-for Worksheet (vlax-get-property *ExcelApp% "Sheets")
;            (if (= (vlax-get-property Worksheet "Name") "Kenh_ND")
;              (vlax-invoke-method Worksheet "Delete")
;            )
;          )
;        )
		(if (member SheetName$ Sheets@)
          (vlax-for Worksheet (vlax-get-property *ExcelApp% "Sheets")
            (if (= (vlax-get-property Worksheet "Name") "Kenh_ND")
              (vlax-invoke-method Worksheet "ClearContents")
            )
          )
        )
        (if (member SheetName$ Sheets@)
          (vlax-for Worksheet (vlax-get-property *ExcelApp% "Sheets")
            (if (= (vlax-get-property Worksheet "Name") SheetName$)
              (vlax-invoke-method Worksheet "Activate")	  
            )
          )
          (vlax-put-property (vlax-invoke-method (vlax-get-property *ExcelApp% "Sheets") "Add") "Name" SheetName$)
		)
      )
    )
    (setq n (1+ n))
  )
  (princ)
)

  • 0

#199 phamductai1989

phamductai1989

    biết pan

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

Đã gửi 24 March 2015 - 08:16 PM

Tại trang tin cũng đã có 1 ví dụ về chương trình LISP nhập xuất dữ liệu giữa AutoCAD và Excel.
http://www.cadviet.c...tent/view/20/1/

Đó là chương trình eiPoint (Export Import Point), là chương trình khá đơn giản và cơ bản. Chúng ta có thể cải tiến nó để đáp ứng được từng mục đích riêng của mình.

Dưới đây là mã lệnh của chương trình eiPoint (lấy từ trang tin):
[code=
Bản chất của quá trình trao đổi dữ liệu giữa AutoCAD và Excel trong ví dụ trên là tạo ra một tệp có đuôi .txt làm trung gian.


  • 0

#200 phamductai1989

phamductai1989

    biết pan

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

Đã gửi 24 March 2015 - 08:24 PM

Tại trang tin cũng đã có 1 ví dụ về chương trình LISP nhập xuất dữ liệu giữa AutoCAD và Excel.
http://www.cadviet.c...tent/view/20/1/

Đó là chương trình eiPoint (Export Import Point), là chương trình khá đơn giản và cơ bản. Chúng ta có thể cải tiến nó để đáp ứng được từng mục đích riêng của mình.

Dưới đây là mã lệnh của chương trình eiPoint (lấy từ trang tin):
[code=
Bản chất của quá trình trao đổi dữ liệu giữa AutoCAD và Excel trong ví dụ trên là tạo ra một tệp có đuôi .txt làm trung gian.


  • 0