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