Lưu và khôi phục OSMODE trong AutoCAD | Khôi phục chế độ bắt điểm OSmode | Save and Restore OSMODE in AutoCAD

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

   

Link tải: 👉👉👉

Mã nguồn

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

Code:

(defun c:om ( / ans)
	(setvar "CMDECHO" 0)
	(if (eq nil (vl-registry-read "HKEY_CURRENT_USER\\Software\\AJS\\Command\\UF\\OM" "OSMODE")) (vl-registry-write "HKEY_CURRENT_USER\\Software\\AJS\\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\\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\\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\\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 www.lisp.vn")
	(princ)
)

@autolispjustsimple

[ATOC] Tạo danh mục bản vẽ Tự động trong #autocad #atoc #ajs #lisp

♬ Epic Music(863502) - Draganov89

Cách thức hiện

Lệnh [OM] có các Tùy chọn:

• Save        Lưu lại biến OSMODE vào Registry

• Restore    Khôi phục lại biến OSMODE từ Registry vào AutoCAD hiện hành

Link tải Lisp

https://www.mediafire.com/file/7018lxb2ehvc6oy/%255BOM%255D_Save_and_Restore_OSMODE_by_AJS.lsp/file

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

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