Thứ Ba, 19 tháng 11, 2024

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


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

Không có nhận xét nào:

Đăng nhận xét

Fillet bo tròn nhiều đa giác trong AutoCAD | Multiple fillet polylines in AutoCAD | 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: 👉👉👉