Giới thiệu

Đoạn code dùng để mở bản vẽ cuối cùng trước khi đóng AutoCAD:

Các bác biết khi mở Chrome, nếu vô tình hoặc cố ý đóng 1 tab, thì chỉ cần Ctrl+T là sẽ mở lại tab vừa đóng.

Có thể áp dụng lên AutoCAD bằng Reactor. Mỗi khi đóng bản vẽ => Lưu lại đường dẫn bản vẽ được đóng.

Sử dụng lệnh Openlastdwg để mở bản vẽ được đóng gần nhất.

Có thể tối ưu thêm bằng cách gán lệnh tắt Ctrl+T => chạy lệnh Openlastdwg

Có thể áp dụng khi khởi động AutoCAD

Cài đặt thủ công

1 Thêm tệp tin Openlastdwg.lsp

(Copy nội dung sau)

Code:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun SaveCurrentDwgName (args reac / filename )
	(if (and (setq filename (strcat (getvar "dwgprefix") (getvar "dwgname")))
			(setq filename (findfile filename))
			)
		(setenv "LH-LastDWG" filename)
	)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun openlastdwg ( / file filename)
	(command nil) ;;cancel any active command
	(if (and (setq filename (getenv "LH-LastDWG")) (findfile filename))
		(progn
			(if (setq file (vla-open (vla-get-Documents (vlax-get-acad-object)) filename :vlax-false))
				(vla-activate file)
			)
		);progn then
		(progn (princ "\nsample-lsp-open error- File not found: ")(princ filename))
	);if
	(command nil) ;;cancel any active command
	(princ)
);defun sample-lsp-open
(defun c:Openlastdwg ()
	(openlastdwg)
	(princ)
)
(defun Create_Close_Reactor()
	(vl-load-com)
	(if (not close:reactor)
		(setq close:reactor
			(vlr-editor-reactor nil
			'((:vlr-beginClose . SaveCurrentDwgName)))
		)
	); end if
	(princ)
); end of Create_Close_Reactor
(Create_Close_Reactor)