10/05/2026

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
   

Link tải cuối bài viết: 👉👉👉 

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)
)

hoặc tải từ link Mediafire cuối bài viết ...


Phần mềm In nhanh D2P

Tham khảo thêm về phần mềm in nhanh D2P đa chức năng: in nhiều layout, in PDF nối file, in nhiều file bản vẽ dwg


giá chỉ 150k/1 máy. Không giới hạn thời gian sử dụng.

Hotline: 0382.77.44.57

Link tải (MediaFire)



---------------------------------------------------------------------------------------------
Ứ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!

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     Link tải cuối bài viết: 👉👉👉  Lệnh CPS Copy PageSetup (Cài đặt ...