Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
kidxxx

Nhờ phát triển lisp

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

Chào mọi người.

 

Mình có sưu tầm được 1 lisp thiết lập layout để in. Nhưng điểm yếu của nó là muốn thiết lập phải mở bản vẽ và phải làm lần lượt cho từng bản.

Mình muốn nhờ mọi người phát triển thêm để nó có thể set layout hàng loạt mà không cần mở bản vẽ. Set xong tự lưu bản vẽ luôn.

Lisp mình để ở dưới. Cảm ơn tất cả mọi người!

 

(Defun c:tbb();
(command "undo" "be")
(vl-load-com)
(setvar "psltscale" 0)
(setq ddan (getvar "dwgprefix"))
(setq dwgname (getvar "dwgname"))
(command "layout" "s" "Model""")
(command "-purge" "all""" "n""")
(command "zoom" "E""")
(command "layout" "s" "")
(command "erase" "all""")
(command "layout" "r""""Title""")
(command "-plot" "yes" "Title" "DWG To PDF.pc3" "ISO full bleed A1 (594.00 x 841.00 MM)" "m" "Landscape" "no" "Extents"  "fit" "center" "yes" "Standard.ctb" "y" "n" "n" "n" "n" "y" "n""")
(command "mview" "fit""")
(command "mspace""")
(command "zoom" "E""")
(command "pspace""")
(setq dsla (layoutlist))
(setq solayout (length dsla))
(foreach lay dsla
(if (/= lay "Title")
(command "layout" "d" lay"")
)
)
(setq newname (strcat ddan dwgname))
(command "saveas" "2010" newname "_Y""")
(command "undo" "end")
(princ)
)

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  

×