Lisp miễn phí copy pagesetup (Cài đặt in) giữa các layout | CPS COPY PageSetup to layouts | AutoLISP Reviewer

Ứng dụng được phát triển/Sưu tầm bởi đội ngũ AutoLISP Thật là đơn giản

   

Thông tin thêm: 👉👉👉

Lệnh CPS

Copy PageSetup (Cài đặt in) từ Layout hiện hành sang các Layout còn lại

Link tải lisp hoàn toàn miễn phí, mã nguồn mở!

1 Thêm class CPS_.lsp

Lưu mã sau dưới dạng tệp tin CPS_.lsp

Code:

;; Copy current layout page setup to all layout tabs
(vl-load-com)
(defun c:CPS (/ Adoc Layts clyt)
  (setq	aDoc  (vla-get-activedocument (vlax-get-acad-object))
	Layts (vla-get-layouts aDoc)
	clyt  (vla-get-activelayout aDoc)
  )
  (foreach
	    itm
	       (vl-remove (vla-get-name clyt) (layoutlist))
    (vla-copyfrom (vla-item Layts itm) clyt)
  )
  (princ "\n:: Current layout page setup has been copied to all layout tabs. \n")
  (princ)
)

Link tải (MediaFire)

📥 https://www.mediafire.com/

---------------------------------------------------------------------------------------------

Ứng dụng được phát triển bởi đội ngũ AutoLISP Thật là đơn giản - Tác giả ứng dụng in D2P

    

Mọi thông tin xin liên hệ Fanpage AutoLISP Thật là đơn giản!

Cảm ơn bạn đã theo dõi!