Chuyển đến nội dung
Diễn đàn CADViet
vminh_ct

hỏi về lệnh c2e trong lisp chuyển cad sang excel của bác Hoành

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

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

cơ mà b có đang còn xài nó k? tôi chuyển từ xel sang cad nó bị lỗi hoài :(

Lỗi gì bạn ? Mình dùng vẫn OK 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

Hi anh Nguyen Hoanh,
Anh cho em hỏi về autolisp chuyển text từ Autocad sang Excel của anh một chút. Em đang cần chuyển text từ Autocad sang excel với một số lượng lớn nên cần tích hợp cái autolisp của anh vào file Excel VBA để chạy tự động, tuy nhiên khi em dùng sendcommand trong VBA thì gặp một vấn đề là autolisp hỏi đường dẫn để lưu file *.csv. Anh có thể giúp em chỉnh sửa autolisp của anh dể nó tự động lưu vào thư mục chứa file autocad đang mở và tên file trùng với tên file autocad đang mở được không?. File cad em cần chuyển ở link đưới, phần cần chuyển được highlight màu đỏ a.
<a href="http://www.4shared.com/photo/Gg_oc9Z4ce/40148-BPS-53-L-XN-30604_C1_MU1.html">http://www.4shared.com/photo/Gg_oc9Z4ce/40148-BPS-53-L-XN-30604_C1_MU1.html</a>

Cảm ơn anh nhiều!

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

Hi anh Nguyen Hoanh,

Anh cho em hỏi về autolisp chuyển text từ Autocad sang Excel của anh một chút. Em đang cần chuyển text từ Autocad sang excel với một số lượng lớn nên cần tích hợp cái autolisp của anh vào file Excel VBA để chạy tự động, tuy nhiên khi em dùng sendcommand trong VBA thì gặp một vấn đề là autolisp hỏi đường dẫn để lưu file *.csv. Anh có thể giúp em chỉnh sửa autolisp của anh dể nó tự động lưu vào thư mục chứa file autocad đang mở và tên file trùng với tên file autocad đang mở được không?. File cad em cần chuyển ở link đưới, phần cần chuyển được highlight màu đỏ a.

<a href="http://www.4shared.com/photo/Gg_oc9Z4ce/40148-BPS-53-L-XN-30604_C1_MU1.html">http://www.4shared.com/photo/Gg_oc9Z4ce/40148-BPS-53-L-XN-30604_C1_MU1.html</a>

 

Cảm ơn anh nhiều!

Bạn sửa dòng lệnh

(getfiled "Chon file de save" "" "csv" 1)

Thành

(strcat (getvar "dwgprefix") (getvar "dwgname") ".csv")

  • Vote tăng 1

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


×