[NHỜ VIẾT LISP] Lisp Export Layout to Model mà không cần mở bản vẽ

[Chuongnx 0]

Nhờ các bác viết giúp em lisp để Export Layout to Model.

Yêu cầu: Khi gõ lệnh > Chọn các bản vẽ cần export > Thực hiện lệnh Export Layout to Model cho từng bản vẽ. (Gần giống lệnh PUBLISH)

Cách em vẫn hay làm là mở từng bản vẽ > Chuột phải vào layout > Export Layout to Model > Chọn folder lưu bản vẽ mới > Tắt bản vẽ gốc

Do số lượng bản vẽ lớn, nếu làm từng file thì mất thời gian quá.

[Biet ve CAD 258]

Cái này ngon, có thể viết lisp được

Các cao thủ còn chờ gì nữa, ra tay đi

[Botot 31]

Cái này thì chỉ có LM làm nổi thôi.

[Biet ve CAD 258]

1 giờ} trướ}c, Botot đã nói:

Cái này thì chỉ có LM làm nổi thôi.

Cần gì mấy ông nước ngoài, VN mình làm tốt mà, hihi, mấy hum nữa rảnh sẽ viết cái này

[ngokiet 169]

Thừ lisp sau

 

- Nó export tất cả layout vào thư mục mặc định của bản vẽ hiện hành.

Mình chỉ viết sơ như vậy.

 

Nêu muốn chọn nhiều file thì rắc rối 1 chút.

- Bạn có thể sửa lisp lại 1 chút là thêm 1 dòng (c:test) vào cuối lisp và cho nó vào starup suite. Bạn mở file nào thì nó tự động xuất file đó.

- Xong nhớ xóa vì không cần nó cũng tự động.

Làm vậy cho đơn giản.

  

   

 

 

exlayout.LSP

[Chuongnx 0]

 

2 giờ trước, ngokiet đã nói:

Thừ lisp sau

 

- Nó export tất cả layout vào thư mục mặc định của bản vẽ hiện hành.

Mình chỉ viết sơ như vậy.

 

Nêu muốn chọn nhiều file thì rắc rối 1 chút.

- Bạn có thể sửa lisp lại 1 chút là thêm 1 dòng (c:test) vào cuối lisp và cho nó vào starup suite. Bạn mở file nào thì nó tự động xuất file đó.

- Xong nhớ xóa vì không cần nó cũng tự động.

Làm vậy cho đơn giản.

  

   

 

exlayout.LSP

Cảm ơn bạn ngokiet!

Lisp của bạn dùng tốt rồi, mong bạn phát triển thêm để có thể chọn nhiều file nhé!

[Biet ve CAD 258]

Đang sơ bộ thế này, có thể cập nhật thêm các chức năng khác vào cho nó đa năng ^^

 

[Chuongnx 0]

12 giờ trước, Biet ve CAD đã nói:

Đang sơ bộ thế này, có thể cập nhật thêm các chức năng khác vào cho nó đa năng ^^

 

Excellent!!!

Bạn có thể share cho mình xin lisp này được không?

và nếu được thì bạn chèn thêm đoạn code để tự động save as file sau khi export về cad 2007 thì quá tuyệt luôn!

[ketxu 2.984]

10 phút trước, Chuongnx đã nói:

Excellent!!!

Bạn có thể share cho mình xin lisp này được không?

và nếu được thì bạn chèn thêm đoạn code để tự động save as file sau khi export về cad 2007 thì quá tuyệt luôn!

Thực sự thì những cái ntn bạn không nên xin, mà nên đòi mua, dù người viết có định bán hay không

[Chuongnx 0]

1 giờ} trướ}c, ketxu đã nói:

Thực sự thì những cái ntn bạn không nên xin, mà nên đòi mua, dù người viết có định bán hay không

Cảm ơn @ketxu đã nhắc nhở,

@Biet ve CAD bán lại cho mình tool này nhé! Liên hệ với mình theo sđt 08 88 062 142 nhé!

[Biet ve CAD 258]

9 giờ trước, Chuongnx đã nói:

Cảm ơn @ketxu đã nhắc nhở,

@Biet ve CAD bán lại cho mình tool này nhé! Liên hệ với mình theo sđt 08 88 062 142 nhé!

Viết lisp cũng vì ngứa ngáy chân tay, nếu viết được và có time thì nên viết, xong cũng share các bạn dùng thôi. Có bán thì giá rẻ gọi là có bán cho nó có qua có lại động viên lẫn nhau là chính

[tanbqtb03 9]

Vào lúc 5/5/2019 tại 22:40, ngokiet đã nói:

Thừ lisp sau

 

- Nó export tất cả layout vào thư mục mặc định của bản vẽ hiện hành.

Mình chỉ viết sơ như vậy.

 

Nêu muốn chọn nhiều file thì rắc rối 1 chút.

- Bạn có thể sửa lisp lại 1 chút là thêm 1 dòng (c:test) vào cuối lisp và cho nó vào starup suite. Bạn mở file nào thì nó tự động xuất file đó.

- Xong nhớ xóa vì không cần nó cũng tự động.

Làm vậy cho đơn giản.

  

   

 

exlayout.LSP

Nó áp dụng cho phiên bản Cad2007 được không bạn, mình đang dùng Cad2007 test thử không được ah, thanks

[ngokiet 169]

32 phút trước, tanbqtb03 đã nói:

Nó áp dụng cho phiên bản Cad2007 được không bạn, mình đang dùng Cad2007 test thử không được ah, thanks

Hinh nhu cad 2007 không có lệnh nay.

Lisp này chỉ thực hiện lệnh ẽxport layout to model cho tất cả các layout. Với yêu cầu lệnh có sẵn.

[tanbqtb03 9]

4 phút trước, ngokiet đã nói:

Hinh nhu cad 2007 không có lệnh nay.

Lisp này chỉ thực hiện lệnh ẽxport layout to model cho tất cả các layout. Với yêu cầu lệnh có sẵn.

Thanks bác, ví dụ e đang dùng Cad2007 muốn xài kiểu lệnh này (giả sử có lisp bổ trợ cho việc này) thì cũng bó tay ah

[ngokiet 169]

21 phút trước, tanbqtb03 đã nói:

Thanks bác, ví dụ e đang dùng Cad2007 muốn xài kiểu lệnh này (giả sử có lisp bổ trợ cho việc này) thì cũng bó tay ah

Thì sửa lại 1 chút.

trong lisp có dòng (command “exportlayout” ....

thành lisp tương ứng là dc mà.

[Biet ve CAD 258]

Vào lúc 17/5/2019 tại 22:41, Chuongnx đã nói:

Excellent!!!

Bạn có thể share cho mình xin lisp này được không?

và nếu được thì bạn chèn thêm đoạn code để tự động save as file sau khi export về cad 2007 thì quá tuyệt luôn!

Đang tích góp cập nhật thêm các chức năng mà bạn yêu cầu ^^

[conghoa 123]

Bác có thể cập nhật thêm:

- Dọn rác tự động

- Replace text tự động

- Đổi tên layer 

- Thay đổi text cho 1 biến của atttext

- Cài đặt biến hệ thống cho các khung mview: ucsfollow thành 1 hoặc 0 cho toàn bộ mview của các bản vẽ

- Convert text 

...

[ngokiet 169]

Mình nghĩ viết đơn giản 1 chút làm lệnh dạng batch.

Apply 1 lisp cho all bản vẽ.

Lúc đó có thể áp dụng cho nhiều trường hợp.

ps. Mình cũng tính lúc nào rảnh viêt thử.