Lisp khắc phục lỗi load Topo Nova | 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: 👉👉👉

LHNOVA

Load Nova khi không thể khởi động Nova theo cách bình thường

Áp dụng với phiên bản 2007

LHTOPO

Load Topo tự động khi không khởi động bình thường được.

Áp dụng với phiên bản 2007

Mã nguồn

1 Thêm lisp LHNova_LHTopo by lisp.vn.lsp

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

Code:

;Author: Le Manh Hung
;sdt: 0382.77.44.57
;email: admin@lisp.vn
;T12/2011
(defun c:LHNOVA()
	(if  (>= (atoi (substr (getvar "ACADVER") 1 2)) 15)
		(progn
			(if (not (member "C:\\thuviendh16.arx" (arx)))
				(arxload "C:\\Harmony CAD_Group\\\NovaTDN16\\ThuVienDH16.arx")
			)
			(if (not (member "alignment_16.arx" (arx)))
				(arxload "C:\\Harmony CAD_Group\\\NovaTDN16\\Alignment_16.arx")
			)
			(if (not (member "nhapdh16.arx" (arx)))
				(arxload "C:\\Harmony CAD_Group\\\NovaTDN16\\nhapdh16.arx")
			)
			(if (not (member "harmutil16.arx" (arx)))
				(arxload "C:\\Harmony CAD_Group\\\NovaTDN16\\harmutil16.arx")
			)
			(if (not (member "standarddesign16.arx" (arx)))
				(arxload "C:\\Harmony CAD_Group\\\NovaTDN16\\standarddesign16.arx")
			)
			(if (not (member "har.util.userlib.arx" (arx)))
				(arxload "C:\\Harmony CAD_Group\\\NovaTDN16\\Har.Util.UserLib.arx")
			)
			(if (not (member "nova_tdn16.arx" (arx)))
				(arxload "C:\\Harmony CAD_Group\\\NovaTDN16\\nova_tdn16.arx")
			)
			(if (not (member "har.utility.multiplot.arx" (arx)))
				(arxload "C:\\Harmony CAD_Group\\\NovaTDN16\\Har.Utility.MultiPlot.arx")
			)	
			(load "ctietcong.vlx")
			(if (not (member "C:\\Harmony CAD_Group\\\NovaTDN16\\gdeditor2k4.arx" (arx)))
				(arxload "GdEditor2k4.arx")
			)
			(if (not (member "C:\\Harmony CAD_Group\\\NovaTDN16\\har.utility.chprop.arx" (arx)))
				(arxload "har.utility.chprop.arx")
			)
		)
	)
	(lh-advert (lh-checkdate))
	(princ "\nlisp.vn: Da khac phuc loi Nova!")
	(princ)
)
(defun c:LHTOPO()
	(if (not (member "initprogram2005.arx" (arx))) (arxload "InitProgram2005.arx"))
	(lh-advert (lh-checkdate))
	(princ "\nlisp.vn: Da khac phuc loi Topo!")
	(princ)
)
(defun lh-advert(exp)
	(if exp
		(princ (strcat "\nT¸c gi¶: Lª M¹nh Hïng\nS§T:\t0382.77.44.57\nEmail:\tadmin@lisp.vn"))
		(progn
			(princ (strcat "\nTac gia: Le Manh Hung\nSDT:\t0382.77.44.57\nEmail:\tadmin@lisp.vn
				\nChuong trinh nay da het han su dung.\nXin hay lien he voi tac gia theo email va sdt tren de gia han chuong trinh."
				"\nBan se nhan duoc huong dan va cac ho tro can thiet de su dung chuong trinh in an.\nXin chan thanh cam on!")
			)
			(alert (strcat "\nTac gia: Le Manh Hung\nSDT:\t0382.77.44.57\nEmail:\tadmin@lisp.vn
				\nChuong trinh nay da het han su dung.\nXin hay lien he voi tac gia theo email va sdt tren de gia han chuong trinh.
				\nChu y:\nKhi lien lac can cung cap 2 thong so sau:
				\nUser:\t"
				"\nID:\t"
				"\n\nSau khi cung cac thong tin tren. Ban se nhan duoc huong dan va cac ho tro can thiet de su dung chuong trinh in an.\nXin chan thanh cam on!")
			)
			(alert (strcat "Infomation on this computer\n\nUser:\t" (dos_username) "\nID:\t" (dos_serialno)))
			(princ (strcat "\nInfomation on this computer\n\nUser:\t" (dos_username) "\nID:\t" (dos_serialno)))
		)
	)
)
(defun lh-checkdate( / ldate)
	(if (null (setq ldate (vl-registry-read "HKEY_CURRENT_USER\\Software\\VagaS\\Autolisp\\Command\\Utilites\\Support\\Nova_Topo\\" "LDATE")))
		(setq ldate (rtos (getvar "CDATE") 2 2))
	)
	(if (> 20281230.00 (getvar "CDATE") (atof ldate) 20111228.00)
		(vl-registry-write "HKEY_CURRENT_USER\\Software\\VagaS\\Autolisp\\Command\\Utilites\\Support\\Nova_Topo\\" "LDATE" ldate)
	)
)

Lưu mã nguồn thành file lisp, hoặc tải theo link bên dưới!

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!