Thứ Hai, 20 tháng 5, 2024

Mở lại bản vẽ AutoCAD cuối cùng | Open last closed drawing in AutoCAD | AutoLisp Reviewer

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

    

Thông tin thêm: 👉👉👉

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)



Tải Setup.exe

Ngoài ra, bạn có thể tải ứng dụng cài đặt để tối ưu hóa toàn bộ công việc trên trong nhóm



Hướng dẫn cài đặt

    

---------------------------------------------------------------------------------------------
Ứ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: 👉👉👉