Lisp miễn phí Copy Paste vào gốc tọa độ 0 0 C0 P0 | Copy paste with basepoint on 0 0 C0 P0 | 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: 👉👉👉

Copy C0

Copy với gốc tọa độ (0, 0) (Tương đương với lệnh Copy thông thường)

Paste P0

Paste vào gốc tọa độ (0, 0)

1 Thêm tệp tin C0 P0 by AJS.lsp

Lưu mã sau dưới dạng tệp tin C0 P0 by AJS_.lsp

Code:

(defun c:c0 (/ m1) 
	 (if (eq nil(setq ml (ssget "_I"))) (setq ml (ssget)))
	(command "COPYBASE" "0,0" ml "")
	(princ "www.lisp.vn")
	(princ)
)
(defun c:P0 (/ m1) 
	(command "PASTECLIP" "0,0")
	(princ "www.lisp.vn")
	(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!