Lisp miễn phí khôi phục giá trị dimension | RD Restore Dimension Text | 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

   

Link tải cuối bài viết: 👉👉👉

RD Khôi phục Dim Text

Khôi phục giá trị dim về mặc định theo Dimension style

Lisp miễn phí, link tải cuối bài viết!

1 Thêm tệp tin RD_from_lisp.vn.lsp

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

Code:

(defun c:RD ( / ss i ent obj val)
	(vl-load-com)
	(princ "Restore default dim text by current DIMENSION - HN T9/2026")
	(setq val "<>")
	(if (setq ss (ssget '((0 . "DIMENSION"))))
		(progn
			(setq i 0)
			(while (< i (sslength ss))
				(setq ent (ssname ss i))
				(setq obj (vlax-ename->vla-object ent))
				(vla-put-TextOverride obj val)
				(setq i (1+ i))
			)
			(princ (strcat "\nĐã khóa thành công " (itoa (sslength ss)) " kích thước."))
		)
		(princ "\nKhông tìm thấy đối tượng kích thước nào.")
	)
	(princ "RD - Create by lisp.vn")
	(princ)
)

Lisp dim nhanh QD

Giới thiệu ứng dụng dim nhanh QD

Ứng dụng QD do AJS phát triển!

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!