Lisp lưu và khôi phục OSMODE trong AutoCAD | Save and Restore OSMODE | 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: 👉👉👉

Sử dụng lệnh OM 

Có tùy chọn Save và Restore (mặc định) để Lưu và Khôi phục lại OSMODE

1 Thêm class OM by AJS.lsp

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

Code:

(defun c:om ( / ans)
	(setvar "CMDECHO" 0)
	(setq om0 (vl-registry-read "HKEY_CURRENT_USER\\Software\\AJS\\Autolisp\\Command\\UF\\OM" "OSMODE"))
	(if (eq om0 nil) (vl-registry-write "HKEY_CURRENT_USER\\Software\\AJS\\Autolisp\\Command\\UF\\OM" "OSMODE" (itoa (getvar "OSMODE"))))
	(princ (strcat "\nOSMODE 's value:\tCurrent = " (itoa (getvar "OSMODE")) ",\t Saved = " (vl-registry-read "HKEY_CURRENT_USER\\Software\\AJS\\Autolisp\\Command\\UF\\OM" "OSMODE") "."))
	(initget "Save Restore")
	(setq ans (getreal "\nEnter new value for OSMODE [Save] or <Restore>: "))
	(cond
		((= ans "Save")
			(vl-registry-write "HKEY_CURRENT_USER\\Software\\AJS\\Autolisp\\Command\\UF\\OM" "OSMODE" (itoa (getvar "OSMODE")))
			(princ (strcat "\nOSMODE = " (itoa (getvar "OSMODE")) " is saved."))
		)
		((or (= ans "Restore") (= ans nil))
			(setvar "OSMODE" (atoi (vl-registry-read "HKEY_CURRENT_USER\\Software\\AJS\\Autolisp\\Command\\UF\\OM" "OSMODE")))
			(princ (strcat "\nOSMODE = " (itoa (getvar "OSMODE")) " is restored."))
		)
		((numberp ans)
			(setvar "OSMODE" ans)
			(princ (strcat "\nOSMODE = " (itoa (getvar "OSMODE")) " is set."))
		)
	)
	(princ "\nCreat by ajs@lisp.vn")
	(princ)
)

Lưu OSMODE

Điều chỉnh Chế độ bặt điểm yêu thích.

Thực hiện lệnh OM => Enter => Save => Enter

Khôi phục OSMODE

Thực hiện lệnh OM => Enter => Enter

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!