Em muốn chuyển dữ liệu từ Autocad sang Excel

Liên hệ QC

nhat chi mai

Thành viên gắn bó
Tham gia
22/11/11
Bài viết
1,832
Được thích
9
Em chào các Thầy, Cô và Anh Chị, tình hình em có rất nhiều bảng dữ liệu trong autocad, bây giờ em muốn xuất dữ liệu sang excel để cho việc dễ quản lí.
Em gửi file autocad và gửi file excel trong file đính kèm để cho câu hỏi dễ hiểu hơn, em mong sự giúp đỡ của mọi người.
p/s Em có tham khảo trên trang Cadviet nhưng không biết cho nó chạy thế nào, đây là đoạn code
(defun c:input (/ filename f number)
(setq filename (getfiled "Select a File" "" "xls" 1))
(if filename
(progn
(setq f (open filename "w"))
(setq id (load_dialog "C:/input.dcl"))
(new_dialog "input" id)
(set_tile "filename" (strcat "File name:" filename))
(mode_tile "number" 2)
(action_tile "note" "(PROGN
(write-line (strcat
(setq number (get_tile \"number\")) \"\t\"
(get_tile \"code\") \"\t\"
(get_tile \"distance\") \"\t\"
(get_tile \"note\") \"\t\") f)
(set_tile \"number\" (itoa (1+ (atoi number))))
(mode_tile \"code\" 2)
)"
)

(start_dialog)
(done_dialog)
(unload_dialog id)
(close f)

))

)



 

File đính kèm

  • Book1 (Excel).xls
    28 KB · Đọc: 201
  • Drawing1(Autocad).zip
    30.6 KB · Đọc: 322
Thấy đề tài này lâu rồi mà ko thấy ai reply nhỉ... chắc là đơn giản quá

Đoạn code bạn tìm đc đó là lisp. Vào autocad load vào rồi đánh lệnh input(/filenamefnumber) để chạy

Mình gởi đính kèm file excel vừa viết theo yêu cầu của bạn. Bạn mở đồng thời file excel và file cad lên sau đó chọn 1 cell rồi click nút run trong file excel chuyển qua màn hình cad chọn 1 cột text nó sẽ đc xuất qua excel
 

File đính kèm

  • Book1 (Excel).xls
    44 KB · Đọc: 672
Lần chỉnh sửa cuối:
Sao NCM không hỏi bên cadviet ?
 
Vấn đề này cứ nhờ anh Hoành fix nhé!
 
cái này mình biết ne hihi nhưng không biết chủ topic đã có câu trả lời chưa, nếu chưa thì mình se cho câu trả lời
 
Lần chỉnh sửa cuối:
Thấy đề tài này lâu rồi mà ko thấy ai reply nhỉ... chắc là đơn giản quá

Đoạn code bạn tìm đc đó là lisp. Vào autocad load vào rồi đánh lệnh input(/filenamefnumber) để chạy

Mình gởi đính kèm file excel vừa viết theo yêu cầu của bạn. Bạn mở đồng thời file excel và file cad lên sau đó chọn 1 cell rồi click nút run trong file excel chuyển qua màn hình cad chọn 1 cột text nó sẽ đc xuất qua excel
Thấy đề tài này lâu rồi mà ko thấy ai reply nhỉ... chắc là đơn giản quá

Đoạn code bạn tìm đc đó là lisp. Vào autocad load vào rồi đánh lệnh input(/filenamefnumber) để chạy

Mình gởi đính kèm file excel vừa viết theo yêu cầu của bạn. Bạn mở đồng thời file excel và file cad lên sau đó chọn 1 cell rồi click nút run trong file excel chuyển qua màn hình cad chọn 1 cột text nó sẽ đc xuất qua excel
Cảm ơn bạn
 
Thấy đề tài này lâu rồi mà ko thấy ai reply nhỉ... chắc là đơn giản quá

Đoạn code bạn tìm đc đó là lisp. Vào autocad load vào rồi đánh lệnh input(/filenamefnumber) để chạy

Mình gởi đính kèm file excel vừa viết theo yêu cầu của bạn. Bạn mở đồng thời file excel và file cad lên sau đó chọn 1 cell rồi click nút run trong file excel chuyển qua màn hình cad chọn 1 cột text nó sẽ đc xuất qua excel

Cái này mình thấy rất hay rồi nhưng tác giả hay các bạn có thể sửa lại trường hợp xuất thành hàng được ko.
- Ngoài ra nâng cấp thêm thành xuất nhiều hàng: cái này khác cấu trúc code tí nhỉ.
- Và có thể nâng cấp thành xuất ra thành nhiều hàng, nhiều cột 1 lúc: cái này chắc phức tạp hơn hẳn rồi.
Mình tìm đc bài viết gần giống yêu cầu này của mình thì nó lâu quá rồi, ko biết có bạn nào quan tâm nữa ko. Mong được phản hồi sớm ạ.
Xin cảm ơn.
 
Xuất dữ liệu từ CAD sang excel. bạn có thể tham khảo video này. ko cần lisp ạ
 
Web KT
Back
Top Bottom