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.
Đăng nhập để thực hiện theo  
hailongkhanh

Các cao thủ giúp em. (Nhập dữ liệu từ excel, vẽ hình bên cad)

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

Xin các cao thủ giúp em với.

 

Em đang pha cắt vật tư là thép tấm cho dự án. Mà vẽ từng hình bên cad thì rất lâu (mỗi hình 1 file)..

Nay em muốn nhập thông số : tên tấm mã, kích thước dài và rộng.

Ví dụ : Bên excel em nhập thông số sau.

P1 200 300

P2 400 500

P3 200 300

{P1 là tên tấm mã. 200 300 là kích thước bao}

 

Sau đó khi xuất qua cad thì có file P1.dxf hoặc P1.dwg có hình chữ nhật kích thước 200x300 (không cần ghi kích thước); tương tự vậy xuất ra file P2.dxf và P3.dxf

 

Rất mong các cao thủ quan tâm.

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

Xin các cao thủ giúp em với.

 

Em đang pha cắt vật tư là thép tấm cho dự án. Mà vẽ từng hình bên cad thì rất lâu (mỗi hình 1 file)..

Nay em muốn nhập thông số : tên tấm mã, kích thước dài và rộng.

Ví dụ : Bên excel em nhập thông số sau.

P1 200 300

P2 400 500

P3 200 300

{P1 là tên tấm mã. 200 300 là kích thước bao}

 

Sau đó khi xuất qua cad thì có file P1.dxf hoặc P1.dwg có hình chữ nhật kích thước 200x300 (không cần ghi kích thước); tương tự vậy xuất ra file P2.dxf và P3.dxf

 

Rất mong các cao thủ quan tâm.

Hề hề hề,

Bạn dùng thử cái này coi sao với lưu ý sau:

1/- File dữ liệu excel bạn chuyển về file *.txt

2/- Các file được tạo thành thực chất là các block file lưu tại thư mục mặc định của CAD khi lưu file. Nếu muốn bạn có thể chỉ định thư mục để lisp lưu file vào đó.

3/- Trong trường hợp bạn muôn sử dụng với file excel thì bạn phải chuyển file này về file *.csv và thay đổi một chút trong code như sau:

+ Tại dòng code :(setq fn (getfiled "Select Data File" "" "txt" 0)  thay csv vào vị trí txt

+ Tại dòng code:  (setq txl (separate str "\t"))  thay "," vào vị trí "\t"

4/- Nếu vẫn muốn giữ nguyên file excel gốc thì vấn đề sẽ phức tạp hơn, code sẽ rắc rốii hơn nhiều và công dụng cũng chả khác là bao nên bạn hãy sử dụng tạm một trong hai phương án trên cho nó đỡ nhức đầu. Khi nào rảnh rỗi mình sẽ viết cho excel sau.

 

http://www.cadviet.com/upfiles/3/5194_vehinhfromexl.lsp

 

 (defun Separate (S sym / i L ch)(setq i 0 L nil)(while (< i (strlen S))      (setq i (1+ i) ch (substr S i 1))      (if (= ch sym) (progn(setq     L (append L (list (substr S 1 (- i 1))))     S (substr S (1+ i) (- (strlen S) i))     i 0)      )) )(append L (list S)));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:vh ( / oldos fn f k txl p1)(setq oldos (getvar "osmode"))(setvar "osmode" 0)(setq fn (getfiled "Select Data File" "" "txt" 0)            f (open fn "r")            k 1)(while (and (/= (setq str (read-line f)) nil)                    (= (strcase (setq ans (getstring (strcat "\n Ban dang o dong du lieu thu " (rtos k 2 0) ".  Ban muon tiep tuc <y or n>: ")))) "Y") )           (command "undo" "be")           (setq txl (separate str "\t"))           (command "rectangle" (setq p1 (getpoint "\n Chon diem bat dau ve")) (list (+ (car p1) (atof (nth 1 txl))) (+ (cadr p1) (atof (nth 2 txl)))) )           (command "wblock" (nth 0 txl) "" p1 (entlast) "" )           (setq k (1+ k))           (command "undo" "e"))(close f)(setvar "osmode" oldos)(princ))
Chúc bạn vui.
  • 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

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

Đăng nhập để thực hiện theo  

×