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!

Tổng hợp Lisp/plugin cho hệ MEP trong AutoCAD | MEP Tools | 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: 👉👉👉